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

Further fixes for error handling.

Browse Source
ILmat
Salvatore Filippone 8 years ago
parent 7b4b8f8052
commit f43491292a
194 changed files with 1210 additions and 470 deletions
Show Stats Download Patch File Download Diff File

8
base/comm/internals/psi_covrl_restr.f90
Unescape Escape View File

@ -46,9 +46,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -86,9 +88,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_covrl_restr_a.f90
Unescape Escape View File

@ -44,9 +44,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -85,9 +87,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_covrl_save.f90
Unescape Escape View File

@ -46,9 +46,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -94,9 +96,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_covrl_save_a.f90
Unescape Escape View File

@ -47,9 +47,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -97,9 +99,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_covrl_upd.f90
Unescape Escape View File

@ -50,9 +50,11 @@ subroutine psi_covrl_upd_vect(x,desc_a,update,info)
name='psi_covrl_updr1'
if (psb_get_errstatus() /= 0) return
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -129,9 +131,11 @@ subroutine psi_covrl_upd_multivect(x,desc_a,update,info)
name='psi_covrl_updr1'
if (psb_get_errstatus() /= 0) return
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_covrl_upd_a.f90
Unescape Escape View File

@ -45,9 +45,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -112,9 +114,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_dovrl_restr.f90
Unescape Escape View File

@ -46,9 +46,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -86,9 +88,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_dovrl_restr_a.f90
Unescape Escape View File

@ -44,9 +44,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -85,9 +87,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_dovrl_save.f90
Unescape Escape View File

@ -46,9 +46,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -94,9 +96,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_dovrl_save_a.f90
Unescape Escape View File

@ -47,9 +47,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -97,9 +99,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_dovrl_upd.f90
Unescape Escape View File

@ -50,9 +50,11 @@ subroutine psi_dovrl_upd_vect(x,desc_a,update,info)
name='psi_dovrl_updr1'
if (psb_get_errstatus() /= 0) return
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -129,9 +131,11 @@ subroutine psi_dovrl_upd_multivect(x,desc_a,update,info)
name='psi_dovrl_updr1'
if (psb_get_errstatus() /= 0) return
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_dovrl_upd_a.f90
Unescape Escape View File

@ -45,9 +45,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -112,9 +114,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_eovrl_restr_a.f90
Unescape Escape View File

@ -44,9 +44,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -85,9 +87,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_eovrl_save_a.f90
Unescape Escape View File

@ -47,9 +47,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -97,9 +99,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_eovrl_upd_a.f90
Unescape Escape View File

@ -45,9 +45,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -112,9 +114,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_iovrl_restr.f90
Unescape Escape View File

@ -46,9 +46,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -86,9 +88,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_iovrl_save.f90
Unescape Escape View File

@ -46,9 +46,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -94,9 +96,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_iovrl_upd.f90
Unescape Escape View File

@ -50,9 +50,11 @@ subroutine psi_iovrl_upd_vect(x,desc_a,update,info)
name='psi_iovrl_updr1'
if (psb_get_errstatus() /= 0) return
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -129,9 +131,11 @@ subroutine psi_iovrl_upd_multivect(x,desc_a,update,info)
name='psi_iovrl_updr1'
if (psb_get_errstatus() /= 0) return
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_lovrl_restr.f90
Unescape Escape View File

@ -46,9 +46,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -86,9 +88,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_lovrl_save.f90
Unescape Escape View File

@ -46,9 +46,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -94,9 +96,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_lovrl_upd.f90
Unescape Escape View File

@ -50,9 +50,11 @@ subroutine psi_lovrl_upd_vect(x,desc_a,update,info)
name='psi_lovrl_updr1'
if (psb_get_errstatus() /= 0) return
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -129,9 +131,11 @@ subroutine psi_lovrl_upd_multivect(x,desc_a,update,info)
name='psi_lovrl_updr1'
if (psb_get_errstatus() /= 0) return
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_movrl_restr_a.f90
Unescape Escape View File

@ -44,9 +44,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -85,9 +87,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_movrl_save_a.f90
Unescape Escape View File

@ -47,9 +47,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -97,9 +99,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_movrl_upd_a.f90
Unescape Escape View File

@ -45,9 +45,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -112,9 +114,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_sovrl_restr.f90
Unescape Escape View File

@ -46,9 +46,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -86,9 +88,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_sovrl_restr_a.f90
Unescape Escape View File

@ -44,9 +44,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -85,9 +87,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_sovrl_save.f90
Unescape Escape View File

@ -46,9 +46,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -94,9 +96,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_sovrl_save_a.f90
Unescape Escape View File

@ -47,9 +47,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -97,9 +99,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_sovrl_upd.f90
Unescape Escape View File

@ -50,9 +50,11 @@ subroutine psi_sovrl_upd_vect(x,desc_a,update,info)
name='psi_sovrl_updr1'
if (psb_get_errstatus() /= 0) return
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -129,9 +131,11 @@ subroutine psi_sovrl_upd_multivect(x,desc_a,update,info)
name='psi_sovrl_updr1'
if (psb_get_errstatus() /= 0) return
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_sovrl_upd_a.f90
Unescape Escape View File

@ -45,9 +45,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -112,9 +114,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_zovrl_restr.f90
Unescape Escape View File

@ -46,9 +46,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -86,9 +88,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_zovrl_restr_a.f90
Unescape Escape View File

@ -44,9 +44,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -85,9 +87,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_zovrl_save.f90
Unescape Escape View File

@ -46,9 +46,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -94,9 +96,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_zovrl_save_a.f90
Unescape Escape View File

@ -47,9 +47,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -97,9 +99,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_zovrl_upd.f90
Unescape Escape View File

@ -50,9 +50,11 @@ subroutine psi_zovrl_upd_vect(x,desc_a,update,info)
name='psi_zovrl_updr1'
if (psb_get_errstatus() /= 0) return
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -129,9 +131,11 @@ subroutine psi_zovrl_upd_multivect(x,desc_a,update,info)
name='psi_zovrl_updr1'
if (psb_get_errstatus() /= 0) return
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/internals/psi_zovrl_upd_a.f90
Unescape Escape View File

@ -45,9 +45,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then
@ -112,9 +114,11 @@ 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
info = psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
call psb_info(ictxt, me, np)
if (np == -1) then

8
base/comm/psb_cgather.f90
Unescape Escape View File

@ -64,9 +64,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -177,9 +179,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

8
base/comm/psb_cgather_a.f90
Unescape Escape View File

@ -65,9 +65,11 @@ subroutine psb_cgatherm(globx, locx, desc_a, info, iroot)
character(len=20) :: name, ch_err
name='psb_cgatherm'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
! check on blacs grid
@ -237,9 +239,11 @@ subroutine psb_cgatherv(globx, locx, desc_a, info, iroot)
character(len=20) :: name, ch_err
name='psb_cgatherv'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

8
base/comm/psb_chalo.f90
Unescape Escape View File

@ -75,9 +75,11 @@ subroutine psb_chalo_vect(x,desc_a,info,work,tran,mode,data)
logical :: aliw
name='psb_chalov'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -214,9 +216,11 @@ subroutine psb_chalo_multivect(x,desc_a,info,work,tran,mode,data)
logical :: aliw
name='psb_chalov'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

8
base/comm/psb_chalo_a.f90
Unescape Escape View File

@ -75,9 +75,11 @@ subroutine psb_chalom(x,desc_a,info,jx,ik,work,tran,mode,data)
logical :: aliw
name='psb_chalom'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -282,9 +284,11 @@ subroutine psb_chalov(x,desc_a,info,work,tran,mode,data)
logical :: aliw
name='psb_chalov'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

8
base/comm/psb_covrl.f90
Unescape Escape View File

@ -84,9 +84,11 @@ subroutine psb_covrl_vect(x,desc_a,info,work,update,mode)
logical :: aliw
name='psb_covrlv'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -209,9 +211,11 @@ subroutine psb_covrl_multivect(x,desc_a,info,work,update,mode)
logical :: aliw
name='psb_covrlv'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

8
base/comm/psb_covrl_a.f90
Unescape Escape View File

@ -86,9 +86,11 @@ subroutine psb_covrlm(x,desc_a,info,jx,ik,work,update,mode)
logical :: aliw
name='psb_covrlm'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -281,9 +283,11 @@ subroutine psb_covrlv(x,desc_a,info,work,update,mode)
logical :: aliw
name='psb_covrlv'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

4
base/comm/psb_cscatter.F90
Unescape Escape View File

@ -62,9 +62,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
debug_unit = psb_get_debug_unit()
debug_level = psb_get_debug_level()

8
base/comm/psb_cscatter_a.F90
Unescape Escape View File

@ -73,9 +73,11 @@ subroutine psb_cscatterm(globx, locx, desc_a, info, root)
character(len=20) :: name, ch_err
name='psb_scatterm'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -315,9 +317,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
debug_unit = psb_get_debug_unit()
debug_level = psb_get_debug_level()

8
base/comm/psb_cspgather.F90
Unescape Escape View File

@ -64,10 +64,12 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
icomm = desc_a%get_mpic()
call psb_info(ictxt, me, np)
@ -205,10 +207,12 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
icomm = desc_a%get_mpic()
call psb_info(ictxt, me, np)

8
base/comm/psb_dgather.f90
Unescape Escape View File

@ -64,9 +64,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -177,9 +179,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

8
base/comm/psb_dgather_a.f90
Unescape Escape View File

@ -65,9 +65,11 @@ subroutine psb_dgatherm(globx, locx, desc_a, info, iroot)
character(len=20) :: name, ch_err
name='psb_dgatherm'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
! check on blacs grid
@ -237,9 +239,11 @@ subroutine psb_dgatherv(globx, locx, desc_a, info, iroot)
character(len=20) :: name, ch_err
name='psb_dgatherv'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

8
base/comm/psb_dhalo.f90
Unescape Escape View File

@ -75,9 +75,11 @@ subroutine psb_dhalo_vect(x,desc_a,info,work,tran,mode,data)
logical :: aliw
name='psb_dhalov'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -214,9 +216,11 @@ subroutine psb_dhalo_multivect(x,desc_a,info,work,tran,mode,data)
logical :: aliw
name='psb_dhalov'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

8
base/comm/psb_dhalo_a.f90
Unescape Escape View File

@ -75,9 +75,11 @@ subroutine psb_dhalom(x,desc_a,info,jx,ik,work,tran,mode,data)
logical :: aliw
name='psb_dhalom'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -282,9 +284,11 @@ subroutine psb_dhalov(x,desc_a,info,work,tran,mode,data)
logical :: aliw
name='psb_dhalov'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

8
base/comm/psb_dovrl.f90
Unescape Escape View File

@ -84,9 +84,11 @@ subroutine psb_dovrl_vect(x,desc_a,info,work,update,mode)
logical :: aliw
name='psb_dovrlv'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -209,9 +211,11 @@ subroutine psb_dovrl_multivect(x,desc_a,info,work,update,mode)
logical :: aliw
name='psb_dovrlv'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

8
base/comm/psb_dovrl_a.f90
Unescape Escape View File

@ -86,9 +86,11 @@ subroutine psb_dovrlm(x,desc_a,info,jx,ik,work,update,mode)
logical :: aliw
name='psb_dovrlm'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -281,9 +283,11 @@ subroutine psb_dovrlv(x,desc_a,info,work,update,mode)
logical :: aliw
name='psb_dovrlv'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

4
base/comm/psb_dscatter.F90
Unescape Escape View File

@ -62,9 +62,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
debug_unit = psb_get_debug_unit()
debug_level = psb_get_debug_level()

8
base/comm/psb_dscatter_a.F90
Unescape Escape View File

@ -73,9 +73,11 @@ subroutine psb_dscatterm(globx, locx, desc_a, info, root)
character(len=20) :: name, ch_err
name='psb_scatterm'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -315,9 +317,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
debug_unit = psb_get_debug_unit()
debug_level = psb_get_debug_level()

8
base/comm/psb_dspgather.F90
Unescape Escape View File

@ -64,10 +64,12 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
icomm = desc_a%get_mpic()
call psb_info(ictxt, me, np)
@ -205,10 +207,12 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
icomm = desc_a%get_mpic()
call psb_info(ictxt, me, np)

8
base/comm/psb_egather_a.f90
Unescape Escape View File

@ -65,9 +65,11 @@ subroutine psb_egatherm(globx, locx, desc_a, info, iroot)
character(len=20) :: name, ch_err
name='psb_egatherm'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
! check on blacs grid
@ -237,9 +239,11 @@ subroutine psb_egatherv(globx, locx, desc_a, info, iroot)
character(len=20) :: name, ch_err
name='psb_egatherv'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

8
base/comm/psb_ehalo_a.f90
Unescape Escape View File

@ -75,9 +75,11 @@ subroutine psb_ehalom(x,desc_a,info,jx,ik,work,tran,mode,data)
logical :: aliw
name='psb_ehalom'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -282,9 +284,11 @@ subroutine psb_ehalov(x,desc_a,info,work,tran,mode,data)
logical :: aliw
name='psb_ehalov'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

8
base/comm/psb_eovrl_a.f90
Unescape Escape View File

@ -86,9 +86,11 @@ subroutine psb_eovrlm(x,desc_a,info,jx,ik,work,update,mode)
logical :: aliw
name='psb_eovrlm'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -281,9 +283,11 @@ subroutine psb_eovrlv(x,desc_a,info,work,update,mode)
logical :: aliw
name='psb_eovrlv'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

8
base/comm/psb_escatter_a.F90
Unescape Escape View File

@ -73,9 +73,11 @@ subroutine psb_escatterm(globx, locx, desc_a, info, root)
character(len=20) :: name, ch_err
name='psb_scatterm'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -315,9 +317,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
debug_unit = psb_get_debug_unit()
debug_level = psb_get_debug_level()

8
base/comm/psb_igather.f90
Unescape Escape View File

@ -64,9 +64,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -177,9 +179,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

8
base/comm/psb_ihalo.f90
Unescape Escape View File

@ -75,9 +75,11 @@ subroutine psb_ihalo_vect(x,desc_a,info,work,tran,mode,data)
logical :: aliw
name='psb_ihalov'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -214,9 +216,11 @@ subroutine psb_ihalo_multivect(x,desc_a,info,work,tran,mode,data)
logical :: aliw
name='psb_ihalov'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

8
base/comm/psb_iovrl.f90
Unescape Escape View File

@ -84,9 +84,11 @@ subroutine psb_iovrl_vect(x,desc_a,info,work,update,mode)
logical :: aliw
name='psb_iovrlv'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -209,9 +211,11 @@ subroutine psb_iovrl_multivect(x,desc_a,info,work,update,mode)
logical :: aliw
name='psb_iovrlv'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

4
base/comm/psb_iscatter.F90
Unescape Escape View File

@ -62,9 +62,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
debug_unit = psb_get_debug_unit()
debug_level = psb_get_debug_level()

8
base/comm/psb_ispgather.F90
Unescape Escape View File

@ -64,10 +64,12 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
icomm = desc_a%get_mpic()
call psb_info(ictxt, me, np)
@ -205,10 +207,12 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
icomm = desc_a%get_mpic()
call psb_info(ictxt, me, np)

8
base/comm/psb_lgather.f90
Unescape Escape View File

@ -64,9 +64,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -177,9 +179,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

8
base/comm/psb_lhalo.f90
Unescape Escape View File

@ -75,9 +75,11 @@ subroutine psb_lhalo_vect(x,desc_a,info,work,tran,mode,data)
logical :: aliw
name='psb_lhalov'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -214,9 +216,11 @@ subroutine psb_lhalo_multivect(x,desc_a,info,work,tran,mode,data)
logical :: aliw
name='psb_lhalov'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

8
base/comm/psb_lovrl.f90
Unescape Escape View File

@ -84,9 +84,11 @@ subroutine psb_lovrl_vect(x,desc_a,info,work,update,mode)
logical :: aliw
name='psb_lovrlv'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -209,9 +211,11 @@ subroutine psb_lovrl_multivect(x,desc_a,info,work,update,mode)
logical :: aliw
name='psb_lovrlv'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

4
base/comm/psb_lscatter.F90
Unescape Escape View File

@ -62,9 +62,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
debug_unit = psb_get_debug_unit()
debug_level = psb_get_debug_level()

8
base/comm/psb_lspgather.F90
Unescape Escape View File

@ -64,10 +64,12 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
icomm = desc_a%get_mpic()
call psb_info(ictxt, me, np)
@ -205,10 +207,12 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
icomm = desc_a%get_mpic()
call psb_info(ictxt, me, np)

8
base/comm/psb_mgather_a.f90
Unescape Escape View File

@ -65,9 +65,11 @@ subroutine psb_mgatherm(globx, locx, desc_a, info, iroot)
character(len=20) :: name, ch_err
name='psb_mgatherm'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
! check on blacs grid
@ -237,9 +239,11 @@ subroutine psb_mgatherv(globx, locx, desc_a, info, iroot)
character(len=20) :: name, ch_err
name='psb_mgatherv'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

8
base/comm/psb_mhalo_a.f90
Unescape Escape View File

@ -75,9 +75,11 @@ subroutine psb_mhalom(x,desc_a,info,jx,ik,work,tran,mode,data)
logical :: aliw
name='psb_mhalom'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -282,9 +284,11 @@ subroutine psb_mhalov(x,desc_a,info,work,tran,mode,data)
logical :: aliw
name='psb_mhalov'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

8
base/comm/psb_movrl_a.f90
Unescape Escape View File

@ -86,9 +86,11 @@ subroutine psb_movrlm(x,desc_a,info,jx,ik,work,update,mode)
logical :: aliw
name='psb_movrlm'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -281,9 +283,11 @@ subroutine psb_movrlv(x,desc_a,info,work,update,mode)
logical :: aliw
name='psb_movrlv'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

8
base/comm/psb_mscatter_a.F90
Unescape Escape View File

@ -73,9 +73,11 @@ subroutine psb_mscatterm(globx, locx, desc_a, info, root)
character(len=20) :: name, ch_err
name='psb_scatterm'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -315,9 +317,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
debug_unit = psb_get_debug_unit()
debug_level = psb_get_debug_level()

8
base/comm/psb_sgather.f90
Unescape Escape View File

@ -64,9 +64,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -177,9 +179,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

8
base/comm/psb_sgather_a.f90
Unescape Escape View File

@ -65,9 +65,11 @@ subroutine psb_sgatherm(globx, locx, desc_a, info, iroot)
character(len=20) :: name, ch_err
name='psb_sgatherm'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
! check on blacs grid
@ -237,9 +239,11 @@ subroutine psb_sgatherv(globx, locx, desc_a, info, iroot)
character(len=20) :: name, ch_err
name='psb_sgatherv'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

8
base/comm/psb_shalo.f90
Unescape Escape View File

@ -75,9 +75,11 @@ subroutine psb_shalo_vect(x,desc_a,info,work,tran,mode,data)
logical :: aliw
name='psb_shalov'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -214,9 +216,11 @@ subroutine psb_shalo_multivect(x,desc_a,info,work,tran,mode,data)
logical :: aliw
name='psb_shalov'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

8
base/comm/psb_shalo_a.f90
Unescape Escape View File

@ -75,9 +75,11 @@ subroutine psb_shalom(x,desc_a,info,jx,ik,work,tran,mode,data)
logical :: aliw
name='psb_shalom'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -282,9 +284,11 @@ subroutine psb_shalov(x,desc_a,info,work,tran,mode,data)
logical :: aliw
name='psb_shalov'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

8
base/comm/psb_sovrl.f90
Unescape Escape View File

@ -84,9 +84,11 @@ subroutine psb_sovrl_vect(x,desc_a,info,work,update,mode)
logical :: aliw
name='psb_sovrlv'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -209,9 +211,11 @@ subroutine psb_sovrl_multivect(x,desc_a,info,work,update,mode)
logical :: aliw
name='psb_sovrlv'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

8
base/comm/psb_sovrl_a.f90
Unescape Escape View File

@ -86,9 +86,11 @@ subroutine psb_sovrlm(x,desc_a,info,jx,ik,work,update,mode)
logical :: aliw
name='psb_sovrlm'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -281,9 +283,11 @@ subroutine psb_sovrlv(x,desc_a,info,work,update,mode)
logical :: aliw
name='psb_sovrlv'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

4
base/comm/psb_sscatter.F90
Unescape Escape View File

@ -62,9 +62,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
debug_unit = psb_get_debug_unit()
debug_level = psb_get_debug_level()

8
base/comm/psb_sscatter_a.F90
Unescape Escape View File

@ -73,9 +73,11 @@ subroutine psb_sscatterm(globx, locx, desc_a, info, root)
character(len=20) :: name, ch_err
name='psb_scatterm'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -315,9 +317,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
debug_unit = psb_get_debug_unit()
debug_level = psb_get_debug_level()

8
base/comm/psb_sspgather.F90
Unescape Escape View File

@ -64,10 +64,12 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
icomm = desc_a%get_mpic()
call psb_info(ictxt, me, np)
@ -205,10 +207,12 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
icomm = desc_a%get_mpic()
call psb_info(ictxt, me, np)

8
base/comm/psb_zgather.f90
Unescape Escape View File

@ -64,9 +64,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -177,9 +179,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

8
base/comm/psb_zgather_a.f90
Unescape Escape View File

@ -65,9 +65,11 @@ subroutine psb_zgatherm(globx, locx, desc_a, info, iroot)
character(len=20) :: name, ch_err
name='psb_zgatherm'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
! check on blacs grid
@ -237,9 +239,11 @@ subroutine psb_zgatherv(globx, locx, desc_a, info, iroot)
character(len=20) :: name, ch_err
name='psb_zgatherv'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

8
base/comm/psb_zhalo.f90
Unescape Escape View File

@ -75,9 +75,11 @@ subroutine psb_zhalo_vect(x,desc_a,info,work,tran,mode,data)
logical :: aliw
name='psb_zhalov'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -214,9 +216,11 @@ subroutine psb_zhalo_multivect(x,desc_a,info,work,tran,mode,data)
logical :: aliw
name='psb_zhalov'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

8
base/comm/psb_zhalo_a.f90
Unescape Escape View File

@ -75,9 +75,11 @@ subroutine psb_zhalom(x,desc_a,info,jx,ik,work,tran,mode,data)
logical :: aliw
name='psb_zhalom'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -282,9 +284,11 @@ subroutine psb_zhalov(x,desc_a,info,work,tran,mode,data)
logical :: aliw
name='psb_zhalov'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

8
base/comm/psb_zovrl.f90
Unescape Escape View File

@ -84,9 +84,11 @@ subroutine psb_zovrl_vect(x,desc_a,info,work,update,mode)
logical :: aliw
name='psb_zovrlv'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -209,9 +211,11 @@ subroutine psb_zovrl_multivect(x,desc_a,info,work,update,mode)
logical :: aliw
name='psb_zovrlv'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

8
base/comm/psb_zovrl_a.f90
Unescape Escape View File

@ -86,9 +86,11 @@ subroutine psb_zovrlm(x,desc_a,info,jx,ik,work,update,mode)
logical :: aliw
name='psb_zovrlm'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -281,9 +283,11 @@ subroutine psb_zovrlv(x,desc_a,info,work,update,mode)
logical :: aliw
name='psb_zovrlv'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

4
base/comm/psb_zscatter.F90
Unescape Escape View File

@ -62,9 +62,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
debug_unit = psb_get_debug_unit()
debug_level = psb_get_debug_level()

8
base/comm/psb_zscatter_a.F90
Unescape Escape View File

@ -73,9 +73,11 @@ subroutine psb_zscatterm(globx, locx, desc_a, info, root)
character(len=20) :: name, ch_err
name='psb_scatterm'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -315,9 +317,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
debug_unit = psb_get_debug_unit()
debug_level = psb_get_debug_level()

8
base/comm/psb_zspgather.F90
Unescape Escape View File

@ -64,10 +64,12 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
icomm = desc_a%get_mpic()
call psb_info(ictxt, me, np)
@ -205,10 +207,12 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
icomm = desc_a%get_mpic()
call psb_info(ictxt, me, np)

16
base/modules/auxil/psb_c_realloc_mod.F90
Unescape Escape View File

@ -618,7 +618,7 @@ Contains
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -659,7 +659,7 @@ Contains
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -703,7 +703,7 @@ Contains
name='psb_ab_cpy_c_rk1'
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -747,7 +747,7 @@ Contains
name='psb_ab_cpy_c_rk2'
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -794,7 +794,7 @@ Contains
name='psb_cpy_c_rk1'
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -835,7 +835,7 @@ Contains
name='psb_safe_cpy'
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -914,7 +914,7 @@ Contains
call psb_erractionsave(err_act)
info = psb_success_
if (psb_get_errstatus() /= 0) then
if (psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -967,7 +967,7 @@ Contains
call psb_erractionsave(err_act)
info = psb_success_
if (psb_get_errstatus() /= 0) then
if (psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if

16
base/modules/auxil/psb_d_realloc_mod.F90
Unescape Escape View File

@ -618,7 +618,7 @@ Contains
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -659,7 +659,7 @@ Contains
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -703,7 +703,7 @@ Contains
name='psb_ab_cpy_d_rk1'
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -747,7 +747,7 @@ Contains
name='psb_ab_cpy_d_rk2'
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -794,7 +794,7 @@ Contains
name='psb_cpy_d_rk1'
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -835,7 +835,7 @@ Contains
name='psb_safe_cpy'
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -914,7 +914,7 @@ Contains
call psb_erractionsave(err_act)
info = psb_success_
if (psb_get_errstatus() /= 0) then
if (psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -967,7 +967,7 @@ Contains
call psb_erractionsave(err_act)
info = psb_success_
if (psb_get_errstatus() /= 0) then
if (psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if

16
base/modules/auxil/psb_e_realloc_mod.F90
Unescape Escape View File

@ -618,7 +618,7 @@ Contains
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -659,7 +659,7 @@ Contains
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -703,7 +703,7 @@ Contains
name='psb_ab_cpy_e_rk1'
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -747,7 +747,7 @@ Contains
name='psb_ab_cpy_e_rk2'
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -794,7 +794,7 @@ Contains
name='psb_cpy_e_rk1'
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -835,7 +835,7 @@ Contains
name='psb_safe_cpy'
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -914,7 +914,7 @@ Contains
call psb_erractionsave(err_act)
info = psb_success_
if (psb_get_errstatus() /= 0) then
if (psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -967,7 +967,7 @@ Contains
call psb_erractionsave(err_act)
info = psb_success_
if (psb_get_errstatus() /= 0) then
if (psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if

16
base/modules/auxil/psb_m_realloc_mod.F90
Unescape Escape View File

@ -618,7 +618,7 @@ Contains
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -659,7 +659,7 @@ Contains
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -703,7 +703,7 @@ Contains
name='psb_ab_cpy_m_rk1'
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -747,7 +747,7 @@ Contains
name='psb_ab_cpy_m_rk2'
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -794,7 +794,7 @@ Contains
name='psb_cpy_m_rk1'
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -835,7 +835,7 @@ Contains
name='psb_safe_cpy'
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -914,7 +914,7 @@ Contains
call psb_erractionsave(err_act)
info = psb_success_
if (psb_get_errstatus() /= 0) then
if (psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -967,7 +967,7 @@ Contains
call psb_erractionsave(err_act)
info = psb_success_
if (psb_get_errstatus() /= 0) then
if (psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if

16
base/modules/auxil/psb_s_realloc_mod.F90
Unescape Escape View File

@ -618,7 +618,7 @@ Contains
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -659,7 +659,7 @@ Contains
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -703,7 +703,7 @@ Contains
name='psb_ab_cpy_s_rk1'
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -747,7 +747,7 @@ Contains
name='psb_ab_cpy_s_rk2'
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -794,7 +794,7 @@ Contains
name='psb_cpy_s_rk1'
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -835,7 +835,7 @@ Contains
name='psb_safe_cpy'
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -914,7 +914,7 @@ Contains
call psb_erractionsave(err_act)
info = psb_success_
if (psb_get_errstatus() /= 0) then
if (psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -967,7 +967,7 @@ Contains
call psb_erractionsave(err_act)
info = psb_success_
if (psb_get_errstatus() /= 0) then
if (psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if

16
base/modules/auxil/psb_z_realloc_mod.F90
Unescape Escape View File

@ -618,7 +618,7 @@ Contains
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -659,7 +659,7 @@ Contains
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -703,7 +703,7 @@ Contains
name='psb_ab_cpy_z_rk1'
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -747,7 +747,7 @@ Contains
name='psb_ab_cpy_z_rk2'
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -794,7 +794,7 @@ Contains
name='psb_cpy_z_rk1'
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -835,7 +835,7 @@ Contains
name='psb_safe_cpy'
call psb_erractionsave(err_act)
info=psb_success_
if(psb_get_errstatus() /= 0) then
if(psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -914,7 +914,7 @@ Contains
call psb_erractionsave(err_act)
info = psb_success_
if (psb_get_errstatus() /= 0) then
if (psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if
@ -967,7 +967,7 @@ Contains
call psb_erractionsave(err_act)
info = psb_success_
if (psb_get_errstatus() /= 0) then
if (psb_errstatus_fatal()) then
info=psb_err_from_subroutine_
goto 9999
end if

20
base/psblas/psb_camax.f90
Unescape Escape View File

@ -64,9 +64,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
@ -190,9 +192,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -272,9 +276,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -400,9 +406,11 @@ subroutine psb_camaxvs(res,x,desc_a, info,global)
character(len=20) :: name, ch_err
name='psb_camaxvs'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt = desc_a%get_context()
@ -521,9 +529,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

16
base/psblas/psb_casum.f90
Unescape Escape View File

@ -64,9 +64,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -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,9 +291,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -416,9 +422,11 @@ subroutine psb_casumvs(res,x,desc_a, info,global)
character(len=20) :: name, ch_err
name='psb_casumvs'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

8
base/psblas/psb_caxpby.f90
Unescape Escape View File

@ -151,9 +151,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
call psb_info(ictxt, me, np)
@ -298,9 +300,11 @@ subroutine psb_caxpbyv(alpha, x, beta,y,desc_a,info)
logical, parameter :: debug=.false.
name='psb_geaxpby'
if(psb_get_errstatus() /= 0) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

20
base/psblas/psb_cdot.f90
Unescape Escape View File

@ -72,9 +72,11 @@ function psb_cdot_vect(x, y, desc_a,info,global) result(res)
name='psb_cdot_vect'
res = czero
if (psb_errstatus_fatal()) return
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
call psb_info(ictxt, me, np)
@ -175,9 +177,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
call psb_info(ictxt, me, np)
@ -323,9 +327,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -456,9 +462,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()
@ -587,9 +595,11 @@ 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
info=psb_success_
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
ictxt=desc_a%get_context()

Some files were not shown because too many files have changed in this diff Show More

Write Preview
Loading…
Cancel
Save