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

psblas3:

Browse Source 
psb_error_impl.F90
 psb_error_mod.F90

Fixed formatting problem in some error messages.
This commit is contained in:
Salvatore Filippone
2010-06-16 09:04:36 +00:00
parent 3e511e6eb9
commit 466bcc2c25
2 changed files with 107 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_error_impl.F90
+2
View File
@@ -26,6 +26,7 @@ subroutine psb_serror()
do while (psb_get_numerr() > izero)
write(0,'(50("="))')
call psb_errpop(err_c, r_name, i_e_d, a_e_d)
write(0,*) 'Error pop: ',a_e_d
call psb_errmsg(err_c, r_name, i_e_d, a_e_d)
! write(0,'(50("="))')
end do
@@ -33,6 +34,7 @@ subroutine psb_serror()
else
call psb_errpop(err_c, r_name, i_e_d, a_e_d)
write(0,*) 'Error pop: ',a_e_d
call psb_errmsg(err_c, r_name, i_e_d, a_e_d)
do while (psb_get_numerr() > 0)
call psb_errpop(err_c, r_name, i_e_d, a_e_d)