psblas2

base/modules/psb_error_mod.F90 Fixed process index in error messages.
2026-10-17 11:22:09 +00:00 · 2008-03-18 18:40:27 +00:00
parent 23042afd09
commit 2be7dcc2dc
1 changed files with 5 additions and 0 deletions
@@ -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