From eaf943af78d6b4b3c63008fa82fbe650c709ff58 Mon Sep 17 00:00:00 2001 From: Dave Whipp <dwhipp@dal.ca> Date: Mon, 20 Dec 2010 19:11:06 +0000 Subject: [PATCH] Cleaned up source formatting, slightly --- src/wsmp_setup.f90 | 14 +++++--------- 1 file changed, 5 insertions(+), 9 deletions(-) diff --git a/src/wsmp_setup.f90 b/src/wsmp_setup.f90 index 072f431d..9c905342 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 -- GitLab