psblas3:

psi_penv_mod.F90 Modified psb_close so that in serial mode NCTXT gets decremented, to free an ICTXT slot.
14 years ago · 90800f7b5b
parent 8b577420c8
commit 90800f7b5b
1 changed files with 5 additions and 1 deletions
--- a/base/modules/psi_penv_mod.F90
+++ b/base/modules/psi_penv_mod.F90
@ -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