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

Fix error handling

Browse Source
newG2L
Salvatore Filippone 4 years ago
parent 875ef40724
commit 82c2e6374b
4 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File

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

@ -302,11 +302,11 @@ function psb_cnrm2_vect(x, desc_a, info,global) result(res)
character(len=20) :: name, ch_err character(len=20) :: name, ch_err
name='psb_cnrm2v' name='psb_cnrm2v'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999 info = psb_err_internal_error_ ; goto 9999
end if end if
info=psb_success_ info=psb_success_
call psb_erractionsave(err_act)
ctxt=desc_a%get_context() ctxt=desc_a%get_context()
@ -411,11 +411,11 @@ function psb_cnrm2_weight_vect(x,w, desc_a, info,global,aux) result(res)
character(len=20) :: name, ch_err character(len=20) :: name, ch_err
name='psb_cnrm2v_weight' name='psb_cnrm2v_weight'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999 info = psb_err_internal_error_ ; goto 9999
end if end if
info=psb_success_ info=psb_success_
call psb_erractionsave(err_act)
ctxt=desc_a%get_context() ctxt=desc_a%get_context()
@ -523,11 +523,11 @@ function psb_cnrm2_weightmask_vect(x,w,idv, desc_a, info,global, aux) result(re
character(len=20) :: name, ch_err character(len=20) :: name, ch_err
name='psb_cnrm2v_weightmask' name='psb_cnrm2v_weightmask'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999 info = psb_err_internal_error_ ; goto 9999
end if end if
info=psb_success_ info=psb_success_
call psb_erractionsave(err_act)
ctxt=desc_a%get_context() ctxt=desc_a%get_context()

6
base/psblas/psb_dnrm2.f90
Unescape Escape View File

@ -302,11 +302,11 @@ function psb_dnrm2_vect(x, desc_a, info,global) result(res)
character(len=20) :: name, ch_err character(len=20) :: name, ch_err
name='psb_dnrm2v' name='psb_dnrm2v'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999 info = psb_err_internal_error_ ; goto 9999
end if end if
info=psb_success_ info=psb_success_
call psb_erractionsave(err_act)
ctxt=desc_a%get_context() ctxt=desc_a%get_context()
@ -411,11 +411,11 @@ function psb_dnrm2_weight_vect(x,w, desc_a, info,global,aux) result(res)
character(len=20) :: name, ch_err character(len=20) :: name, ch_err
name='psb_dnrm2v_weight' name='psb_dnrm2v_weight'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999 info = psb_err_internal_error_ ; goto 9999
end if end if
info=psb_success_ info=psb_success_
call psb_erractionsave(err_act)
ctxt=desc_a%get_context() ctxt=desc_a%get_context()
@ -523,11 +523,11 @@ function psb_dnrm2_weightmask_vect(x,w,idv, desc_a, info,global, aux) result(re
character(len=20) :: name, ch_err character(len=20) :: name, ch_err
name='psb_dnrm2v_weightmask' name='psb_dnrm2v_weightmask'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999 info = psb_err_internal_error_ ; goto 9999
end if end if
info=psb_success_ info=psb_success_
call psb_erractionsave(err_act)
ctxt=desc_a%get_context() ctxt=desc_a%get_context()

6
base/psblas/psb_snrm2.f90
Unescape Escape View File

@ -302,11 +302,11 @@ function psb_snrm2_vect(x, desc_a, info,global) result(res)
character(len=20) :: name, ch_err character(len=20) :: name, ch_err
name='psb_snrm2v' name='psb_snrm2v'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999 info = psb_err_internal_error_ ; goto 9999
end if end if
info=psb_success_ info=psb_success_
call psb_erractionsave(err_act)
ctxt=desc_a%get_context() ctxt=desc_a%get_context()
@ -411,11 +411,11 @@ function psb_snrm2_weight_vect(x,w, desc_a, info,global,aux) result(res)
character(len=20) :: name, ch_err character(len=20) :: name, ch_err
name='psb_snrm2v_weight' name='psb_snrm2v_weight'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999 info = psb_err_internal_error_ ; goto 9999
end if end if
info=psb_success_ info=psb_success_
call psb_erractionsave(err_act)
ctxt=desc_a%get_context() ctxt=desc_a%get_context()
@ -523,11 +523,11 @@ function psb_snrm2_weightmask_vect(x,w,idv, desc_a, info,global, aux) result(re
character(len=20) :: name, ch_err character(len=20) :: name, ch_err
name='psb_snrm2v_weightmask' name='psb_snrm2v_weightmask'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999 info = psb_err_internal_error_ ; goto 9999
end if end if
info=psb_success_ info=psb_success_
call psb_erractionsave(err_act)
ctxt=desc_a%get_context() ctxt=desc_a%get_context()

6
base/psblas/psb_znrm2.f90
Unescape Escape View File

@ -302,11 +302,11 @@ function psb_znrm2_vect(x, desc_a, info,global) result(res)
character(len=20) :: name, ch_err character(len=20) :: name, ch_err
name='psb_znrm2v' name='psb_znrm2v'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999 info = psb_err_internal_error_ ; goto 9999
end if end if
info=psb_success_ info=psb_success_
call psb_erractionsave(err_act)
ctxt=desc_a%get_context() ctxt=desc_a%get_context()
@ -411,11 +411,11 @@ function psb_znrm2_weight_vect(x,w, desc_a, info,global,aux) result(res)
character(len=20) :: name, ch_err character(len=20) :: name, ch_err
name='psb_znrm2v_weight' name='psb_znrm2v_weight'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999 info = psb_err_internal_error_ ; goto 9999
end if end if
info=psb_success_ info=psb_success_
call psb_erractionsave(err_act)
ctxt=desc_a%get_context() ctxt=desc_a%get_context()
@ -523,11 +523,11 @@ function psb_znrm2_weightmask_vect(x,w,idv, desc_a, info,global, aux) result(re
character(len=20) :: name, ch_err character(len=20) :: name, ch_err
name='psb_znrm2v_weightmask' name='psb_znrm2v_weightmask'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999 info = psb_err_internal_error_ ; goto 9999
end if end if
info=psb_success_ info=psb_success_
call psb_erractionsave(err_act)
ctxt=desc_a%get_context() ctxt=desc_a%get_context()

Write Preview
Loading…
Cancel
Save