fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-12 08:59:04 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix error handling

Browse Source
This commit is contained in:
Salvatore Filippone
2021-02-05 13:38:18 +01:00
parent 875ef40724
commit 82c2e6374b
4 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/psblas/psb_cnrm2.f90
+3 -3
View File
@@ -302,11 +302,11 @@ function psb_cnrm2_vect(x, desc_a, info,global) result(res)
character(len=20) :: name, ch_err
name='psb_cnrm2v'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
info=psb_success_
call psb_erractionsave(err_act)
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
name='psb_cnrm2v_weight'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
info=psb_success_
call psb_erractionsave(err_act)
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
name='psb_cnrm2v_weightmask'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
info=psb_success_
call psb_erractionsave(err_act)
ctxt=desc_a%get_context()
base/psblas/psb_dnrm2.f90
+3 -3
View File
@@ -302,11 +302,11 @@ function psb_dnrm2_vect(x, desc_a, info,global) result(res)
character(len=20) :: name, ch_err
name='psb_dnrm2v'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
info=psb_success_
call psb_erractionsave(err_act)
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
name='psb_dnrm2v_weight'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
info=psb_success_
call psb_erractionsave(err_act)
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
name='psb_dnrm2v_weightmask'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
info=psb_success_
call psb_erractionsave(err_act)
ctxt=desc_a%get_context()
base/psblas/psb_snrm2.f90
+3 -3
View File
@@ -302,11 +302,11 @@ function psb_snrm2_vect(x, desc_a, info,global) result(res)
character(len=20) :: name, ch_err
name='psb_snrm2v'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
info=psb_success_
call psb_erractionsave(err_act)
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
name='psb_snrm2v_weight'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
info=psb_success_
call psb_erractionsave(err_act)
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
name='psb_snrm2v_weightmask'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
info=psb_success_
call psb_erractionsave(err_act)
ctxt=desc_a%get_context()
base/psblas/psb_znrm2.f90
+3 -3
View File
@@ -302,11 +302,11 @@ function psb_znrm2_vect(x, desc_a, info,global) result(res)
character(len=20) :: name, ch_err
name='psb_znrm2v'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
info=psb_success_
call psb_erractionsave(err_act)
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
name='psb_znrm2v_weight'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
info=psb_success_
call psb_erractionsave(err_act)
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
name='psb_znrm2v_weightmask'
call psb_erractionsave(err_act)
if (psb_errstatus_fatal()) then
info = psb_err_internal_error_ ; goto 9999
end if
info=psb_success_
call psb_erractionsave(err_act)
ctxt=desc_a%get_context()