diff --git a/base/comm/internals/psi_covrl_restr.f90 b/base/comm/internals/psi_covrl_restr.f90 index 6b627ba2..aa207548 100644 --- a/base/comm/internals/psi_covrl_restr.f90 +++ b/base/comm/internals/psi_covrl_restr.f90 @@ -46,7 +46,9 @@ subroutine psi_covrl_restr_vect(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_covrl_restr_vect' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -86,7 +88,9 @@ subroutine psi_covrl_restr_multivect(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_covrl_restr_mv' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_covrl_restr_a.f90 b/base/comm/internals/psi_covrl_restr_a.f90 index e08df756..4e83a50d 100644 --- a/base/comm/internals/psi_covrl_restr_a.f90 +++ b/base/comm/internals/psi_covrl_restr_a.f90 @@ -44,7 +44,9 @@ subroutine psi_covrl_restrr1(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_covrl_restrr1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -85,7 +87,9 @@ subroutine psi_covrl_restrr2(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_covrl_restrr2' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_covrl_save.f90 b/base/comm/internals/psi_covrl_save.f90 index af52ab6e..32061856 100644 --- a/base/comm/internals/psi_covrl_save.f90 +++ b/base/comm/internals/psi_covrl_save.f90 @@ -46,7 +46,9 @@ subroutine psi_covrl_save_vect(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_dovrl_saver1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -94,7 +96,9 @@ subroutine psi_covrl_save_multivect(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_dovrl_saver1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_covrl_save_a.f90 b/base/comm/internals/psi_covrl_save_a.f90 index a560a6fd..2d208f33 100644 --- a/base/comm/internals/psi_covrl_save_a.f90 +++ b/base/comm/internals/psi_covrl_save_a.f90 @@ -47,7 +47,9 @@ subroutine psi_covrl_saver1(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_covrl_saver1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -97,7 +99,9 @@ subroutine psi_covrl_saver2(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_covrl_saver2' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_covrl_upd.f90 b/base/comm/internals/psi_covrl_upd.f90 index 0da0cba2..bef31b10 100644 --- a/base/comm/internals/psi_covrl_upd.f90 +++ b/base/comm/internals/psi_covrl_upd.f90 @@ -50,7 +50,9 @@ subroutine psi_covrl_upd_vect(x,desc_a,update,info) name='psi_covrl_updr1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -129,7 +131,9 @@ subroutine psi_covrl_upd_multivect(x,desc_a,update,info) name='psi_covrl_updr1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_covrl_upd_a.f90 b/base/comm/internals/psi_covrl_upd_a.f90 index b253ab73..4146fa40 100644 --- a/base/comm/internals/psi_covrl_upd_a.f90 +++ b/base/comm/internals/psi_covrl_upd_a.f90 @@ -45,7 +45,9 @@ subroutine psi_covrl_updr1(x,desc_a,update,info) character(len=20) :: name, ch_err name='psi_covrl_updr1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -112,7 +114,9 @@ subroutine psi_covrl_updr2(x,desc_a,update,info) character(len=20) :: name, ch_err name='psi_covrl_updr2' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_dovrl_restr.f90 b/base/comm/internals/psi_dovrl_restr.f90 index 70a43345..4955bba5 100644 --- a/base/comm/internals/psi_dovrl_restr.f90 +++ b/base/comm/internals/psi_dovrl_restr.f90 @@ -46,7 +46,9 @@ subroutine psi_dovrl_restr_vect(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_dovrl_restr_vect' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -86,7 +88,9 @@ subroutine psi_dovrl_restr_multivect(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_dovrl_restr_mv' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_dovrl_restr_a.f90 b/base/comm/internals/psi_dovrl_restr_a.f90 index e259bd64..4bd53f21 100644 --- a/base/comm/internals/psi_dovrl_restr_a.f90 +++ b/base/comm/internals/psi_dovrl_restr_a.f90 @@ -44,7 +44,9 @@ subroutine psi_dovrl_restrr1(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_dovrl_restrr1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -85,7 +87,9 @@ subroutine psi_dovrl_restrr2(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_dovrl_restrr2' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_dovrl_save.f90 b/base/comm/internals/psi_dovrl_save.f90 index aca87177..c5abb7df 100644 --- a/base/comm/internals/psi_dovrl_save.f90 +++ b/base/comm/internals/psi_dovrl_save.f90 @@ -46,7 +46,9 @@ subroutine psi_dovrl_save_vect(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_dovrl_saver1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -94,7 +96,9 @@ subroutine psi_dovrl_save_multivect(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_dovrl_saver1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_dovrl_save_a.f90 b/base/comm/internals/psi_dovrl_save_a.f90 index e8ab9c89..1d3bd8a3 100644 --- a/base/comm/internals/psi_dovrl_save_a.f90 +++ b/base/comm/internals/psi_dovrl_save_a.f90 @@ -47,7 +47,9 @@ subroutine psi_dovrl_saver1(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_dovrl_saver1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -97,7 +99,9 @@ subroutine psi_dovrl_saver2(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_dovrl_saver2' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_dovrl_upd.f90 b/base/comm/internals/psi_dovrl_upd.f90 index e154c2f9..e62df200 100644 --- a/base/comm/internals/psi_dovrl_upd.f90 +++ b/base/comm/internals/psi_dovrl_upd.f90 @@ -50,7 +50,9 @@ subroutine psi_dovrl_upd_vect(x,desc_a,update,info) name='psi_dovrl_updr1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -129,7 +131,9 @@ subroutine psi_dovrl_upd_multivect(x,desc_a,update,info) name='psi_dovrl_updr1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_dovrl_upd_a.f90 b/base/comm/internals/psi_dovrl_upd_a.f90 index 00182d4e..9be207b6 100644 --- a/base/comm/internals/psi_dovrl_upd_a.f90 +++ b/base/comm/internals/psi_dovrl_upd_a.f90 @@ -45,7 +45,9 @@ subroutine psi_dovrl_updr1(x,desc_a,update,info) character(len=20) :: name, ch_err name='psi_dovrl_updr1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -112,7 +114,9 @@ subroutine psi_dovrl_updr2(x,desc_a,update,info) character(len=20) :: name, ch_err name='psi_dovrl_updr2' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_eovrl_restr_a.f90 b/base/comm/internals/psi_eovrl_restr_a.f90 index fd4afb33..8b1cb24d 100644 --- a/base/comm/internals/psi_eovrl_restr_a.f90 +++ b/base/comm/internals/psi_eovrl_restr_a.f90 @@ -44,7 +44,9 @@ subroutine psi_eovrl_restrr1(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_eovrl_restrr1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -85,7 +87,9 @@ subroutine psi_eovrl_restrr2(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_eovrl_restrr2' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_eovrl_save_a.f90 b/base/comm/internals/psi_eovrl_save_a.f90 index cea24955..ece0a672 100644 --- a/base/comm/internals/psi_eovrl_save_a.f90 +++ b/base/comm/internals/psi_eovrl_save_a.f90 @@ -47,7 +47,9 @@ subroutine psi_eovrl_saver1(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_eovrl_saver1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -97,7 +99,9 @@ subroutine psi_eovrl_saver2(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_eovrl_saver2' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_eovrl_upd_a.f90 b/base/comm/internals/psi_eovrl_upd_a.f90 index 74ed4d30..5675e8eb 100644 --- a/base/comm/internals/psi_eovrl_upd_a.f90 +++ b/base/comm/internals/psi_eovrl_upd_a.f90 @@ -45,7 +45,9 @@ subroutine psi_eovrl_updr1(x,desc_a,update,info) character(len=20) :: name, ch_err name='psi_eovrl_updr1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -112,7 +114,9 @@ subroutine psi_eovrl_updr2(x,desc_a,update,info) character(len=20) :: name, ch_err name='psi_eovrl_updr2' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_iovrl_restr.f90 b/base/comm/internals/psi_iovrl_restr.f90 index 276f6f3a..ef6d23a2 100644 --- a/base/comm/internals/psi_iovrl_restr.f90 +++ b/base/comm/internals/psi_iovrl_restr.f90 @@ -46,7 +46,9 @@ subroutine psi_iovrl_restr_vect(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_iovrl_restr_vect' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -86,7 +88,9 @@ subroutine psi_iovrl_restr_multivect(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_iovrl_restr_mv' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_iovrl_save.f90 b/base/comm/internals/psi_iovrl_save.f90 index 6d8d66ff..25483c04 100644 --- a/base/comm/internals/psi_iovrl_save.f90 +++ b/base/comm/internals/psi_iovrl_save.f90 @@ -46,7 +46,9 @@ subroutine psi_iovrl_save_vect(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_dovrl_saver1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -94,7 +96,9 @@ subroutine psi_iovrl_save_multivect(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_dovrl_saver1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_iovrl_upd.f90 b/base/comm/internals/psi_iovrl_upd.f90 index 0b7af82b..6fe403d6 100644 --- a/base/comm/internals/psi_iovrl_upd.f90 +++ b/base/comm/internals/psi_iovrl_upd.f90 @@ -50,7 +50,9 @@ subroutine psi_iovrl_upd_vect(x,desc_a,update,info) name='psi_iovrl_updr1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -129,7 +131,9 @@ subroutine psi_iovrl_upd_multivect(x,desc_a,update,info) name='psi_iovrl_updr1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_lovrl_restr.f90 b/base/comm/internals/psi_lovrl_restr.f90 index dad555dd..43e7d00a 100644 --- a/base/comm/internals/psi_lovrl_restr.f90 +++ b/base/comm/internals/psi_lovrl_restr.f90 @@ -46,7 +46,9 @@ subroutine psi_lovrl_restr_vect(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_lovrl_restr_vect' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -86,7 +88,9 @@ subroutine psi_lovrl_restr_multivect(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_lovrl_restr_mv' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_lovrl_save.f90 b/base/comm/internals/psi_lovrl_save.f90 index 2bce8a1f..99acd213 100644 --- a/base/comm/internals/psi_lovrl_save.f90 +++ b/base/comm/internals/psi_lovrl_save.f90 @@ -46,7 +46,9 @@ subroutine psi_lovrl_save_vect(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_dovrl_saver1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -94,7 +96,9 @@ subroutine psi_lovrl_save_multivect(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_dovrl_saver1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_lovrl_upd.f90 b/base/comm/internals/psi_lovrl_upd.f90 index 65991e30..759e44db 100644 --- a/base/comm/internals/psi_lovrl_upd.f90 +++ b/base/comm/internals/psi_lovrl_upd.f90 @@ -50,7 +50,9 @@ subroutine psi_lovrl_upd_vect(x,desc_a,update,info) name='psi_lovrl_updr1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -129,7 +131,9 @@ subroutine psi_lovrl_upd_multivect(x,desc_a,update,info) name='psi_lovrl_updr1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_movrl_restr_a.f90 b/base/comm/internals/psi_movrl_restr_a.f90 index a3aa3501..95147052 100644 --- a/base/comm/internals/psi_movrl_restr_a.f90 +++ b/base/comm/internals/psi_movrl_restr_a.f90 @@ -44,7 +44,9 @@ subroutine psi_movrl_restrr1(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_movrl_restrr1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -85,7 +87,9 @@ subroutine psi_movrl_restrr2(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_movrl_restrr2' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_movrl_save_a.f90 b/base/comm/internals/psi_movrl_save_a.f90 index 430a4981..f1db368b 100644 --- a/base/comm/internals/psi_movrl_save_a.f90 +++ b/base/comm/internals/psi_movrl_save_a.f90 @@ -47,7 +47,9 @@ subroutine psi_movrl_saver1(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_movrl_saver1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -97,7 +99,9 @@ subroutine psi_movrl_saver2(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_movrl_saver2' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_movrl_upd_a.f90 b/base/comm/internals/psi_movrl_upd_a.f90 index 6223dca6..ea471f30 100644 --- a/base/comm/internals/psi_movrl_upd_a.f90 +++ b/base/comm/internals/psi_movrl_upd_a.f90 @@ -45,7 +45,9 @@ subroutine psi_movrl_updr1(x,desc_a,update,info) character(len=20) :: name, ch_err name='psi_movrl_updr1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -112,7 +114,9 @@ subroutine psi_movrl_updr2(x,desc_a,update,info) character(len=20) :: name, ch_err name='psi_movrl_updr2' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_sovrl_restr.f90 b/base/comm/internals/psi_sovrl_restr.f90 index b80eb626..af738a57 100644 --- a/base/comm/internals/psi_sovrl_restr.f90 +++ b/base/comm/internals/psi_sovrl_restr.f90 @@ -46,7 +46,9 @@ subroutine psi_sovrl_restr_vect(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_sovrl_restr_vect' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -86,7 +88,9 @@ subroutine psi_sovrl_restr_multivect(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_sovrl_restr_mv' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_sovrl_restr_a.f90 b/base/comm/internals/psi_sovrl_restr_a.f90 index 349987a4..a35cdad4 100644 --- a/base/comm/internals/psi_sovrl_restr_a.f90 +++ b/base/comm/internals/psi_sovrl_restr_a.f90 @@ -44,7 +44,9 @@ subroutine psi_sovrl_restrr1(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_sovrl_restrr1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -85,7 +87,9 @@ subroutine psi_sovrl_restrr2(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_sovrl_restrr2' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_sovrl_save.f90 b/base/comm/internals/psi_sovrl_save.f90 index 4a07f120..f66e95a5 100644 --- a/base/comm/internals/psi_sovrl_save.f90 +++ b/base/comm/internals/psi_sovrl_save.f90 @@ -46,7 +46,9 @@ subroutine psi_sovrl_save_vect(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_dovrl_saver1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -94,7 +96,9 @@ subroutine psi_sovrl_save_multivect(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_dovrl_saver1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_sovrl_save_a.f90 b/base/comm/internals/psi_sovrl_save_a.f90 index 27c07fd9..39b791a3 100644 --- a/base/comm/internals/psi_sovrl_save_a.f90 +++ b/base/comm/internals/psi_sovrl_save_a.f90 @@ -47,7 +47,9 @@ subroutine psi_sovrl_saver1(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_sovrl_saver1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -97,7 +99,9 @@ subroutine psi_sovrl_saver2(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_sovrl_saver2' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_sovrl_upd.f90 b/base/comm/internals/psi_sovrl_upd.f90 index 6edaa213..e439a250 100644 --- a/base/comm/internals/psi_sovrl_upd.f90 +++ b/base/comm/internals/psi_sovrl_upd.f90 @@ -50,7 +50,9 @@ subroutine psi_sovrl_upd_vect(x,desc_a,update,info) name='psi_sovrl_updr1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -129,7 +131,9 @@ subroutine psi_sovrl_upd_multivect(x,desc_a,update,info) name='psi_sovrl_updr1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_sovrl_upd_a.f90 b/base/comm/internals/psi_sovrl_upd_a.f90 index 58326322..25a59666 100644 --- a/base/comm/internals/psi_sovrl_upd_a.f90 +++ b/base/comm/internals/psi_sovrl_upd_a.f90 @@ -45,7 +45,9 @@ subroutine psi_sovrl_updr1(x,desc_a,update,info) character(len=20) :: name, ch_err name='psi_sovrl_updr1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -112,7 +114,9 @@ subroutine psi_sovrl_updr2(x,desc_a,update,info) character(len=20) :: name, ch_err name='psi_sovrl_updr2' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_zovrl_restr.f90 b/base/comm/internals/psi_zovrl_restr.f90 index 6b21c230..3009ce1a 100644 --- a/base/comm/internals/psi_zovrl_restr.f90 +++ b/base/comm/internals/psi_zovrl_restr.f90 @@ -46,7 +46,9 @@ subroutine psi_zovrl_restr_vect(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_zovrl_restr_vect' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -86,7 +88,9 @@ subroutine psi_zovrl_restr_multivect(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_zovrl_restr_mv' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_zovrl_restr_a.f90 b/base/comm/internals/psi_zovrl_restr_a.f90 index 15d1f27b..d0ff8da6 100644 --- a/base/comm/internals/psi_zovrl_restr_a.f90 +++ b/base/comm/internals/psi_zovrl_restr_a.f90 @@ -44,7 +44,9 @@ subroutine psi_zovrl_restrr1(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_zovrl_restrr1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -85,7 +87,9 @@ subroutine psi_zovrl_restrr2(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_zovrl_restrr2' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_zovrl_save.f90 b/base/comm/internals/psi_zovrl_save.f90 index 230a6bd5..26e636a9 100644 --- a/base/comm/internals/psi_zovrl_save.f90 +++ b/base/comm/internals/psi_zovrl_save.f90 @@ -46,7 +46,9 @@ subroutine psi_zovrl_save_vect(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_dovrl_saver1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -94,7 +96,9 @@ subroutine psi_zovrl_save_multivect(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_dovrl_saver1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_zovrl_save_a.f90 b/base/comm/internals/psi_zovrl_save_a.f90 index e8061190..acedfb65 100644 --- a/base/comm/internals/psi_zovrl_save_a.f90 +++ b/base/comm/internals/psi_zovrl_save_a.f90 @@ -47,7 +47,9 @@ subroutine psi_zovrl_saver1(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_zovrl_saver1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -97,7 +99,9 @@ subroutine psi_zovrl_saver2(x,xs,desc_a,info) character(len=20) :: name, ch_err name='psi_zovrl_saver2' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_zovrl_upd.f90 b/base/comm/internals/psi_zovrl_upd.f90 index b73e99b0..6c0191dc 100644 --- a/base/comm/internals/psi_zovrl_upd.f90 +++ b/base/comm/internals/psi_zovrl_upd.f90 @@ -50,7 +50,9 @@ subroutine psi_zovrl_upd_vect(x,desc_a,update,info) name='psi_zovrl_updr1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -129,7 +131,9 @@ subroutine psi_zovrl_upd_multivect(x,desc_a,update,info) name='psi_zovrl_updr1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/internals/psi_zovrl_upd_a.f90 b/base/comm/internals/psi_zovrl_upd_a.f90 index f870847e..ea5b0efa 100644 --- a/base/comm/internals/psi_zovrl_upd_a.f90 +++ b/base/comm/internals/psi_zovrl_upd_a.f90 @@ -45,7 +45,9 @@ subroutine psi_zovrl_updr1(x,desc_a,update,info) character(len=20) :: name, ch_err name='psi_zovrl_updr1' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() @@ -112,7 +114,9 @@ subroutine psi_zovrl_updr2(x,desc_a,update,info) character(len=20) :: name, ch_err name='psi_zovrl_updr2' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) ictxt = desc_a%get_context() diff --git a/base/comm/psb_cgather.f90 b/base/comm/psb_cgather.f90 index 6f2f6e90..35139fcf 100644 --- a/base/comm/psb_cgather.f90 +++ b/base/comm/psb_cgather.f90 @@ -64,7 +64,9 @@ subroutine psb_cgather_vect(globx, locx, desc_a, info, iroot) character(len=20) :: name, ch_err name='psb_cgatherv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -177,7 +179,9 @@ subroutine psb_cgather_multivect(globx, locx, desc_a, info, iroot) character(len=20) :: name, ch_err name='psb_cgatherv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_cgather_a.f90 b/base/comm/psb_cgather_a.f90 index fcfd78ed..080c5855 100644 --- a/base/comm/psb_cgather_a.f90 +++ b/base/comm/psb_cgather_a.f90 @@ -65,7 +65,9 @@ subroutine psb_cgatherm(globx, locx, desc_a, info, iroot) character(len=20) :: name, ch_err name='psb_cgatherm' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -237,7 +239,9 @@ subroutine psb_cgatherv(globx, locx, desc_a, info, iroot) character(len=20) :: name, ch_err name='psb_cgatherv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_chalo.f90 b/base/comm/psb_chalo.f90 index 07827aa7..9c60770d 100644 --- a/base/comm/psb_chalo.f90 +++ b/base/comm/psb_chalo.f90 @@ -75,7 +75,9 @@ subroutine psb_chalo_vect(x,desc_a,info,work,tran,mode,data) logical :: aliw name='psb_chalov' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -214,7 +216,9 @@ subroutine psb_chalo_multivect(x,desc_a,info,work,tran,mode,data) logical :: aliw name='psb_chalov' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_chalo_a.f90 b/base/comm/psb_chalo_a.f90 index 3ccfcd37..07bdd0b1 100644 --- a/base/comm/psb_chalo_a.f90 +++ b/base/comm/psb_chalo_a.f90 @@ -75,7 +75,9 @@ subroutine psb_chalom(x,desc_a,info,jx,ik,work,tran,mode,data) logical :: aliw name='psb_chalom' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -282,7 +284,9 @@ subroutine psb_chalov(x,desc_a,info,work,tran,mode,data) logical :: aliw name='psb_chalov' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_covrl.f90 b/base/comm/psb_covrl.f90 index 7a64ab09..601cd451 100644 --- a/base/comm/psb_covrl.f90 +++ b/base/comm/psb_covrl.f90 @@ -84,7 +84,9 @@ subroutine psb_covrl_vect(x,desc_a,info,work,update,mode) logical :: aliw name='psb_covrlv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -209,7 +211,9 @@ subroutine psb_covrl_multivect(x,desc_a,info,work,update,mode) logical :: aliw name='psb_covrlv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_covrl_a.f90 b/base/comm/psb_covrl_a.f90 index b64a3137..060970ca 100644 --- a/base/comm/psb_covrl_a.f90 +++ b/base/comm/psb_covrl_a.f90 @@ -86,7 +86,9 @@ subroutine psb_covrlm(x,desc_a,info,jx,ik,work,update,mode) logical :: aliw name='psb_covrlm' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -281,7 +283,9 @@ subroutine psb_covrlv(x,desc_a,info,work,update,mode) logical :: aliw name='psb_covrlv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_cscatter.F90 b/base/comm/psb_cscatter.F90 index 50fc1c4b..9492479e 100644 --- a/base/comm/psb_cscatter.F90 +++ b/base/comm/psb_cscatter.F90 @@ -62,7 +62,9 @@ subroutine psb_cscatter_vect(globx, locx, desc_a, info, root, mold) integer(psb_ipk_) :: debug_level, debug_unit name='psb_scatter_vect' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) ictxt=desc_a%get_context() diff --git a/base/comm/psb_cscatter_a.F90 b/base/comm/psb_cscatter_a.F90 index 1eef00af..1d2fc6d2 100644 --- a/base/comm/psb_cscatter_a.F90 +++ b/base/comm/psb_cscatter_a.F90 @@ -73,7 +73,9 @@ subroutine psb_cscatterm(globx, locx, desc_a, info, root) character(len=20) :: name, ch_err name='psb_scatterm' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -315,7 +317,9 @@ subroutine psb_cscatterv(globx, locx, desc_a, info, root) integer(psb_ipk_) :: debug_level, debug_unit name='psb_scatterv' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) ictxt=desc_a%get_context() diff --git a/base/comm/psb_cspgather.F90 b/base/comm/psb_cspgather.F90 index 8a4fe680..f4fbfe7e 100644 --- a/base/comm/psb_cspgather.F90 +++ b/base/comm/psb_cspgather.F90 @@ -64,7 +64,9 @@ subroutine psb_csp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep integer(psb_ipk_) :: debug_level, debug_unit name='psb_gather' - if (psb_get_errstatus().ne.0) return + if (psb_get_errstatus().ne.0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -205,7 +207,9 @@ subroutine psb_lcsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,kee integer(psb_ipk_) :: debug_level, debug_unit name='psb_gather' - if (psb_get_errstatus().ne.0) return + if (psb_get_errstatus().ne.0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_dgather.f90 b/base/comm/psb_dgather.f90 index f7ec78da..f10bb05f 100644 --- a/base/comm/psb_dgather.f90 +++ b/base/comm/psb_dgather.f90 @@ -64,7 +64,9 @@ subroutine psb_dgather_vect(globx, locx, desc_a, info, iroot) character(len=20) :: name, ch_err name='psb_cgatherv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -177,7 +179,9 @@ subroutine psb_dgather_multivect(globx, locx, desc_a, info, iroot) character(len=20) :: name, ch_err name='psb_cgatherv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_dgather_a.f90 b/base/comm/psb_dgather_a.f90 index 5dd20295..11d5f187 100644 --- a/base/comm/psb_dgather_a.f90 +++ b/base/comm/psb_dgather_a.f90 @@ -65,7 +65,9 @@ subroutine psb_dgatherm(globx, locx, desc_a, info, iroot) character(len=20) :: name, ch_err name='psb_dgatherm' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -237,7 +239,9 @@ subroutine psb_dgatherv(globx, locx, desc_a, info, iroot) character(len=20) :: name, ch_err name='psb_dgatherv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_dhalo.f90 b/base/comm/psb_dhalo.f90 index 4f48007b..c130c7ac 100644 --- a/base/comm/psb_dhalo.f90 +++ b/base/comm/psb_dhalo.f90 @@ -75,7 +75,9 @@ subroutine psb_dhalo_vect(x,desc_a,info,work,tran,mode,data) logical :: aliw name='psb_dhalov' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -214,7 +216,9 @@ subroutine psb_dhalo_multivect(x,desc_a,info,work,tran,mode,data) logical :: aliw name='psb_dhalov' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_dhalo_a.f90 b/base/comm/psb_dhalo_a.f90 index 89bde9ae..aba8d45f 100644 --- a/base/comm/psb_dhalo_a.f90 +++ b/base/comm/psb_dhalo_a.f90 @@ -75,7 +75,9 @@ subroutine psb_dhalom(x,desc_a,info,jx,ik,work,tran,mode,data) logical :: aliw name='psb_dhalom' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -282,7 +284,9 @@ subroutine psb_dhalov(x,desc_a,info,work,tran,mode,data) logical :: aliw name='psb_dhalov' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_dovrl.f90 b/base/comm/psb_dovrl.f90 index b255511a..15d7dd74 100644 --- a/base/comm/psb_dovrl.f90 +++ b/base/comm/psb_dovrl.f90 @@ -84,7 +84,9 @@ subroutine psb_dovrl_vect(x,desc_a,info,work,update,mode) logical :: aliw name='psb_dovrlv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -209,7 +211,9 @@ subroutine psb_dovrl_multivect(x,desc_a,info,work,update,mode) logical :: aliw name='psb_dovrlv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_dovrl_a.f90 b/base/comm/psb_dovrl_a.f90 index 12732460..c78409bb 100644 --- a/base/comm/psb_dovrl_a.f90 +++ b/base/comm/psb_dovrl_a.f90 @@ -86,7 +86,9 @@ subroutine psb_dovrlm(x,desc_a,info,jx,ik,work,update,mode) logical :: aliw name='psb_dovrlm' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -281,7 +283,9 @@ subroutine psb_dovrlv(x,desc_a,info,work,update,mode) logical :: aliw name='psb_dovrlv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_dscatter.F90 b/base/comm/psb_dscatter.F90 index 8348aa59..15f8b027 100644 --- a/base/comm/psb_dscatter.F90 +++ b/base/comm/psb_dscatter.F90 @@ -62,7 +62,9 @@ subroutine psb_dscatter_vect(globx, locx, desc_a, info, root, mold) integer(psb_ipk_) :: debug_level, debug_unit name='psb_scatter_vect' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) ictxt=desc_a%get_context() diff --git a/base/comm/psb_dscatter_a.F90 b/base/comm/psb_dscatter_a.F90 index 32fd43a3..adc69543 100644 --- a/base/comm/psb_dscatter_a.F90 +++ b/base/comm/psb_dscatter_a.F90 @@ -73,7 +73,9 @@ subroutine psb_dscatterm(globx, locx, desc_a, info, root) character(len=20) :: name, ch_err name='psb_scatterm' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -315,7 +317,9 @@ subroutine psb_dscatterv(globx, locx, desc_a, info, root) integer(psb_ipk_) :: debug_level, debug_unit name='psb_scatterv' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) ictxt=desc_a%get_context() diff --git a/base/comm/psb_dspgather.F90 b/base/comm/psb_dspgather.F90 index 83024e10..a9736e05 100644 --- a/base/comm/psb_dspgather.F90 +++ b/base/comm/psb_dspgather.F90 @@ -64,7 +64,9 @@ subroutine psb_dsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep integer(psb_ipk_) :: debug_level, debug_unit name='psb_gather' - if (psb_get_errstatus().ne.0) return + if (psb_get_errstatus().ne.0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -205,7 +207,9 @@ subroutine psb_ldsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,kee integer(psb_ipk_) :: debug_level, debug_unit name='psb_gather' - if (psb_get_errstatus().ne.0) return + if (psb_get_errstatus().ne.0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_egather_a.f90 b/base/comm/psb_egather_a.f90 index 77d76dd2..781d73a8 100644 --- a/base/comm/psb_egather_a.f90 +++ b/base/comm/psb_egather_a.f90 @@ -65,7 +65,9 @@ subroutine psb_egatherm(globx, locx, desc_a, info, iroot) character(len=20) :: name, ch_err name='psb_egatherm' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -237,7 +239,9 @@ subroutine psb_egatherv(globx, locx, desc_a, info, iroot) character(len=20) :: name, ch_err name='psb_egatherv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_ehalo_a.f90 b/base/comm/psb_ehalo_a.f90 index b9921c0d..9c0a6d84 100644 --- a/base/comm/psb_ehalo_a.f90 +++ b/base/comm/psb_ehalo_a.f90 @@ -75,7 +75,9 @@ subroutine psb_ehalom(x,desc_a,info,jx,ik,work,tran,mode,data) logical :: aliw name='psb_ehalom' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -282,7 +284,9 @@ subroutine psb_ehalov(x,desc_a,info,work,tran,mode,data) logical :: aliw name='psb_ehalov' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_eovrl_a.f90 b/base/comm/psb_eovrl_a.f90 index 3c5eccc4..925cc011 100644 --- a/base/comm/psb_eovrl_a.f90 +++ b/base/comm/psb_eovrl_a.f90 @@ -86,7 +86,9 @@ subroutine psb_eovrlm(x,desc_a,info,jx,ik,work,update,mode) logical :: aliw name='psb_eovrlm' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -281,7 +283,9 @@ subroutine psb_eovrlv(x,desc_a,info,work,update,mode) logical :: aliw name='psb_eovrlv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_escatter_a.F90 b/base/comm/psb_escatter_a.F90 index 028b9e46..5e11e75b 100644 --- a/base/comm/psb_escatter_a.F90 +++ b/base/comm/psb_escatter_a.F90 @@ -73,7 +73,9 @@ subroutine psb_escatterm(globx, locx, desc_a, info, root) character(len=20) :: name, ch_err name='psb_scatterm' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -315,7 +317,9 @@ subroutine psb_escatterv(globx, locx, desc_a, info, root) integer(psb_ipk_) :: debug_level, debug_unit name='psb_scatterv' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) ictxt=desc_a%get_context() diff --git a/base/comm/psb_igather.f90 b/base/comm/psb_igather.f90 index 8b13af79..5c72b381 100644 --- a/base/comm/psb_igather.f90 +++ b/base/comm/psb_igather.f90 @@ -64,7 +64,9 @@ subroutine psb_igather_vect(globx, locx, desc_a, info, iroot) character(len=20) :: name, ch_err name='psb_cgatherv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -177,7 +179,9 @@ subroutine psb_igather_multivect(globx, locx, desc_a, info, iroot) character(len=20) :: name, ch_err name='psb_cgatherv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_ihalo.f90 b/base/comm/psb_ihalo.f90 index ea401ae3..d6935064 100644 --- a/base/comm/psb_ihalo.f90 +++ b/base/comm/psb_ihalo.f90 @@ -75,7 +75,9 @@ subroutine psb_ihalo_vect(x,desc_a,info,work,tran,mode,data) logical :: aliw name='psb_ihalov' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -214,7 +216,9 @@ subroutine psb_ihalo_multivect(x,desc_a,info,work,tran,mode,data) logical :: aliw name='psb_ihalov' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_iovrl.f90 b/base/comm/psb_iovrl.f90 index dcc97b87..64f37be3 100644 --- a/base/comm/psb_iovrl.f90 +++ b/base/comm/psb_iovrl.f90 @@ -84,7 +84,9 @@ subroutine psb_iovrl_vect(x,desc_a,info,work,update,mode) logical :: aliw name='psb_iovrlv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -209,7 +211,9 @@ subroutine psb_iovrl_multivect(x,desc_a,info,work,update,mode) logical :: aliw name='psb_iovrlv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_iscatter.F90 b/base/comm/psb_iscatter.F90 index bdc2fdf1..fcf4780e 100644 --- a/base/comm/psb_iscatter.F90 +++ b/base/comm/psb_iscatter.F90 @@ -62,7 +62,9 @@ subroutine psb_iscatter_vect(globx, locx, desc_a, info, root, mold) integer(psb_ipk_) :: debug_level, debug_unit name='psb_scatter_vect' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) ictxt=desc_a%get_context() diff --git a/base/comm/psb_ispgather.F90 b/base/comm/psb_ispgather.F90 index 3de657b6..04371e17 100644 --- a/base/comm/psb_ispgather.F90 +++ b/base/comm/psb_ispgather.F90 @@ -64,7 +64,9 @@ subroutine psb_isp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep integer(psb_ipk_) :: debug_level, debug_unit name='psb_gather' - if (psb_get_errstatus().ne.0) return + if (psb_get_errstatus().ne.0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -205,7 +207,9 @@ subroutine psb_@LX@sp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,k integer(psb_ipk_) :: debug_level, debug_unit name='psb_gather' - if (psb_get_errstatus().ne.0) return + if (psb_get_errstatus().ne.0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_lgather.f90 b/base/comm/psb_lgather.f90 index 9b6f0fca..9487f0dd 100644 --- a/base/comm/psb_lgather.f90 +++ b/base/comm/psb_lgather.f90 @@ -64,7 +64,9 @@ subroutine psb_lgather_vect(globx, locx, desc_a, info, iroot) character(len=20) :: name, ch_err name='psb_cgatherv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -177,7 +179,9 @@ subroutine psb_lgather_multivect(globx, locx, desc_a, info, iroot) character(len=20) :: name, ch_err name='psb_cgatherv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_lhalo.f90 b/base/comm/psb_lhalo.f90 index f08bdf70..7d60284d 100644 --- a/base/comm/psb_lhalo.f90 +++ b/base/comm/psb_lhalo.f90 @@ -75,7 +75,9 @@ subroutine psb_lhalo_vect(x,desc_a,info,work,tran,mode,data) logical :: aliw name='psb_lhalov' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -214,7 +216,9 @@ subroutine psb_lhalo_multivect(x,desc_a,info,work,tran,mode,data) logical :: aliw name='psb_lhalov' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_lovrl.f90 b/base/comm/psb_lovrl.f90 index 94adc24d..2cecf990 100644 --- a/base/comm/psb_lovrl.f90 +++ b/base/comm/psb_lovrl.f90 @@ -84,7 +84,9 @@ subroutine psb_lovrl_vect(x,desc_a,info,work,update,mode) logical :: aliw name='psb_lovrlv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -209,7 +211,9 @@ subroutine psb_lovrl_multivect(x,desc_a,info,work,update,mode) logical :: aliw name='psb_lovrlv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_lscatter.F90 b/base/comm/psb_lscatter.F90 index 22081079..43a9d4fa 100644 --- a/base/comm/psb_lscatter.F90 +++ b/base/comm/psb_lscatter.F90 @@ -62,7 +62,9 @@ subroutine psb_lscatter_vect(globx, locx, desc_a, info, root, mold) integer(psb_ipk_) :: debug_level, debug_unit name='psb_scatter_vect' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) ictxt=desc_a%get_context() diff --git a/base/comm/psb_lspgather.F90 b/base/comm/psb_lspgather.F90 index 742c89de..d74b1adb 100644 --- a/base/comm/psb_lspgather.F90 +++ b/base/comm/psb_lspgather.F90 @@ -64,7 +64,9 @@ subroutine psb_lsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep integer(psb_ipk_) :: debug_level, debug_unit name='psb_gather' - if (psb_get_errstatus().ne.0) return + if (psb_get_errstatus().ne.0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -205,7 +207,9 @@ subroutine psb_@LX@sp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,k integer(psb_ipk_) :: debug_level, debug_unit name='psb_gather' - if (psb_get_errstatus().ne.0) return + if (psb_get_errstatus().ne.0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_mgather_a.f90 b/base/comm/psb_mgather_a.f90 index 6b9467ff..72bbaac4 100644 --- a/base/comm/psb_mgather_a.f90 +++ b/base/comm/psb_mgather_a.f90 @@ -65,7 +65,9 @@ subroutine psb_mgatherm(globx, locx, desc_a, info, iroot) character(len=20) :: name, ch_err name='psb_mgatherm' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -237,7 +239,9 @@ subroutine psb_mgatherv(globx, locx, desc_a, info, iroot) character(len=20) :: name, ch_err name='psb_mgatherv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_mhalo_a.f90 b/base/comm/psb_mhalo_a.f90 index 6762633a..e804f4c7 100644 --- a/base/comm/psb_mhalo_a.f90 +++ b/base/comm/psb_mhalo_a.f90 @@ -75,7 +75,9 @@ subroutine psb_mhalom(x,desc_a,info,jx,ik,work,tran,mode,data) logical :: aliw name='psb_mhalom' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -282,7 +284,9 @@ subroutine psb_mhalov(x,desc_a,info,work,tran,mode,data) logical :: aliw name='psb_mhalov' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_movrl_a.f90 b/base/comm/psb_movrl_a.f90 index 95f8f034..e941c319 100644 --- a/base/comm/psb_movrl_a.f90 +++ b/base/comm/psb_movrl_a.f90 @@ -86,7 +86,9 @@ subroutine psb_movrlm(x,desc_a,info,jx,ik,work,update,mode) logical :: aliw name='psb_movrlm' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -281,7 +283,9 @@ subroutine psb_movrlv(x,desc_a,info,work,update,mode) logical :: aliw name='psb_movrlv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_mscatter_a.F90 b/base/comm/psb_mscatter_a.F90 index 826ece53..0aa5fd66 100644 --- a/base/comm/psb_mscatter_a.F90 +++ b/base/comm/psb_mscatter_a.F90 @@ -73,7 +73,9 @@ subroutine psb_mscatterm(globx, locx, desc_a, info, root) character(len=20) :: name, ch_err name='psb_scatterm' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -315,7 +317,9 @@ subroutine psb_mscatterv(globx, locx, desc_a, info, root) integer(psb_ipk_) :: debug_level, debug_unit name='psb_scatterv' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) ictxt=desc_a%get_context() diff --git a/base/comm/psb_sgather.f90 b/base/comm/psb_sgather.f90 index 13192b99..f9c5ab0b 100644 --- a/base/comm/psb_sgather.f90 +++ b/base/comm/psb_sgather.f90 @@ -64,7 +64,9 @@ subroutine psb_sgather_vect(globx, locx, desc_a, info, iroot) character(len=20) :: name, ch_err name='psb_cgatherv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -177,7 +179,9 @@ subroutine psb_sgather_multivect(globx, locx, desc_a, info, iroot) character(len=20) :: name, ch_err name='psb_cgatherv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_sgather_a.f90 b/base/comm/psb_sgather_a.f90 index 62146841..d5a8e966 100644 --- a/base/comm/psb_sgather_a.f90 +++ b/base/comm/psb_sgather_a.f90 @@ -65,7 +65,9 @@ subroutine psb_sgatherm(globx, locx, desc_a, info, iroot) character(len=20) :: name, ch_err name='psb_sgatherm' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -237,7 +239,9 @@ subroutine psb_sgatherv(globx, locx, desc_a, info, iroot) character(len=20) :: name, ch_err name='psb_sgatherv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_shalo.f90 b/base/comm/psb_shalo.f90 index 444c43fe..d5f2b881 100644 --- a/base/comm/psb_shalo.f90 +++ b/base/comm/psb_shalo.f90 @@ -75,7 +75,9 @@ subroutine psb_shalo_vect(x,desc_a,info,work,tran,mode,data) logical :: aliw name='psb_shalov' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -214,7 +216,9 @@ subroutine psb_shalo_multivect(x,desc_a,info,work,tran,mode,data) logical :: aliw name='psb_shalov' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_shalo_a.f90 b/base/comm/psb_shalo_a.f90 index 5e9b8354..e5fb1617 100644 --- a/base/comm/psb_shalo_a.f90 +++ b/base/comm/psb_shalo_a.f90 @@ -75,7 +75,9 @@ subroutine psb_shalom(x,desc_a,info,jx,ik,work,tran,mode,data) logical :: aliw name='psb_shalom' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -282,7 +284,9 @@ subroutine psb_shalov(x,desc_a,info,work,tran,mode,data) logical :: aliw name='psb_shalov' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_sovrl.f90 b/base/comm/psb_sovrl.f90 index 83f9dcc5..32dc9508 100644 --- a/base/comm/psb_sovrl.f90 +++ b/base/comm/psb_sovrl.f90 @@ -84,7 +84,9 @@ subroutine psb_sovrl_vect(x,desc_a,info,work,update,mode) logical :: aliw name='psb_sovrlv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -209,7 +211,9 @@ subroutine psb_sovrl_multivect(x,desc_a,info,work,update,mode) logical :: aliw name='psb_sovrlv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_sovrl_a.f90 b/base/comm/psb_sovrl_a.f90 index e12a4c6a..754e2228 100644 --- a/base/comm/psb_sovrl_a.f90 +++ b/base/comm/psb_sovrl_a.f90 @@ -86,7 +86,9 @@ subroutine psb_sovrlm(x,desc_a,info,jx,ik,work,update,mode) logical :: aliw name='psb_sovrlm' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -281,7 +283,9 @@ subroutine psb_sovrlv(x,desc_a,info,work,update,mode) logical :: aliw name='psb_sovrlv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_sscatter.F90 b/base/comm/psb_sscatter.F90 index f8a22a62..b5c39cfb 100644 --- a/base/comm/psb_sscatter.F90 +++ b/base/comm/psb_sscatter.F90 @@ -62,7 +62,9 @@ subroutine psb_sscatter_vect(globx, locx, desc_a, info, root, mold) integer(psb_ipk_) :: debug_level, debug_unit name='psb_scatter_vect' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) ictxt=desc_a%get_context() diff --git a/base/comm/psb_sscatter_a.F90 b/base/comm/psb_sscatter_a.F90 index 2a07d297..c7e944d0 100644 --- a/base/comm/psb_sscatter_a.F90 +++ b/base/comm/psb_sscatter_a.F90 @@ -73,7 +73,9 @@ subroutine psb_sscatterm(globx, locx, desc_a, info, root) character(len=20) :: name, ch_err name='psb_scatterm' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -315,7 +317,9 @@ subroutine psb_sscatterv(globx, locx, desc_a, info, root) integer(psb_ipk_) :: debug_level, debug_unit name='psb_scatterv' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) ictxt=desc_a%get_context() diff --git a/base/comm/psb_sspgather.F90 b/base/comm/psb_sspgather.F90 index d101b325..886632d7 100644 --- a/base/comm/psb_sspgather.F90 +++ b/base/comm/psb_sspgather.F90 @@ -64,7 +64,9 @@ subroutine psb_ssp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep integer(psb_ipk_) :: debug_level, debug_unit name='psb_gather' - if (psb_get_errstatus().ne.0) return + if (psb_get_errstatus().ne.0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -205,7 +207,9 @@ subroutine psb_lssp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,kee integer(psb_ipk_) :: debug_level, debug_unit name='psb_gather' - if (psb_get_errstatus().ne.0) return + if (psb_get_errstatus().ne.0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_zgather.f90 b/base/comm/psb_zgather.f90 index 59b6df40..eee5c134 100644 --- a/base/comm/psb_zgather.f90 +++ b/base/comm/psb_zgather.f90 @@ -64,7 +64,9 @@ subroutine psb_zgather_vect(globx, locx, desc_a, info, iroot) character(len=20) :: name, ch_err name='psb_cgatherv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -177,7 +179,9 @@ subroutine psb_zgather_multivect(globx, locx, desc_a, info, iroot) character(len=20) :: name, ch_err name='psb_cgatherv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_zgather_a.f90 b/base/comm/psb_zgather_a.f90 index 01456487..019d007d 100644 --- a/base/comm/psb_zgather_a.f90 +++ b/base/comm/psb_zgather_a.f90 @@ -65,7 +65,9 @@ subroutine psb_zgatherm(globx, locx, desc_a, info, iroot) character(len=20) :: name, ch_err name='psb_zgatherm' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -237,7 +239,9 @@ subroutine psb_zgatherv(globx, locx, desc_a, info, iroot) character(len=20) :: name, ch_err name='psb_zgatherv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_zhalo.f90 b/base/comm/psb_zhalo.f90 index 3d9db06c..5a7c3107 100644 --- a/base/comm/psb_zhalo.f90 +++ b/base/comm/psb_zhalo.f90 @@ -75,7 +75,9 @@ subroutine psb_zhalo_vect(x,desc_a,info,work,tran,mode,data) logical :: aliw name='psb_zhalov' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -214,7 +216,9 @@ subroutine psb_zhalo_multivect(x,desc_a,info,work,tran,mode,data) logical :: aliw name='psb_zhalov' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_zhalo_a.f90 b/base/comm/psb_zhalo_a.f90 index 6fe5d70a..67bc1d1d 100644 --- a/base/comm/psb_zhalo_a.f90 +++ b/base/comm/psb_zhalo_a.f90 @@ -75,7 +75,9 @@ subroutine psb_zhalom(x,desc_a,info,jx,ik,work,tran,mode,data) logical :: aliw name='psb_zhalom' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -282,7 +284,9 @@ subroutine psb_zhalov(x,desc_a,info,work,tran,mode,data) logical :: aliw name='psb_zhalov' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_zovrl.f90 b/base/comm/psb_zovrl.f90 index 033bd017..e91c366b 100644 --- a/base/comm/psb_zovrl.f90 +++ b/base/comm/psb_zovrl.f90 @@ -84,7 +84,9 @@ subroutine psb_zovrl_vect(x,desc_a,info,work,update,mode) logical :: aliw name='psb_zovrlv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -209,7 +211,9 @@ subroutine psb_zovrl_multivect(x,desc_a,info,work,update,mode) logical :: aliw name='psb_zovrlv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_zovrl_a.f90 b/base/comm/psb_zovrl_a.f90 index 00c084a6..a69fa7d2 100644 --- a/base/comm/psb_zovrl_a.f90 +++ b/base/comm/psb_zovrl_a.f90 @@ -86,7 +86,9 @@ subroutine psb_zovrlm(x,desc_a,info,jx,ik,work,update,mode) logical :: aliw name='psb_zovrlm' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -281,7 +283,9 @@ subroutine psb_zovrlv(x,desc_a,info,work,update,mode) logical :: aliw name='psb_zovrlv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/comm/psb_zscatter.F90 b/base/comm/psb_zscatter.F90 index dc008989..23f071a5 100644 --- a/base/comm/psb_zscatter.F90 +++ b/base/comm/psb_zscatter.F90 @@ -62,7 +62,9 @@ subroutine psb_zscatter_vect(globx, locx, desc_a, info, root, mold) integer(psb_ipk_) :: debug_level, debug_unit name='psb_scatter_vect' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) ictxt=desc_a%get_context() diff --git a/base/comm/psb_zscatter_a.F90 b/base/comm/psb_zscatter_a.F90 index aa501562..07658454 100644 --- a/base/comm/psb_zscatter_a.F90 +++ b/base/comm/psb_zscatter_a.F90 @@ -73,7 +73,9 @@ subroutine psb_zscatterm(globx, locx, desc_a, info, root) character(len=20) :: name, ch_err name='psb_scatterm' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -315,7 +317,9 @@ subroutine psb_zscatterv(globx, locx, desc_a, info, root) integer(psb_ipk_) :: debug_level, debug_unit name='psb_scatterv' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) ictxt=desc_a%get_context() diff --git a/base/comm/psb_zspgather.F90 b/base/comm/psb_zspgather.F90 index ba01c9a2..0f6b6887 100644 --- a/base/comm/psb_zspgather.F90 +++ b/base/comm/psb_zspgather.F90 @@ -64,7 +64,9 @@ subroutine psb_zsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep integer(psb_ipk_) :: debug_level, debug_unit name='psb_gather' - if (psb_get_errstatus().ne.0) return + if (psb_get_errstatus().ne.0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -205,7 +207,9 @@ subroutine psb_lzsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,kee integer(psb_ipk_) :: debug_level, debug_unit name='psb_gather' - if (psb_get_errstatus().ne.0) return + if (psb_get_errstatus().ne.0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/psblas/psb_camax.f90 b/base/psblas/psb_camax.f90 index 9add308c..a707d494 100644 --- a/base/psblas/psb_camax.f90 +++ b/base/psblas/psb_camax.f90 @@ -64,7 +64,9 @@ function psb_camax(x,desc_a, info, jx,global) result(res) character(len=20) :: name, ch_err name='psb_camax' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -190,7 +192,9 @@ function psb_camaxv (x,desc_a, info,global) result(res) character(len=20) :: name, ch_err name='psb_camaxv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -272,7 +276,9 @@ function psb_camax_vect(x, desc_a, info,global) result(res) character(len=20) :: name, ch_err name='psb_camaxv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -400,7 +406,9 @@ subroutine psb_camaxvs(res,x,desc_a, info,global) character(len=20) :: name, ch_err name='psb_camaxvs' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -521,7 +529,9 @@ subroutine psb_cmamaxs(res,x,desc_a, info,jx,global) character(len=20) :: name, ch_err name='psb_cmamaxs' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/psblas/psb_casum.f90 b/base/psblas/psb_casum.f90 index 281c66d4..0c85198d 100644 --- a/base/psblas/psb_casum.f90 +++ b/base/psblas/psb_casum.f90 @@ -64,7 +64,9 @@ function psb_casum (x,desc_a, info, jx,global) result(res) character(len=20) :: name, ch_err name='psb_casum' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -152,7 +154,9 @@ function psb_casum_vect(x, desc_a, info,global) result(res) character(len=20) :: name, ch_err name='psb_casumv' - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -287,7 +291,9 @@ function psb_casumv(x,desc_a, info,global) result(res) character(len=20) :: name, ch_err name='psb_casumv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -416,7 +422,9 @@ subroutine psb_casumvs(res,x,desc_a, info,global) character(len=20) :: name, ch_err name='psb_casumvs' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/psblas/psb_caxpby.f90 b/base/psblas/psb_caxpby.f90 index 622890be..983da684 100644 --- a/base/psblas/psb_caxpby.f90 +++ b/base/psblas/psb_caxpby.f90 @@ -151,7 +151,9 @@ subroutine psb_caxpby(alpha, x, beta,y,desc_a,info, n, jx, jy) character(len=20) :: name, ch_err name='psb_geaxpby' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -298,7 +300,9 @@ subroutine psb_caxpbyv(alpha, x, beta,y,desc_a,info) logical, parameter :: debug=.false. name='psb_geaxpby' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/psblas/psb_cdot.f90 b/base/psblas/psb_cdot.f90 index 243e4489..fa38a847 100644 --- a/base/psblas/psb_cdot.f90 +++ b/base/psblas/psb_cdot.f90 @@ -175,7 +175,9 @@ function psb_cdot(x, y,desc_a, info, jx, jy,global) result(res) character(len=20) :: name, ch_err name='psb_cdot' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -323,7 +325,9 @@ function psb_cdotv(x, y,desc_a, info,global) result(res) character(len=20) :: name, ch_err name='psb_cdot' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -456,7 +460,9 @@ subroutine psb_cdotvs(res, x, y,desc_a, info,global) character(len=20) :: name, ch_err name='psb_cdot' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -587,7 +593,9 @@ subroutine psb_cmdots(res, x, y, desc_a, info,global) character(len=20) :: name, ch_err name='psb_cmdots' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/psblas/psb_cnrm2.f90 b/base/psblas/psb_cnrm2.f90 index fec70a98..079fcde5 100644 --- a/base/psblas/psb_cnrm2.f90 +++ b/base/psblas/psb_cnrm2.f90 @@ -67,7 +67,9 @@ function psb_cnrm2(x, desc_a, info, jx,global) result(res) character(len=20) :: name, ch_err name='psb_cnrm2' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -199,7 +201,9 @@ function psb_cnrm2v(x, desc_a, info,global) result(res) character(len=20) :: name, ch_err name='psb_cnrm2v' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -283,7 +287,9 @@ function psb_cnrm2_vect(x, desc_a, info,global) result(res) character(len=20) :: name, ch_err name='psb_cnrm2v' - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -418,7 +424,9 @@ subroutine psb_cnrm2vs(res, x, desc_a, info,global) character(len=20) :: name, ch_err name='psb_cnrm2' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/psblas/psb_cnrmi.f90 b/base/psblas/psb_cnrmi.f90 index 07d871d8..08ae25b9 100644 --- a/base/psblas/psb_cnrmi.f90 +++ b/base/psblas/psb_cnrmi.f90 @@ -59,7 +59,9 @@ function psb_cnrmi(a,desc_a,info,global) result(res) character(len=20) :: name, ch_err name='psb_cnrmi' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/psblas/psb_cspmm.f90 b/base/psblas/psb_cspmm.f90 index c72fb48c..e4b81630 100644 --- a/base/psblas/psb_cspmm.f90 +++ b/base/psblas/psb_cspmm.f90 @@ -93,7 +93,9 @@ subroutine psb_cspmm(alpha,a,x,beta,y,desc_a,info,& integer(psb_ipk_) :: debug_level, debug_unit name='psb_cspmm' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) debug_unit = psb_get_debug_unit() @@ -442,7 +444,9 @@ subroutine psb_cspmv(alpha,a,x,beta,y,desc_a,info,& integer(psb_ipk_) :: debug_level, debug_unit name='psb_cspmv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) debug_unit = psb_get_debug_unit() @@ -699,7 +703,9 @@ subroutine psb_cspmv_vect(alpha,a,x,beta,y,desc_a,info,& integer(psb_ipk_) :: debug_level, debug_unit name='psb_cspmv' - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) debug_unit = psb_get_debug_unit() diff --git a/base/psblas/psb_cspsm.f90 b/base/psblas/psb_cspsm.f90 index 725a0617..c9479e6b 100644 --- a/base/psblas/psb_cspsm.f90 +++ b/base/psblas/psb_cspsm.f90 @@ -105,7 +105,9 @@ subroutine psb_cspsm(alpha,a,x,beta,y,desc_a,info,& logical :: aliw name='psb_cspsm' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -379,7 +381,9 @@ subroutine psb_cspsv(alpha,a,x,beta,y,desc_a,info,& logical :: aliw name='psb_cspsv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -573,7 +577,9 @@ subroutine psb_cspsv_vect(alpha,a,x,beta,y,desc_a,info,& logical :: aliw name='psb_sspsv' - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/psblas/psb_damax.f90 b/base/psblas/psb_damax.f90 index 58f0a17b..dadc3d07 100644 --- a/base/psblas/psb_damax.f90 +++ b/base/psblas/psb_damax.f90 @@ -64,7 +64,9 @@ function psb_damax(x,desc_a, info, jx,global) result(res) character(len=20) :: name, ch_err name='psb_damax' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -190,7 +192,9 @@ function psb_damaxv (x,desc_a, info,global) result(res) character(len=20) :: name, ch_err name='psb_damaxv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -272,7 +276,9 @@ function psb_damax_vect(x, desc_a, info,global) result(res) character(len=20) :: name, ch_err name='psb_damaxv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -400,7 +406,9 @@ subroutine psb_damaxvs(res,x,desc_a, info,global) character(len=20) :: name, ch_err name='psb_damaxvs' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -521,7 +529,9 @@ subroutine psb_dmamaxs(res,x,desc_a, info,jx,global) character(len=20) :: name, ch_err name='psb_dmamaxs' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/psblas/psb_dasum.f90 b/base/psblas/psb_dasum.f90 index 704319ec..4d5d7e29 100644 --- a/base/psblas/psb_dasum.f90 +++ b/base/psblas/psb_dasum.f90 @@ -64,7 +64,9 @@ function psb_dasum (x,desc_a, info, jx,global) result(res) character(len=20) :: name, ch_err name='psb_dasum' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -152,7 +154,9 @@ function psb_dasum_vect(x, desc_a, info,global) result(res) character(len=20) :: name, ch_err name='psb_dasumv' - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -287,7 +291,9 @@ function psb_dasumv(x,desc_a, info,global) result(res) character(len=20) :: name, ch_err name='psb_dasumv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -416,7 +422,9 @@ subroutine psb_dasumvs(res,x,desc_a, info,global) character(len=20) :: name, ch_err name='psb_dasumvs' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/psblas/psb_daxpby.f90 b/base/psblas/psb_daxpby.f90 index 25099c63..4ac0aed0 100644 --- a/base/psblas/psb_daxpby.f90 +++ b/base/psblas/psb_daxpby.f90 @@ -151,7 +151,9 @@ subroutine psb_daxpby(alpha, x, beta,y,desc_a,info, n, jx, jy) character(len=20) :: name, ch_err name='psb_geaxpby' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -298,7 +300,9 @@ subroutine psb_daxpbyv(alpha, x, beta,y,desc_a,info) logical, parameter :: debug=.false. name='psb_geaxpby' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/psblas/psb_ddot.f90 b/base/psblas/psb_ddot.f90 index 24c9f593..0183786c 100644 --- a/base/psblas/psb_ddot.f90 +++ b/base/psblas/psb_ddot.f90 @@ -175,7 +175,9 @@ function psb_ddot(x, y,desc_a, info, jx, jy,global) result(res) character(len=20) :: name, ch_err name='psb_ddot' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -323,7 +325,9 @@ function psb_ddotv(x, y,desc_a, info,global) result(res) character(len=20) :: name, ch_err name='psb_ddot' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -456,7 +460,9 @@ subroutine psb_ddotvs(res, x, y,desc_a, info,global) character(len=20) :: name, ch_err name='psb_ddot' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -587,7 +593,9 @@ subroutine psb_dmdots(res, x, y, desc_a, info,global) character(len=20) :: name, ch_err name='psb_dmdots' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/psblas/psb_dnrm2.f90 b/base/psblas/psb_dnrm2.f90 index 04578197..3b7aaaeb 100644 --- a/base/psblas/psb_dnrm2.f90 +++ b/base/psblas/psb_dnrm2.f90 @@ -67,7 +67,9 @@ function psb_dnrm2(x, desc_a, info, jx,global) result(res) character(len=20) :: name, ch_err name='psb_dnrm2' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -199,7 +201,9 @@ function psb_dnrm2v(x, desc_a, info,global) result(res) character(len=20) :: name, ch_err name='psb_dnrm2v' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -283,7 +287,9 @@ function psb_dnrm2_vect(x, desc_a, info,global) result(res) character(len=20) :: name, ch_err name='psb_dnrm2v' - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -418,7 +424,9 @@ subroutine psb_dnrm2vs(res, x, desc_a, info,global) character(len=20) :: name, ch_err name='psb_dnrm2' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/psblas/psb_dnrmi.f90 b/base/psblas/psb_dnrmi.f90 index dedc14a1..b90767e5 100644 --- a/base/psblas/psb_dnrmi.f90 +++ b/base/psblas/psb_dnrmi.f90 @@ -59,7 +59,9 @@ function psb_dnrmi(a,desc_a,info,global) result(res) character(len=20) :: name, ch_err name='psb_dnrmi' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/psblas/psb_dspmm.f90 b/base/psblas/psb_dspmm.f90 index 30e793a2..8a66d1a3 100644 --- a/base/psblas/psb_dspmm.f90 +++ b/base/psblas/psb_dspmm.f90 @@ -93,7 +93,9 @@ subroutine psb_dspmm(alpha,a,x,beta,y,desc_a,info,& integer(psb_ipk_) :: debug_level, debug_unit name='psb_dspmm' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) debug_unit = psb_get_debug_unit() @@ -442,7 +444,9 @@ subroutine psb_dspmv(alpha,a,x,beta,y,desc_a,info,& integer(psb_ipk_) :: debug_level, debug_unit name='psb_dspmv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) debug_unit = psb_get_debug_unit() @@ -699,7 +703,9 @@ subroutine psb_dspmv_vect(alpha,a,x,beta,y,desc_a,info,& integer(psb_ipk_) :: debug_level, debug_unit name='psb_dspmv' - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) debug_unit = psb_get_debug_unit() diff --git a/base/psblas/psb_dspsm.f90 b/base/psblas/psb_dspsm.f90 index d6de2aed..f140eb51 100644 --- a/base/psblas/psb_dspsm.f90 +++ b/base/psblas/psb_dspsm.f90 @@ -105,7 +105,9 @@ subroutine psb_dspsm(alpha,a,x,beta,y,desc_a,info,& logical :: aliw name='psb_dspsm' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -379,7 +381,9 @@ subroutine psb_dspsv(alpha,a,x,beta,y,desc_a,info,& logical :: aliw name='psb_dspsv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -573,7 +577,9 @@ subroutine psb_dspsv_vect(alpha,a,x,beta,y,desc_a,info,& logical :: aliw name='psb_sspsv' - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/psblas/psb_samax.f90 b/base/psblas/psb_samax.f90 index 3365545e..42c26e81 100644 --- a/base/psblas/psb_samax.f90 +++ b/base/psblas/psb_samax.f90 @@ -64,7 +64,9 @@ function psb_samax(x,desc_a, info, jx,global) result(res) character(len=20) :: name, ch_err name='psb_samax' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -190,7 +192,9 @@ function psb_samaxv (x,desc_a, info,global) result(res) character(len=20) :: name, ch_err name='psb_samaxv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -272,7 +276,9 @@ function psb_samax_vect(x, desc_a, info,global) result(res) character(len=20) :: name, ch_err name='psb_samaxv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -400,7 +406,9 @@ subroutine psb_samaxvs(res,x,desc_a, info,global) character(len=20) :: name, ch_err name='psb_samaxvs' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -521,7 +529,9 @@ subroutine psb_smamaxs(res,x,desc_a, info,jx,global) character(len=20) :: name, ch_err name='psb_smamaxs' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/psblas/psb_sasum.f90 b/base/psblas/psb_sasum.f90 index 606b8dc9..12c3550a 100644 --- a/base/psblas/psb_sasum.f90 +++ b/base/psblas/psb_sasum.f90 @@ -64,7 +64,9 @@ function psb_sasum (x,desc_a, info, jx,global) result(res) character(len=20) :: name, ch_err name='psb_sasum' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -152,7 +154,9 @@ function psb_sasum_vect(x, desc_a, info,global) result(res) character(len=20) :: name, ch_err name='psb_sasumv' - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -287,7 +291,9 @@ function psb_sasumv(x,desc_a, info,global) result(res) character(len=20) :: name, ch_err name='psb_sasumv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -416,7 +422,9 @@ subroutine psb_sasumvs(res,x,desc_a, info,global) character(len=20) :: name, ch_err name='psb_sasumvs' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/psblas/psb_saxpby.f90 b/base/psblas/psb_saxpby.f90 index 4219289d..2e63c8c5 100644 --- a/base/psblas/psb_saxpby.f90 +++ b/base/psblas/psb_saxpby.f90 @@ -151,7 +151,9 @@ subroutine psb_saxpby(alpha, x, beta,y,desc_a,info, n, jx, jy) character(len=20) :: name, ch_err name='psb_geaxpby' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -298,7 +300,9 @@ subroutine psb_saxpbyv(alpha, x, beta,y,desc_a,info) logical, parameter :: debug=.false. name='psb_geaxpby' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/psblas/psb_sdot.f90 b/base/psblas/psb_sdot.f90 index 30a3f76f..4eb605ef 100644 --- a/base/psblas/psb_sdot.f90 +++ b/base/psblas/psb_sdot.f90 @@ -175,7 +175,9 @@ function psb_sdot(x, y,desc_a, info, jx, jy,global) result(res) character(len=20) :: name, ch_err name='psb_sdot' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -323,7 +325,9 @@ function psb_sdotv(x, y,desc_a, info,global) result(res) character(len=20) :: name, ch_err name='psb_sdot' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -456,7 +460,9 @@ subroutine psb_sdotvs(res, x, y,desc_a, info,global) character(len=20) :: name, ch_err name='psb_sdot' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -587,7 +593,9 @@ subroutine psb_smdots(res, x, y, desc_a, info,global) character(len=20) :: name, ch_err name='psb_smdots' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/psblas/psb_snrm2.f90 b/base/psblas/psb_snrm2.f90 index 5fc8af8c..155aa381 100644 --- a/base/psblas/psb_snrm2.f90 +++ b/base/psblas/psb_snrm2.f90 @@ -67,7 +67,9 @@ function psb_snrm2(x, desc_a, info, jx,global) result(res) character(len=20) :: name, ch_err name='psb_snrm2' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -199,7 +201,9 @@ function psb_snrm2v(x, desc_a, info,global) result(res) character(len=20) :: name, ch_err name='psb_snrm2v' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -283,7 +287,9 @@ function psb_snrm2_vect(x, desc_a, info,global) result(res) character(len=20) :: name, ch_err name='psb_snrm2v' - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -418,7 +424,9 @@ subroutine psb_snrm2vs(res, x, desc_a, info,global) character(len=20) :: name, ch_err name='psb_snrm2' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/psblas/psb_snrmi.f90 b/base/psblas/psb_snrmi.f90 index b723f57a..bc294744 100644 --- a/base/psblas/psb_snrmi.f90 +++ b/base/psblas/psb_snrmi.f90 @@ -59,7 +59,9 @@ function psb_snrmi(a,desc_a,info,global) result(res) character(len=20) :: name, ch_err name='psb_snrmi' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/psblas/psb_sspmm.f90 b/base/psblas/psb_sspmm.f90 index 1d6cd17d..bc163b74 100644 --- a/base/psblas/psb_sspmm.f90 +++ b/base/psblas/psb_sspmm.f90 @@ -93,7 +93,9 @@ subroutine psb_sspmm(alpha,a,x,beta,y,desc_a,info,& integer(psb_ipk_) :: debug_level, debug_unit name='psb_sspmm' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) debug_unit = psb_get_debug_unit() @@ -442,7 +444,9 @@ subroutine psb_sspmv(alpha,a,x,beta,y,desc_a,info,& integer(psb_ipk_) :: debug_level, debug_unit name='psb_sspmv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) debug_unit = psb_get_debug_unit() @@ -699,7 +703,9 @@ subroutine psb_sspmv_vect(alpha,a,x,beta,y,desc_a,info,& integer(psb_ipk_) :: debug_level, debug_unit name='psb_sspmv' - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) debug_unit = psb_get_debug_unit() diff --git a/base/psblas/psb_sspsm.f90 b/base/psblas/psb_sspsm.f90 index b91b2257..3eb83eef 100644 --- a/base/psblas/psb_sspsm.f90 +++ b/base/psblas/psb_sspsm.f90 @@ -105,7 +105,9 @@ subroutine psb_sspsm(alpha,a,x,beta,y,desc_a,info,& logical :: aliw name='psb_sspsm' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -379,7 +381,9 @@ subroutine psb_sspsv(alpha,a,x,beta,y,desc_a,info,& logical :: aliw name='psb_sspsv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -573,7 +577,9 @@ subroutine psb_sspsv_vect(alpha,a,x,beta,y,desc_a,info,& logical :: aliw name='psb_sspsv' - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/psblas/psb_zamax.f90 b/base/psblas/psb_zamax.f90 index b3bb8859..94490d6d 100644 --- a/base/psblas/psb_zamax.f90 +++ b/base/psblas/psb_zamax.f90 @@ -64,7 +64,9 @@ function psb_zamax(x,desc_a, info, jx,global) result(res) character(len=20) :: name, ch_err name='psb_zamax' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -190,7 +192,9 @@ function psb_zamaxv (x,desc_a, info,global) result(res) character(len=20) :: name, ch_err name='psb_zamaxv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -272,7 +276,9 @@ function psb_zamax_vect(x, desc_a, info,global) result(res) character(len=20) :: name, ch_err name='psb_zamaxv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -400,7 +406,9 @@ subroutine psb_zamaxvs(res,x,desc_a, info,global) character(len=20) :: name, ch_err name='psb_zamaxvs' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -521,7 +529,9 @@ subroutine psb_zmamaxs(res,x,desc_a, info,jx,global) character(len=20) :: name, ch_err name='psb_zmamaxs' - if (psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/psblas/psb_zasum.f90 b/base/psblas/psb_zasum.f90 index e33c8cee..22b196b1 100644 --- a/base/psblas/psb_zasum.f90 +++ b/base/psblas/psb_zasum.f90 @@ -64,7 +64,9 @@ function psb_zasum (x,desc_a, info, jx,global) result(res) character(len=20) :: name, ch_err name='psb_zasum' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -152,7 +154,9 @@ function psb_zasum_vect(x, desc_a, info,global) result(res) character(len=20) :: name, ch_err name='psb_zasumv' - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -287,7 +291,9 @@ function psb_zasumv(x,desc_a, info,global) result(res) character(len=20) :: name, ch_err name='psb_zasumv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -416,7 +422,9 @@ subroutine psb_zasumvs(res,x,desc_a, info,global) character(len=20) :: name, ch_err name='psb_zasumvs' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/psblas/psb_zaxpby.f90 b/base/psblas/psb_zaxpby.f90 index a2e742df..eb74c4d5 100644 --- a/base/psblas/psb_zaxpby.f90 +++ b/base/psblas/psb_zaxpby.f90 @@ -151,7 +151,9 @@ subroutine psb_zaxpby(alpha, x, beta,y,desc_a,info, n, jx, jy) character(len=20) :: name, ch_err name='psb_geaxpby' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -298,7 +300,9 @@ subroutine psb_zaxpbyv(alpha, x, beta,y,desc_a,info) logical, parameter :: debug=.false. name='psb_geaxpby' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/psblas/psb_zdot.f90 b/base/psblas/psb_zdot.f90 index fd33ca1e..ea07a68e 100644 --- a/base/psblas/psb_zdot.f90 +++ b/base/psblas/psb_zdot.f90 @@ -175,7 +175,9 @@ function psb_zdot(x, y,desc_a, info, jx, jy,global) result(res) character(len=20) :: name, ch_err name='psb_zdot' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -323,7 +325,9 @@ function psb_zdotv(x, y,desc_a, info,global) result(res) character(len=20) :: name, ch_err name='psb_zdot' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -456,7 +460,9 @@ subroutine psb_zdotvs(res, x, y,desc_a, info,global) character(len=20) :: name, ch_err name='psb_zdot' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -587,7 +593,9 @@ subroutine psb_zmdots(res, x, y, desc_a, info,global) character(len=20) :: name, ch_err name='psb_zmdots' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/psblas/psb_znrm2.f90 b/base/psblas/psb_znrm2.f90 index 27aad0b2..a3fa1592 100644 --- a/base/psblas/psb_znrm2.f90 +++ b/base/psblas/psb_znrm2.f90 @@ -67,7 +67,9 @@ function psb_znrm2(x, desc_a, info, jx,global) result(res) character(len=20) :: name, ch_err name='psb_znrm2' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -199,7 +201,9 @@ function psb_znrm2v(x, desc_a, info,global) result(res) character(len=20) :: name, ch_err name='psb_znrm2v' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -283,7 +287,9 @@ function psb_znrm2_vect(x, desc_a, info,global) result(res) character(len=20) :: name, ch_err name='psb_znrm2v' - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -418,7 +424,9 @@ subroutine psb_znrm2vs(res, x, desc_a, info,global) character(len=20) :: name, ch_err name='psb_znrm2' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/psblas/psb_znrmi.f90 b/base/psblas/psb_znrmi.f90 index 3342de43..91bd2d53 100644 --- a/base/psblas/psb_znrmi.f90 +++ b/base/psblas/psb_znrmi.f90 @@ -59,7 +59,9 @@ function psb_znrmi(a,desc_a,info,global) result(res) character(len=20) :: name, ch_err name='psb_znrmi' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/psblas/psb_zspmm.f90 b/base/psblas/psb_zspmm.f90 index f608b333..0eeecf64 100644 --- a/base/psblas/psb_zspmm.f90 +++ b/base/psblas/psb_zspmm.f90 @@ -93,7 +93,9 @@ subroutine psb_zspmm(alpha,a,x,beta,y,desc_a,info,& integer(psb_ipk_) :: debug_level, debug_unit name='psb_zspmm' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) debug_unit = psb_get_debug_unit() @@ -442,7 +444,9 @@ subroutine psb_zspmv(alpha,a,x,beta,y,desc_a,info,& integer(psb_ipk_) :: debug_level, debug_unit name='psb_zspmv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) debug_unit = psb_get_debug_unit() @@ -699,7 +703,9 @@ subroutine psb_zspmv_vect(alpha,a,x,beta,y,desc_a,info,& integer(psb_ipk_) :: debug_level, debug_unit name='psb_zspmv' - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) debug_unit = psb_get_debug_unit() diff --git a/base/psblas/psb_zspsm.f90 b/base/psblas/psb_zspsm.f90 index 6dad2031..8e63381f 100644 --- a/base/psblas/psb_zspsm.f90 +++ b/base/psblas/psb_zspsm.f90 @@ -105,7 +105,9 @@ subroutine psb_zspsm(alpha,a,x,beta,y,desc_a,info,& logical :: aliw name='psb_zspsm' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -379,7 +381,9 @@ subroutine psb_zspsv(alpha,a,x,beta,y,desc_a,info,& logical :: aliw name='psb_zspsv' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -573,7 +577,9 @@ subroutine psb_zspsv_vect(alpha,a,x,beta,y,desc_a,info,& logical :: aliw name='psb_sspsv' - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/serial/psi_c_serial_impl.f90 b/base/serial/psi_c_serial_impl.f90 index 4794c38e..fdb2f27d 100644 --- a/base/serial/psi_c_serial_impl.f90 +++ b/base/serial/psi_c_serial_impl.f90 @@ -45,7 +45,9 @@ subroutine psi_caxpby(m,n,alpha, x, beta, y, info) character(len=20) :: name, ch_err name='psb_geaxpby' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -102,7 +104,9 @@ subroutine psi_caxpbyv(m,alpha, x, beta, y, info) character(len=20) :: name, ch_err name='psb_geaxpby' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/serial/psi_d_serial_impl.f90 b/base/serial/psi_d_serial_impl.f90 index 71f62cd5..0d87148e 100644 --- a/base/serial/psi_d_serial_impl.f90 +++ b/base/serial/psi_d_serial_impl.f90 @@ -45,7 +45,9 @@ subroutine psi_daxpby(m,n,alpha, x, beta, y, info) character(len=20) :: name, ch_err name='psb_geaxpby' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -102,7 +104,9 @@ subroutine psi_daxpbyv(m,alpha, x, beta, y, info) character(len=20) :: name, ch_err name='psb_geaxpby' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/serial/psi_e_serial_impl.f90 b/base/serial/psi_e_serial_impl.f90 index e226e3c6..7888366c 100644 --- a/base/serial/psi_e_serial_impl.f90 +++ b/base/serial/psi_e_serial_impl.f90 @@ -45,7 +45,9 @@ subroutine psi_eaxpby(m,n,alpha, x, beta, y, info) character(len=20) :: name, ch_err name='psb_geaxpby' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -102,7 +104,9 @@ subroutine psi_eaxpbyv(m,alpha, x, beta, y, info) character(len=20) :: name, ch_err name='psb_geaxpby' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/serial/psi_m_serial_impl.f90 b/base/serial/psi_m_serial_impl.f90 index a00ef6f5..2325477c 100644 --- a/base/serial/psi_m_serial_impl.f90 +++ b/base/serial/psi_m_serial_impl.f90 @@ -45,7 +45,9 @@ subroutine psi_maxpby(m,n,alpha, x, beta, y, info) character(len=20) :: name, ch_err name='psb_geaxpby' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -102,7 +104,9 @@ subroutine psi_maxpbyv(m,alpha, x, beta, y, info) character(len=20) :: name, ch_err name='psb_geaxpby' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/serial/psi_s_serial_impl.f90 b/base/serial/psi_s_serial_impl.f90 index cba56128..af48031a 100644 --- a/base/serial/psi_s_serial_impl.f90 +++ b/base/serial/psi_s_serial_impl.f90 @@ -45,7 +45,9 @@ subroutine psi_saxpby(m,n,alpha, x, beta, y, info) character(len=20) :: name, ch_err name='psb_geaxpby' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -102,7 +104,9 @@ subroutine psi_saxpbyv(m,alpha, x, beta, y, info) character(len=20) :: name, ch_err name='psb_geaxpby' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/serial/psi_z_serial_impl.f90 b/base/serial/psi_z_serial_impl.f90 index 9444f6c5..0fa9dea6 100644 --- a/base/serial/psi_z_serial_impl.f90 +++ b/base/serial/psi_z_serial_impl.f90 @@ -45,7 +45,9 @@ subroutine psi_zaxpby(m,n,alpha, x, beta, y, info) character(len=20) :: name, ch_err name='psb_geaxpby' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) @@ -102,7 +104,9 @@ subroutine psi_zaxpbyv(m,alpha, x, beta, y, info) character(len=20) :: name, ch_err name='psb_geaxpby' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) diff --git a/base/tools/psb_callc_a.f90 b/base/tools/psb_callc_a.f90 index 28a5d39c..11d71a67 100644 --- a/base/tools/psb_callc_a.f90 +++ b/base/tools/psb_callc_a.f90 @@ -60,7 +60,9 @@ subroutine psb_calloc(x, desc_a, info, n, lb) character(len=20) :: name name='psb_geall' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ err = 0 call psb_erractionsave(err_act) @@ -185,7 +187,9 @@ subroutine psb_callocv(x, desc_a,info,n) integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ name='psb_geall' call psb_erractionsave(err_act) diff --git a/base/tools/psb_casb_a.f90 b/base/tools/psb_casb_a.f90 index c1825eb7..c37eb113 100644 --- a/base/tools/psb_casb_a.f90 +++ b/base/tools/psb_casb_a.f90 @@ -58,7 +58,9 @@ subroutine psb_casb(x, desc_a, info, scratch) logical :: scratch_ character(len=20) :: name, ch_err - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ name='psb_cgeasb_m' call psb_erractionsave(err_act) diff --git a/base/tools/psb_cfree_a.f90 b/base/tools/psb_cfree_a.f90 index 49ab1810..dd408505 100644 --- a/base/tools/psb_cfree_a.f90 +++ b/base/tools/psb_cfree_a.f90 @@ -52,7 +52,9 @@ subroutine psb_cfree(x, desc_a, info) character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) name='psb_cfree' @@ -118,7 +120,9 @@ subroutine psb_cfreev(x, desc_a, info) character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) name='psb_cfreev' diff --git a/base/tools/psb_cins_a.f90 b/base/tools/psb_cins_a.f90 index cc2aeb71..844d6973 100644 --- a/base/tools/psb_cins_a.f90 +++ b/base/tools/psb_cins_a.f90 @@ -73,7 +73,9 @@ subroutine psb_cinsvi(m, irw, val, x, desc_a, info, dupl,local) logical :: local_ character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) name = 'psb_cinsvi' @@ -251,7 +253,9 @@ subroutine psb_cinsi(m, irw, val, x, desc_a, info, dupl,local) logical :: local_ character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) name = 'psb_cinsi' diff --git a/base/tools/psb_cspalloc.f90 b/base/tools/psb_cspalloc.f90 index be100ceb..5015ae34 100644 --- a/base/tools/psb_cspalloc.f90 +++ b/base/tools/psb_cspalloc.f90 @@ -58,7 +58,9 @@ subroutine psb_cspalloc(a, desc_a, info, nnz) integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) name = 'psb_cspall' diff --git a/base/tools/psb_cspfree.f90 b/base/tools/psb_cspfree.f90 index e501f597..ee9c5f95 100644 --- a/base/tools/psb_cspfree.f90 +++ b/base/tools/psb_cspfree.f90 @@ -51,7 +51,9 @@ subroutine psb_cspfree(a, desc_a,info) integer(psb_ipk_) :: ictxt, err_act character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ name = 'psb_cspfree' call psb_erractionsave(err_act) diff --git a/base/tools/psb_csphalo.F90 b/base/tools/psb_csphalo.F90 index aeac2a3e..2ae4b613 100644 --- a/base/tools/psb_csphalo.F90 +++ b/base/tools/psb_csphalo.F90 @@ -101,7 +101,9 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,& integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ name='psb_csphalo' call psb_erractionsave(err_act) diff --git a/base/tools/psb_dallc_a.f90 b/base/tools/psb_dallc_a.f90 index 5be99bf8..100720c0 100644 --- a/base/tools/psb_dallc_a.f90 +++ b/base/tools/psb_dallc_a.f90 @@ -60,7 +60,9 @@ subroutine psb_dalloc(x, desc_a, info, n, lb) character(len=20) :: name name='psb_geall' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ err = 0 call psb_erractionsave(err_act) @@ -185,7 +187,9 @@ subroutine psb_dallocv(x, desc_a,info,n) integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ name='psb_geall' call psb_erractionsave(err_act) diff --git a/base/tools/psb_dasb_a.f90 b/base/tools/psb_dasb_a.f90 index dcf75960..cbb7fab7 100644 --- a/base/tools/psb_dasb_a.f90 +++ b/base/tools/psb_dasb_a.f90 @@ -58,7 +58,9 @@ subroutine psb_dasb(x, desc_a, info, scratch) logical :: scratch_ character(len=20) :: name, ch_err - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ name='psb_dgeasb_m' call psb_erractionsave(err_act) diff --git a/base/tools/psb_dfree_a.f90 b/base/tools/psb_dfree_a.f90 index 9ba912f6..3bde3118 100644 --- a/base/tools/psb_dfree_a.f90 +++ b/base/tools/psb_dfree_a.f90 @@ -52,7 +52,9 @@ subroutine psb_dfree(x, desc_a, info) character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) name='psb_dfree' @@ -118,7 +120,9 @@ subroutine psb_dfreev(x, desc_a, info) character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) name='psb_dfreev' diff --git a/base/tools/psb_dins_a.f90 b/base/tools/psb_dins_a.f90 index f2c5e0ea..0ba3a69f 100644 --- a/base/tools/psb_dins_a.f90 +++ b/base/tools/psb_dins_a.f90 @@ -73,7 +73,9 @@ subroutine psb_dinsvi(m, irw, val, x, desc_a, info, dupl,local) logical :: local_ character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) name = 'psb_dinsvi' @@ -251,7 +253,9 @@ subroutine psb_dinsi(m, irw, val, x, desc_a, info, dupl,local) logical :: local_ character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) name = 'psb_dinsi' diff --git a/base/tools/psb_dspalloc.f90 b/base/tools/psb_dspalloc.f90 index e201e219..c6d90a66 100644 --- a/base/tools/psb_dspalloc.f90 +++ b/base/tools/psb_dspalloc.f90 @@ -58,7 +58,9 @@ subroutine psb_dspalloc(a, desc_a, info, nnz) integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) name = 'psb_dspall' diff --git a/base/tools/psb_dspfree.f90 b/base/tools/psb_dspfree.f90 index 46740558..03ec0f57 100644 --- a/base/tools/psb_dspfree.f90 +++ b/base/tools/psb_dspfree.f90 @@ -51,7 +51,9 @@ subroutine psb_dspfree(a, desc_a,info) integer(psb_ipk_) :: ictxt, err_act character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ name = 'psb_dspfree' call psb_erractionsave(err_act) diff --git a/base/tools/psb_dsphalo.F90 b/base/tools/psb_dsphalo.F90 index e8254569..306d69ed 100644 --- a/base/tools/psb_dsphalo.F90 +++ b/base/tools/psb_dsphalo.F90 @@ -101,7 +101,9 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,& integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ name='psb_dsphalo' call psb_erractionsave(err_act) diff --git a/base/tools/psb_eallc_a.f90 b/base/tools/psb_eallc_a.f90 index 4e36442f..fefb46f5 100644 --- a/base/tools/psb_eallc_a.f90 +++ b/base/tools/psb_eallc_a.f90 @@ -60,7 +60,9 @@ subroutine psb_ealloc(x, desc_a, info, n, lb) character(len=20) :: name name='psb_geall' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ err = 0 call psb_erractionsave(err_act) @@ -185,7 +187,9 @@ subroutine psb_eallocv(x, desc_a,info,n) integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ name='psb_geall' call psb_erractionsave(err_act) diff --git a/base/tools/psb_easb_a.f90 b/base/tools/psb_easb_a.f90 index 0945a2c8..0347d3ce 100644 --- a/base/tools/psb_easb_a.f90 +++ b/base/tools/psb_easb_a.f90 @@ -58,7 +58,9 @@ subroutine psb_easb(x, desc_a, info, scratch) logical :: scratch_ character(len=20) :: name, ch_err - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ name='psb_egeasb_m' call psb_erractionsave(err_act) diff --git a/base/tools/psb_efree_a.f90 b/base/tools/psb_efree_a.f90 index 4047a3b3..e3e05630 100644 --- a/base/tools/psb_efree_a.f90 +++ b/base/tools/psb_efree_a.f90 @@ -52,7 +52,9 @@ subroutine psb_efree(x, desc_a, info) character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) name='psb_efree' @@ -118,7 +120,9 @@ subroutine psb_efreev(x, desc_a, info) character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) name='psb_efreev' diff --git a/base/tools/psb_eins_a.f90 b/base/tools/psb_eins_a.f90 index 634c5799..3c558b80 100644 --- a/base/tools/psb_eins_a.f90 +++ b/base/tools/psb_eins_a.f90 @@ -73,7 +73,9 @@ subroutine psb_einsvi(m, irw, val, x, desc_a, info, dupl,local) logical :: local_ character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) name = 'psb_einsvi' @@ -251,7 +253,9 @@ subroutine psb_einsi(m, irw, val, x, desc_a, info, dupl,local) logical :: local_ character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) name = 'psb_einsi' diff --git a/base/tools/psb_mallc_a.f90 b/base/tools/psb_mallc_a.f90 index 8764fa00..1fd5a193 100644 --- a/base/tools/psb_mallc_a.f90 +++ b/base/tools/psb_mallc_a.f90 @@ -60,7 +60,9 @@ subroutine psb_malloc(x, desc_a, info, n, lb) character(len=20) :: name name='psb_geall' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ err = 0 call psb_erractionsave(err_act) @@ -185,7 +187,9 @@ subroutine psb_mallocv(x, desc_a,info,n) integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ name='psb_geall' call psb_erractionsave(err_act) diff --git a/base/tools/psb_masb_a.f90 b/base/tools/psb_masb_a.f90 index 07123dcb..70358f73 100644 --- a/base/tools/psb_masb_a.f90 +++ b/base/tools/psb_masb_a.f90 @@ -58,7 +58,9 @@ subroutine psb_masb(x, desc_a, info, scratch) logical :: scratch_ character(len=20) :: name, ch_err - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ name='psb_mgeasb_m' call psb_erractionsave(err_act) diff --git a/base/tools/psb_mfree_a.f90 b/base/tools/psb_mfree_a.f90 index 95acd522..e6112362 100644 --- a/base/tools/psb_mfree_a.f90 +++ b/base/tools/psb_mfree_a.f90 @@ -52,7 +52,9 @@ subroutine psb_mfree(x, desc_a, info) character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) name='psb_mfree' @@ -118,7 +120,9 @@ subroutine psb_mfreev(x, desc_a, info) character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) name='psb_mfreev' diff --git a/base/tools/psb_mins_a.f90 b/base/tools/psb_mins_a.f90 index c5f1360b..e3ff8868 100644 --- a/base/tools/psb_mins_a.f90 +++ b/base/tools/psb_mins_a.f90 @@ -73,7 +73,9 @@ subroutine psb_minsvi(m, irw, val, x, desc_a, info, dupl,local) logical :: local_ character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) name = 'psb_minsvi' @@ -251,7 +253,9 @@ subroutine psb_minsi(m, irw, val, x, desc_a, info, dupl,local) logical :: local_ character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) name = 'psb_minsi' diff --git a/base/tools/psb_sallc_a.f90 b/base/tools/psb_sallc_a.f90 index 226956e3..945edc9f 100644 --- a/base/tools/psb_sallc_a.f90 +++ b/base/tools/psb_sallc_a.f90 @@ -60,7 +60,9 @@ subroutine psb_salloc(x, desc_a, info, n, lb) character(len=20) :: name name='psb_geall' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ err = 0 call psb_erractionsave(err_act) @@ -185,7 +187,9 @@ subroutine psb_sallocv(x, desc_a,info,n) integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ name='psb_geall' call psb_erractionsave(err_act) diff --git a/base/tools/psb_sasb_a.f90 b/base/tools/psb_sasb_a.f90 index bd082573..61ae37ae 100644 --- a/base/tools/psb_sasb_a.f90 +++ b/base/tools/psb_sasb_a.f90 @@ -58,7 +58,9 @@ subroutine psb_sasb(x, desc_a, info, scratch) logical :: scratch_ character(len=20) :: name, ch_err - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ name='psb_sgeasb_m' call psb_erractionsave(err_act) diff --git a/base/tools/psb_sfree_a.f90 b/base/tools/psb_sfree_a.f90 index ccabd82e..45a93608 100644 --- a/base/tools/psb_sfree_a.f90 +++ b/base/tools/psb_sfree_a.f90 @@ -52,7 +52,9 @@ subroutine psb_sfree(x, desc_a, info) character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) name='psb_sfree' @@ -118,7 +120,9 @@ subroutine psb_sfreev(x, desc_a, info) character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) name='psb_sfreev' diff --git a/base/tools/psb_sins_a.f90 b/base/tools/psb_sins_a.f90 index 46edc92b..ec314392 100644 --- a/base/tools/psb_sins_a.f90 +++ b/base/tools/psb_sins_a.f90 @@ -73,7 +73,9 @@ subroutine psb_sinsvi(m, irw, val, x, desc_a, info, dupl,local) logical :: local_ character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) name = 'psb_sinsvi' @@ -251,7 +253,9 @@ subroutine psb_sinsi(m, irw, val, x, desc_a, info, dupl,local) logical :: local_ character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) name = 'psb_sinsi' diff --git a/base/tools/psb_sspalloc.f90 b/base/tools/psb_sspalloc.f90 index 98092ea0..c1bd6ee2 100644 --- a/base/tools/psb_sspalloc.f90 +++ b/base/tools/psb_sspalloc.f90 @@ -58,7 +58,9 @@ subroutine psb_sspalloc(a, desc_a, info, nnz) integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) name = 'psb_sspall' diff --git a/base/tools/psb_sspfree.f90 b/base/tools/psb_sspfree.f90 index 3c026623..c7b6557a 100644 --- a/base/tools/psb_sspfree.f90 +++ b/base/tools/psb_sspfree.f90 @@ -51,7 +51,9 @@ subroutine psb_sspfree(a, desc_a,info) integer(psb_ipk_) :: ictxt, err_act character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ name = 'psb_sspfree' call psb_erractionsave(err_act) diff --git a/base/tools/psb_ssphalo.F90 b/base/tools/psb_ssphalo.F90 index 1576ff3e..9e16888e 100644 --- a/base/tools/psb_ssphalo.F90 +++ b/base/tools/psb_ssphalo.F90 @@ -101,7 +101,9 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,& integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ name='psb_ssphalo' call psb_erractionsave(err_act) diff --git a/base/tools/psb_zallc_a.f90 b/base/tools/psb_zallc_a.f90 index 8baec201..96e89681 100644 --- a/base/tools/psb_zallc_a.f90 +++ b/base/tools/psb_zallc_a.f90 @@ -60,7 +60,9 @@ subroutine psb_zalloc(x, desc_a, info, n, lb) character(len=20) :: name name='psb_geall' - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ err = 0 call psb_erractionsave(err_act) @@ -185,7 +187,9 @@ subroutine psb_zallocv(x, desc_a,info,n) integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ name='psb_geall' call psb_erractionsave(err_act) diff --git a/base/tools/psb_zasb_a.f90 b/base/tools/psb_zasb_a.f90 index a0f3639b..a486a84d 100644 --- a/base/tools/psb_zasb_a.f90 +++ b/base/tools/psb_zasb_a.f90 @@ -58,7 +58,9 @@ subroutine psb_zasb(x, desc_a, info, scratch) logical :: scratch_ character(len=20) :: name, ch_err - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ name='psb_zgeasb_m' call psb_erractionsave(err_act) diff --git a/base/tools/psb_zfree_a.f90 b/base/tools/psb_zfree_a.f90 index 9c28fada..ac88af6e 100644 --- a/base/tools/psb_zfree_a.f90 +++ b/base/tools/psb_zfree_a.f90 @@ -52,7 +52,9 @@ subroutine psb_zfree(x, desc_a, info) character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) name='psb_zfree' @@ -118,7 +120,9 @@ subroutine psb_zfreev(x, desc_a, info) character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) name='psb_zfreev' diff --git a/base/tools/psb_zins_a.f90 b/base/tools/psb_zins_a.f90 index 71c4cfc8..c82e9d74 100644 --- a/base/tools/psb_zins_a.f90 +++ b/base/tools/psb_zins_a.f90 @@ -73,7 +73,9 @@ subroutine psb_zinsvi(m, irw, val, x, desc_a, info, dupl,local) logical :: local_ character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) name = 'psb_zinsvi' @@ -251,7 +253,9 @@ subroutine psb_zinsi(m, irw, val, x, desc_a, info, dupl,local) logical :: local_ character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) name = 'psb_zinsi' diff --git a/base/tools/psb_zspalloc.f90 b/base/tools/psb_zspalloc.f90 index 777e24ed..40bf3192 100644 --- a/base/tools/psb_zspalloc.f90 +++ b/base/tools/psb_zspalloc.f90 @@ -58,7 +58,9 @@ subroutine psb_zspalloc(a, desc_a, info, nnz) integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ call psb_erractionsave(err_act) name = 'psb_zspall' diff --git a/base/tools/psb_zspfree.f90 b/base/tools/psb_zspfree.f90 index 10146232..24a192b1 100644 --- a/base/tools/psb_zspfree.f90 +++ b/base/tools/psb_zspfree.f90 @@ -51,7 +51,9 @@ subroutine psb_zspfree(a, desc_a,info) integer(psb_ipk_) :: ictxt, err_act character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ name = 'psb_zspfree' call psb_erractionsave(err_act) diff --git a/base/tools/psb_zsphalo.F90 b/base/tools/psb_zsphalo.F90 index f38a76d8..4e64acc5 100644 --- a/base/tools/psb_zsphalo.F90 +++ b/base/tools/psb_zsphalo.F90 @@ -101,7 +101,9 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,& integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ name='psb_zsphalo' call psb_erractionsave(err_act) diff --git a/prec/impl/psb_c_bjacprec_impl.f90 b/prec/impl/psb_c_bjacprec_impl.f90 index f8ecdf04..7936f89d 100644 --- a/prec/impl/psb_c_bjacprec_impl.f90 +++ b/prec/impl/psb_c_bjacprec_impl.f90 @@ -434,7 +434,9 @@ subroutine psb_c_bjac_precbld(a,desc_a,prec,info,amold,vmold,imold) character(len=20) :: ch_err - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) diff --git a/prec/impl/psb_d_bjacprec_impl.f90 b/prec/impl/psb_d_bjacprec_impl.f90 index 6ac52d97..50269a17 100644 --- a/prec/impl/psb_d_bjacprec_impl.f90 +++ b/prec/impl/psb_d_bjacprec_impl.f90 @@ -434,7 +434,9 @@ subroutine psb_d_bjac_precbld(a,desc_a,prec,info,amold,vmold,imold) character(len=20) :: ch_err - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) diff --git a/prec/impl/psb_s_bjacprec_impl.f90 b/prec/impl/psb_s_bjacprec_impl.f90 index 528224c0..49bd531e 100644 --- a/prec/impl/psb_s_bjacprec_impl.f90 +++ b/prec/impl/psb_s_bjacprec_impl.f90 @@ -434,7 +434,9 @@ subroutine psb_s_bjac_precbld(a,desc_a,prec,info,amold,vmold,imold) character(len=20) :: ch_err - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) diff --git a/prec/impl/psb_z_bjacprec_impl.f90 b/prec/impl/psb_z_bjacprec_impl.f90 index ac55d862..7f095013 100644 --- a/prec/impl/psb_z_bjacprec_impl.f90 +++ b/prec/impl/psb_z_bjacprec_impl.f90 @@ -434,7 +434,9 @@ subroutine psb_z_bjac_precbld(a,desc_a,prec,info,amold,vmold,imold) character(len=20) :: ch_err - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info = psb_success_ call psb_erractionsave(err_act) diff --git a/prec/psb_c_prec_type.f90 b/prec/psb_c_prec_type.f90 index 5a0433fd..a8e005cc 100644 --- a/prec/psb_c_prec_type.f90 +++ b/prec/psb_c_prec_type.f90 @@ -199,7 +199,9 @@ contains integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: me, err_act,i character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ name = 'psb_precfree' call psb_erractionsave(err_act) @@ -224,7 +226,9 @@ contains integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: me, err_act,i character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ name = 'psb_precfree' call psb_erractionsave(err_act) diff --git a/prec/psb_d_prec_type.f90 b/prec/psb_d_prec_type.f90 index f0ee4d66..df079dd6 100644 --- a/prec/psb_d_prec_type.f90 +++ b/prec/psb_d_prec_type.f90 @@ -199,7 +199,9 @@ contains integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: me, err_act,i character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ name = 'psb_precfree' call psb_erractionsave(err_act) @@ -224,7 +226,9 @@ contains integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: me, err_act,i character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ name = 'psb_precfree' call psb_erractionsave(err_act) diff --git a/prec/psb_s_prec_type.f90 b/prec/psb_s_prec_type.f90 index eb7a95ed..885bd516 100644 --- a/prec/psb_s_prec_type.f90 +++ b/prec/psb_s_prec_type.f90 @@ -199,7 +199,9 @@ contains integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: me, err_act,i character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ name = 'psb_precfree' call psb_erractionsave(err_act) @@ -224,7 +226,9 @@ contains integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: me, err_act,i character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ name = 'psb_precfree' call psb_erractionsave(err_act) diff --git a/prec/psb_z_prec_type.f90 b/prec/psb_z_prec_type.f90 index 277c01a1..346f8747 100644 --- a/prec/psb_z_prec_type.f90 +++ b/prec/psb_z_prec_type.f90 @@ -199,7 +199,9 @@ contains integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: me, err_act,i character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ name = 'psb_precfree' call psb_erractionsave(err_act) @@ -224,7 +226,9 @@ contains integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: me, err_act,i character(len=20) :: name - if(psb_get_errstatus() /= 0) return + if (psb_get_errstatus() /= 0) then + info = psb_err_internal_error_ ; goto 9999 + end if info=psb_success_ name = 'psb_precfree' call psb_erractionsave(err_act)