fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 21:02:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

Change name of ICTXT to CTXT

Browse Source
This commit is contained in:
Salvatore Filippone
2020-11-16 16:15:48 +01:00
parent 8b2b86d44d
commit 6a6f6ad2c2
470 changed files with 7601 additions and 7601 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_error_impl.F90
+18 -18
View File
@@ -1,23 +1,23 @@
! checks wether an error has occurred on one of the porecesses in the execution pool
subroutine psb_errcomm_i(ictxt, err)
subroutine psb_errcomm_i(ctxt, err)
use psb_error_mod, psb_protect_name => psb_errcomm
use psb_penv_mod
type(psb_ctxt_type), intent(in) :: ictxt
type(psb_ctxt_type), intent(in) :: ctxt
integer(psb_ipk_), intent(inout) :: err
if (psb_get_global_checks()) call psb_amx(ictxt, err)
if (psb_get_global_checks()) call psb_amx(ctxt, err)
end subroutine psb_errcomm_i
#if defined(IPK8)
subroutine psb_errcomm_m(ictxt, err)
subroutine psb_errcomm_m(ctxt, err)
use psb_error_mod, psb_protect_name => psb_errcomm
use psb_penv_mod
type(psb_ctxt_type), intent(in) :: ictxt
type(psb_ctxt_type), intent(in) :: ctxt
integer(psb_ipk_), intent(inout) :: err
if (psb_get_global_checks()) call psb_amx(ictxt, err)
if (psb_get_global_checks()) call psb_amx(ctxt, err)
end subroutine psb_errcomm_m
#endif
@@ -37,30 +37,30 @@ subroutine psb_ser_error_handler(err_act)
return
end subroutine psb_ser_error_handler
subroutine psb_par_error_handler(ictxt,err_act)
subroutine psb_par_error_handler(ctxt,err_act)
use psb_error_mod, psb_protect_name => psb_par_error_handler
use psb_penv_mod
implicit none
type(psb_ctxt_type), intent(in) :: ictxt
type(psb_ctxt_type), intent(in) :: ctxt
integer(psb_ipk_), intent(in) :: err_act
call psb_erractionrestore(err_act)
if (err_act == psb_act_print_) &
& call psb_error(ictxt, abrt=.false.)
& call psb_error(ctxt, abrt=.false.)
if (err_act == psb_act_abort_) &
& call psb_error(ictxt, abrt=.true.)
& call psb_error(ctxt, abrt=.true.)
return
end subroutine psb_par_error_handler
subroutine psb_par_error_print_stack(ictxt)
subroutine psb_par_error_print_stack(ctxt)
use psb_error_mod, psb_protect_name => psb_par_error_print_stack
use psb_penv_mod
type(psb_ctxt_type), intent(in) :: ictxt
type(psb_ctxt_type), intent(in) :: ctxt
call psb_error(ictxt, abrt=.false.)
call psb_error(ctxt, abrt=.false.)
end subroutine psb_par_error_print_stack
@@ -111,12 +111,12 @@ end subroutine psb_serror
! handles the occurence of an error in a parallel routine
subroutine psb_perror(ictxt,abrt)
subroutine psb_perror(ctxt,abrt)
use psb_const_mod
use psb_error_mod
use psb_penv_mod
implicit none
type(psb_ctxt_type), intent(in) :: ictxt
type(psb_ctxt_type), intent(in) :: ctxt
logical, intent(in), optional :: abrt
integer(psb_ipk_) :: err_c
@@ -128,7 +128,7 @@ subroutine psb_perror(ictxt,abrt)
abrt_=.true.
if (present(abrt)) abrt_=abrt
call psb_info(ictxt,iam,np)
call psb_info(ctxt,iam,np)
if (psb_errstatus_fatal()) then
if (psb_get_errverbosity() > 1) then
@@ -143,7 +143,7 @@ subroutine psb_perror(ictxt,abrt)
flush(psb_err_unit)
#endif
if (abrt_) call psb_abort(ictxt,-1)
if (abrt_) call psb_abort(ctxt,-1)
else
@@ -156,7 +156,7 @@ subroutine psb_perror(ictxt,abrt)
flush(psb_err_unit)
#endif
if (abrt_) call psb_abort(ictxt,-1)
if (abrt_) call psb_abort(ctxt,-1)
end if
end if