fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix error handling in GEASB

Browse Source
newG2L
Salvatore Filippone 4 years ago
parent 4f1b568b99
commit e60f4a2612
6 changed files with 48 additions and 24 deletions
Show Stats Download Patch File Download Diff File

12
base/tools/psb_casb.f90
Unescape Escape 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()

12
base/tools/psb_dasb.f90
Unescape Escape 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()

12
base/tools/psb_iasb.f90
Unescape Escape 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()

12
base/tools/psb_lasb.f90
Unescape Escape 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()

12
base/tools/psb_sasb.f90
Unescape Escape 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()

12
base/tools/psb_zasb.f90
Unescape Escape 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()

Write Preview
Loading…
Cancel
Save