Cleaned up source formatting, slightly

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