fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 12:52:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
psi_penv_mod.F90

Modified psb_close so that in serial mode NCTXT gets decremented, to
free an ICTXT slot.
This commit is contained in:
Salvatore Filippone
2010-11-18 12:34:30 +00:00
parent 8b577420c8
commit 90800f7b5b
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psi_penv_mod.F90
+5 -1
View File
@@ -271,7 +271,11 @@ contains
! !$ call psb_error(ictxt)
! !$ endif
! !$ endif
#if !defined(SERIAL_MPI)
#if defined(SERIAL_MPI)
! Under serial mode, CLOSE has no effect, but reclaim
! the used ICTXT number.
nctxt = max(0, nctxt - 1)
#else
if (close_) then
call psb_close_all_context(psb_mesg_queue)
else