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

Fix error handling in GEASB

Browse Source
This commit is contained in:
Salvatore Filippone
2021-02-05 14:00:41 +01:00
parent 4f1b568b99
commit e60f4a2612
6 changed files with 48 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/tools/psb_casb.f90
+8 -4
View File
@@ -70,9 +70,11 @@ subroutine psb_casb_vect(x, desc_a, info, mold, scratch)
character(len=20) :: name,ch_err
info = psb_success_
if (psb_errstatus_fatal()) return
name = 'psb_cgeasb_v'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ctxt = desc_a%get_context()
debug_unit = psb_get_debug_unit()
@@ -144,9 +146,11 @@ subroutine psb_casb_vect_r2(x, desc_a, info, mold, scratch)
character(len=20) :: name,ch_err
info = psb_success_
if (psb_errstatus_fatal()) return
name = 'psb_cgeasb_v'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ctxt = desc_a%get_context()
debug_unit = psb_get_debug_unit()
base/tools/psb_dasb.f90
+8 -4
View File
@@ -70,9 +70,11 @@ subroutine psb_dasb_vect(x, desc_a, info, mold, scratch)
character(len=20) :: name,ch_err
info = psb_success_
if (psb_errstatus_fatal()) return
name = 'psb_dgeasb_v'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ctxt = desc_a%get_context()
debug_unit = psb_get_debug_unit()
@@ -144,9 +146,11 @@ subroutine psb_dasb_vect_r2(x, desc_a, info, mold, scratch)
character(len=20) :: name,ch_err
info = psb_success_
if (psb_errstatus_fatal()) return
name = 'psb_dgeasb_v'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ctxt = desc_a%get_context()
debug_unit = psb_get_debug_unit()
base/tools/psb_iasb.f90
+8 -4
View File
@@ -70,9 +70,11 @@ subroutine psb_iasb_vect(x, desc_a, info, mold, scratch)
character(len=20) :: name,ch_err
info = psb_success_
if (psb_errstatus_fatal()) return
name = 'psb_igeasb_v'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ctxt = desc_a%get_context()
debug_unit = psb_get_debug_unit()
@@ -144,9 +146,11 @@ subroutine psb_iasb_vect_r2(x, desc_a, info, mold, scratch)
character(len=20) :: name,ch_err
info = psb_success_
if (psb_errstatus_fatal()) return
name = 'psb_igeasb_v'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ctxt = desc_a%get_context()
debug_unit = psb_get_debug_unit()
base/tools/psb_lasb.f90
+8 -4
View File
@@ -70,9 +70,11 @@ subroutine psb_lasb_vect(x, desc_a, info, mold, scratch)
character(len=20) :: name,ch_err
info = psb_success_
if (psb_errstatus_fatal()) return
name = 'psb_lgeasb_v'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ctxt = desc_a%get_context()
debug_unit = psb_get_debug_unit()
@@ -144,9 +146,11 @@ subroutine psb_lasb_vect_r2(x, desc_a, info, mold, scratch)
character(len=20) :: name,ch_err
info = psb_success_
if (psb_errstatus_fatal()) return
name = 'psb_lgeasb_v'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ctxt = desc_a%get_context()
debug_unit = psb_get_debug_unit()
base/tools/psb_sasb.f90
+8 -4
View File
@@ -70,9 +70,11 @@ subroutine psb_sasb_vect(x, desc_a, info, mold, scratch)
character(len=20) :: name,ch_err
info = psb_success_
if (psb_errstatus_fatal()) return
name = 'psb_sgeasb_v'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ctxt = desc_a%get_context()
debug_unit = psb_get_debug_unit()
@@ -144,9 +146,11 @@ subroutine psb_sasb_vect_r2(x, desc_a, info, mold, scratch)
character(len=20) :: name,ch_err
info = psb_success_
if (psb_errstatus_fatal()) return
name = 'psb_sgeasb_v'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ctxt = desc_a%get_context()
debug_unit = psb_get_debug_unit()
base/tools/psb_zasb.f90
+8 -4
View File
@@ -70,9 +70,11 @@ subroutine psb_zasb_vect(x, desc_a, info, mold, scratch)
character(len=20) :: name,ch_err
info = psb_success_
if (psb_errstatus_fatal()) return
name = 'psb_zgeasb_v'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ctxt = desc_a%get_context()
debug_unit = psb_get_debug_unit()
@@ -144,9 +146,11 @@ subroutine psb_zasb_vect_r2(x, desc_a, info, mold, scratch)
character(len=20) :: name,ch_err
info = psb_success_
if (psb_errstatus_fatal()) return
name = 'psb_zgeasb_v'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ctxt = desc_a%get_context()
debug_unit = psb_get_debug_unit()