psblas2

base/modules/psb_error_mod.F90 Fixed process index in error messages.
17 years ago · 2be7dcc2dc
parent 23042afd09
commit 2be7dcc2dc
1 changed files with 5 additions and 0 deletions
--- a/base/modules/psb_error_mod.F90
+++ b/base/modules/psb_error_mod.F90
@ -266,6 +266,11 @@ contains
    integer                 ::  nprow, npcol, me, mypcol
    integer, parameter      ::  ione=1, izero=0

+#if defined(SERIAL_MPI)
+    me = -1
+#else        
+    call blacs_gridinfo(ictxt,nprow,npcol,me,mypcol)
+#endif

    if(error_status > 0) then
      if(verbosity_level > 1) then