From 2be7dcc2dc5e72168cc50b6a5262770b351f073e Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Tue, 18 Mar 2008 18:40:27 +0000
Subject: [PATCH] psblas2  base/modules/psb_error_mod.F90

Fixed process index in error messages.
---
 base/modules/psb_error_mod.F90 | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/base/modules/psb_error_mod.F90 b/base/modules/psb_error_mod.F90
index 0ed64277..045e4949 100644
--- 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