Added informative error message.

13 years ago · 19d75a6e31
parent fe809c2bff
commit 19d75a6e31
1 changed files with 2 additions and 1 deletions
--- 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