From 4ba7307d905fa37b49c0ffe103ec1fc4bd5325fd Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Mon, 10 Jan 2011 16:57:39 +0000
Subject: [PATCH] Minor formatting edit
---
src/solve_with_pwssmp.f90 | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/solve_with_pwssmp.f90 b/src/solve_with_pwssmp.f90
index 02567976..abdbab27 100644
--- a/src/solve_with_pwssmp.f90
+++ b/src/solve_with_pwssmp.f90
@@ -15,8 +15,8 @@
!==============================================================================!
!==============================================================================!
-subroutine solve_with_pwssmp (n,nz_loc,n_iproc,n_iproc_st,n_iproc_end,ia,ja,&
- ldb,nrhs,avals,b,params,osolve,ov,vo,threadinfo,&
+subroutine solve_with_pwssmp (n,nz_loc,n_iproc,n_iproc_st,n_iproc_end,ia,ja, &
+ ldb,nrhs,avals,b,params,osolve,ov,vo,threadinfo, &
ndof,istep,iter,iter_nl)
use definitions
@@ -334,7 +334,7 @@ if (iproc.eq.0) then
write (8,'(a,f30.20,a,f30.20)') 'min ov%wnode ',minval(ov%wnode),'maxval ov%wnode',maxval(ov%wnode)
end if
-call heap (threadinfo,'solution','solve_with',size(solution),'dp',-1) ; deallocate (solution)
+call heap (threadinfo,'solution','solve_with',size(solution),'dp',-1); deallocate (solution)
call pwsmp_clear()
--
GitLab