Skip to content
Snippets Groups Projects
Commit 4ba7307d authored by Dave Whipp's avatar Dave Whipp
Browse files

Minor formatting edit

parent 11e269f8
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/solve_with_pwssmp.f90
+ 3
− 3
View file @ 4ba7307d
...@@ -15,8 +15,8 @@ ...@@ -15,8 +15,8 @@
!==============================================================================! !==============================================================================!
!==============================================================================! !==============================================================================!
subroutine solve_with_pwssmp (n,nz_loc,n_iproc,n_iproc_st,n_iproc_end,ia,ja,& 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,& ldb,nrhs,avals,b,params,osolve,ov,vo,threadinfo, &
ndof,istep,iter,iter_nl) ndof,istep,iter,iter_nl)
use definitions use definitions
...@@ -334,7 +334,7 @@ if (iproc.eq.0) then ...@@ -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) write (8,'(a,f30.20,a,f30.20)') 'min ov%wnode ',minval(ov%wnode),'maxval ov%wnode',maxval(ov%wnode)
end if 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() call pwsmp_clear()
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment