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

Improve handling of "get_errstatus" conditions.

Browse Source
ILmat
Salvatore Filippone 8 years ago
parent 7b4b8f8052
commit 9830f6b381
172 changed files with 1068 additions and 356 deletions
Show Stats Download Patch File Download Diff File

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

@ -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()

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

@ -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()

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

@ -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()

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

@ -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()

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

@ -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()

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

@ -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()

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

@ -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()

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

@ -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()

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

@ -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()

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

@ -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()

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

@ -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()

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

@ -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()

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

@ -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()

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

@ -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()

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

@ -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()

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

@ -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()

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

@ -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()

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

@ -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()

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

@ -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()

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

@ -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()

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

@ -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()

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

@ -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()

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

@ -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()

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

@ -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()

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

@ -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()

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

@ -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()

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

@ -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()

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

@ -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()

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

@ -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()

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

@ -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()

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

@ -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()

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

@ -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()

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

@ -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()

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

@ -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()

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

@ -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()

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

@ -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()

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

@ -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)

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

@ -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)

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

@ -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)

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

@ -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)

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

@ -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)

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

@ -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)

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

@ -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()

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

@ -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()

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

@ -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)

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

@ -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)

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

@ -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)

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

@ -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)

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

@ -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)

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

@ -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)

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

@ -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)

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

@ -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()

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

@ -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()

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

@ -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)

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

@ -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)

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

@ -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)

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

@ -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)

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

@ -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()

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

@ -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)

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

@ -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)

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

@ -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)

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

@ -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()

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

@ -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)

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

@ -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)

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

@ -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)

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

@ -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)

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

@ -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()

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

@ -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)

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

@ -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)

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

@ -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)

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

@ -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)

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

@ -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()

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

@ -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)

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

@ -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)

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

@ -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)

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

@ -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)

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

@ -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)

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

@ -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)

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

@ -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()

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

@ -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()

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

@ -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)

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

@ -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)

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

@ -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)

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

@ -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)

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

@ -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)

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

@ -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)

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

@ -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)

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

@ -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()

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

@ -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()

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

@ -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)

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

@ -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)

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

@ -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)

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

@ -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)

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

@ -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)

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

@ -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)

4
base/psblas/psb_cnrmi.f90
Unescape Escape View File

@ -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)

12
base/psblas/psb_cspmm.f90
Unescape Escape View File

@ -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()

12
base/psblas/psb_cspsm.f90
Unescape Escape View File

@ -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)

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

@ -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)

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

@ -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)

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

Write Preview
Loading…
Cancel
Save