diff --git a/src/wsmp_setup.f90 b/src/wsmp_setup.f90 index 072f431d7c132177a770436a52dd6b93b5368fd3..9c905342cc1959fdbc1f3359f749f46fd4046726 100644 --- a/src/wsmp_setup.f90 +++ b/src/wsmp_setup.f90 @@ -16,7 +16,8 @@ !==============================================================================! !==============================================================================! -subroutine wsmp_setup1 (n,n_iproc_st,n_iproc_end,n_iproc,nz_loc,ldb,ndof,vo,osolve,tpl,params,threadinfo,istep,iter) +subroutine wsmp_setup1 (n,n_iproc_st,n_iproc_end,n_iproc,nz_loc,ldb,ndof,vo, & + osolve,tpl,params,threadinfo,istep,iter) use definitions use threads implicit none @@ -216,8 +217,6 @@ end if end subroutine wsmp_setup1 - - !==============================================================================! !==============================================================================! ! @@ -226,8 +225,8 @@ end subroutine wsmp_setup1 !==============================================================================! !==============================================================================! -subroutine wsmp_setup2 (n,n_iproc,n_iproc_st,n_iproc_end,nz_loc,iproc_col, & - ia,ja,ndof,vo,osolve,tpl,params,threadinfo,istep,iter) +subroutine wsmp_setup2 (n,n_iproc,n_iproc_st,n_iproc_end,nz_loc,iproc_col,ia, & + ja,ndof,vo,osolve,tpl,params,threadinfo,istep,iter) use definitions use threads @@ -293,7 +292,4 @@ ia(k)=iatemp+nheightp end subroutine wsmp_setup2 !==============================================================================! -!==============================================================================! - - - +!==============================================================================! \ No newline at end of file