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

Cleand up redundant variables

Browse Source
unify_aggr_bld
Salvatore Filippone 5 years ago
parent 7147e6a076
commit 1cba325c64
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File

4
base/modules/psb_error_mod.F90
Unescape Escape View File

@ -387,8 +387,6 @@ contains
integer(psb_mpk_), optional :: m_err(:) integer(psb_mpk_), optional :: m_err(:)
integer(psb_epk_), optional :: e_err(:) integer(psb_epk_), optional :: e_err(:)
type(psb_errstack_node), pointer :: new_node
call psb_set_errstatus(psb_err_fatal_) call psb_set_errstatus(psb_err_fatal_)
call psb_stackpush(err_c, r_name, a_err, i_err, l_err, m_err, e_err) call psb_stackpush(err_c, r_name, a_err, i_err, l_err, m_err, e_err)
@ -405,8 +403,6 @@ contains
integer(psb_mpk_), optional :: m_err(:) integer(psb_mpk_), optional :: m_err(:)
integer(psb_epk_), optional :: e_err(:) integer(psb_epk_), optional :: e_err(:)
type(psb_errstack_node), pointer :: new_node
if (.not.psb_errstatus_fatal())& if (.not.psb_errstatus_fatal())&
& call psb_set_errstatus( psb_err_warning_) & call psb_set_errstatus( psb_err_warning_)

Write Preview
Loading…
Cancel
Save