Add error condition for bld_tmphalo.

2026-10-17 11:22:09 +00:00 · 2011-10-06 08:44:28 +00:00
parent 668aea5de8
commit b23efbf48d
1 changed files with 3 additions and 0 deletions
@@ -124,6 +124,9 @@ subroutine psi_bld_tmphalo(desc,info)
    if (tmphl(j+0)<0) then 
      write(psb_err_unit,*) me,'Unrecoverable error: missing proc from asb',&
           & i, nh, n_row+i,helem(i),hproc(i)      
+      info = psb_err_invalid_cd_state_
+      call psb_errpush(info,name)
+      goto 9999
    end if
    tmphl(j+1) = 1
    tmphl(j+2) = n_row+i