base/modules/psb_error_mod.F90

Fixed process index in error messages.
psblas3-type-indexed
Salvatore Filippone 17 years ago
parent 23042afd09
commit 2be7dcc2dc

@ -266,6 +266,11 @@ contains
integer :: nprow, npcol, me, mypcol integer :: nprow, npcol, me, mypcol
integer, parameter :: ione=1, izero=0 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(error_status > 0) then
if(verbosity_level > 1) then if(verbosity_level > 1) then

Loading…
Cancel
Save