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

Cleaned up source formatting, slightly

parent e19bd445
No related branches found
No related tags found
No related merge requests found
......@@ -15,8 +15,9 @@
!==============================================================================!
!==============================================================================!
subroutine solve_with_pwgsmp (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)
subroutine solve_with_pwgsmp (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
use threads
......@@ -292,11 +293,11 @@ if (iproc.eq.0) then
write (8,'(a,f30.20,a,f30.20)') 'min ov%temp ',minval(ov%temp),'maxval ov%temp',maxval(ov%temp)
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 ()
end subroutine solve_with_pwgsmp
!==============================================================================!
!==============================================================================!
!==============================================================================!
\ No newline at end of file
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment