fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-16 10:52:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Added informative error message.

Browse Source
This commit is contained in:
Salvatore Filippone
2011-10-05 14:50:37 +00:00
parent fe809c2bff
commit 19d75a6e31
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/internals/psi_bld_tmphalo.f90
+2 -1
View File
@@ -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