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

Fix error_impl, and add check_error()

Browse Source
This commit is contained in:
Salvatore Filippone
2021-02-05 09:50:02 +01:00
parent fdd1da6fa1
commit aeb1397e9f
4 changed files with 38 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_error_impl.F90
+8 -5
View File
@@ -46,11 +46,14 @@ subroutine psb_par_error_handler(ctxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_print_) &
& call psb_error(ctxt, abrt=.false.)
if (err_act == psb_act_abort_) &
& call psb_error(ctxt, abrt=.true.)
if (err_act == psb_act_print_) then
call psb_error(ctxt, abrt=.false.)
else if (err_act == psb_act_ret_) then
! do nothing
else
call psb_error(ctxt, abrt=.true.)
end if
return
end subroutine psb_par_error_handler