From 19d75a6e31a0c1fc70f97151d1920eb6d00bea6c Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 5 Oct 2011 14:50:37 +0000 Subject: [PATCH] Added informative error message. --- base/internals/psi_bld_tmphalo.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/base/internals/psi_bld_tmphalo.f90 b/base/internals/psi_bld_tmphalo.f90 index b8cc1c26..4d54ebc7 100644 --- a/base/internals/psi_bld_tmphalo.f90 +++ b/base/internals/psi_bld_tmphalo.f90 @@ -122,7 +122,8 @@ subroutine psi_bld_tmphalo(desc,info) do i=1,nh tmphl(j+0) = hproc(i) if (tmphl(j+0)<0) then - write(psb_err_unit,*) 'Unrecoverable error: missing proc from asb' + write(psb_err_unit,*) me,'Unrecoverable error: missing proc from asb',& + & i, nh, n_row+i,helem(i),hproc(i) end if tmphl(j+1) = 1 tmphl(j+2) = n_row+i