From 7eb653b39d27ce55ee5e9005f615fbec5951515e Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 20 Nov 2020 11:48:35 +0100 Subject: [PATCH] fix ICTXT vs CTXT --- base/modules/comm/psi_c_comm_v_mod.f90 | 16 ++++++++-------- base/modules/comm/psi_d_comm_v_mod.f90 | 16 ++++++++-------- base/modules/comm/psi_i_comm_v_mod.f90 | 16 ++++++++-------- base/modules/comm/psi_l_comm_v_mod.f90 | 16 ++++++++-------- base/modules/comm/psi_s_comm_v_mod.f90 | 16 ++++++++-------- base/modules/comm/psi_z_comm_v_mod.f90 | 16 ++++++++-------- base/modules/psi_i_mod.F90 | 6 +++--- 7 files changed, 51 insertions(+), 51 deletions(-) diff --git a/base/modules/comm/psi_c_comm_v_mod.f90 b/base/modules/comm/psi_c_comm_v_mod.f90 index 47eb7fdf..27faf8a5 100644 --- a/base/modules/comm/psi_c_comm_v_mod.f90 +++ b/base/modules/comm/psi_c_comm_v_mod.f90 @@ -56,10 +56,10 @@ module psi_c_comm_v_mod type(psb_desc_type), target :: desc_a integer(psb_ipk_), optional :: data end subroutine psi_cswapdata_multivect - subroutine psi_cswap_vidx_vect(ctxt,iicomm,flag,beta,y,idx,& + subroutine psi_cswap_vidx_vect(ictxt,iicomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) import - type(psb_ctxt_type), intent(in) :: ctxt + type(psb_ctxt_type), intent(in) :: ictxt integer(psb_mpk_), intent(in) :: iicomm integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -69,10 +69,10 @@ module psi_c_comm_v_mod class(psb_i_base_vect_type), intent(inout) :: idx integer(psb_ipk_), intent(in) :: totxch,totsnd, totrcv end subroutine psi_cswap_vidx_vect - subroutine psi_cswap_vidx_multivect(ctxt,iicomm,flag,beta,y,idx,& + subroutine psi_cswap_vidx_multivect(ictxt,iicomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) import - type(psb_ctxt_type), intent(in) :: ctxt + type(psb_ctxt_type), intent(in) :: ictxt integer(psb_mpk_), intent(in) :: iicomm integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -106,10 +106,10 @@ module psi_c_comm_v_mod type(psb_desc_type), target :: desc_a integer(psb_ipk_), optional :: data end subroutine psi_cswaptran_multivect - subroutine psi_ctran_vidx_vect(ctxt,iicomm,flag,beta,y,idx,& + subroutine psi_ctran_vidx_vect(ictxt,iicomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) import - type(psb_ctxt_type), intent(in) :: ctxt + type(psb_ctxt_type), intent(in) :: ictxt integer(psb_mpk_), intent(in) :: iicomm integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -119,10 +119,10 @@ module psi_c_comm_v_mod class(psb_i_base_vect_type), intent(inout) :: idx integer(psb_ipk_), intent(in) :: totxch,totsnd, totrcv end subroutine psi_ctran_vidx_vect - subroutine psi_ctran_vidx_multivect(ctxt,iicomm,flag,beta,y,idx,& + subroutine psi_ctran_vidx_multivect(ictxt,iicomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) import - type(psb_ctxt_type), intent(in) :: ctxt + type(psb_ctxt_type), intent(in) :: ictxt integer(psb_mpk_), intent(in) :: iicomm integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info diff --git a/base/modules/comm/psi_d_comm_v_mod.f90 b/base/modules/comm/psi_d_comm_v_mod.f90 index 6b7cdfd6..3fa473d3 100644 --- a/base/modules/comm/psi_d_comm_v_mod.f90 +++ b/base/modules/comm/psi_d_comm_v_mod.f90 @@ -56,10 +56,10 @@ module psi_d_comm_v_mod type(psb_desc_type), target :: desc_a integer(psb_ipk_), optional :: data end subroutine psi_dswapdata_multivect - subroutine psi_dswap_vidx_vect(ctxt,iicomm,flag,beta,y,idx,& + subroutine psi_dswap_vidx_vect(ictxt,iicomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) import - type(psb_ctxt_type), intent(in) :: ctxt + type(psb_ctxt_type), intent(in) :: ictxt integer(psb_mpk_), intent(in) :: iicomm integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -69,10 +69,10 @@ module psi_d_comm_v_mod class(psb_i_base_vect_type), intent(inout) :: idx integer(psb_ipk_), intent(in) :: totxch,totsnd, totrcv end subroutine psi_dswap_vidx_vect - subroutine psi_dswap_vidx_multivect(ctxt,iicomm,flag,beta,y,idx,& + subroutine psi_dswap_vidx_multivect(ictxt,iicomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) import - type(psb_ctxt_type), intent(in) :: ctxt + type(psb_ctxt_type), intent(in) :: ictxt integer(psb_mpk_), intent(in) :: iicomm integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -106,10 +106,10 @@ module psi_d_comm_v_mod type(psb_desc_type), target :: desc_a integer(psb_ipk_), optional :: data end subroutine psi_dswaptran_multivect - subroutine psi_dtran_vidx_vect(ctxt,iicomm,flag,beta,y,idx,& + subroutine psi_dtran_vidx_vect(ictxt,iicomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) import - type(psb_ctxt_type), intent(in) :: ctxt + type(psb_ctxt_type), intent(in) :: ictxt integer(psb_mpk_), intent(in) :: iicomm integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -119,10 +119,10 @@ module psi_d_comm_v_mod class(psb_i_base_vect_type), intent(inout) :: idx integer(psb_ipk_), intent(in) :: totxch,totsnd, totrcv end subroutine psi_dtran_vidx_vect - subroutine psi_dtran_vidx_multivect(ctxt,iicomm,flag,beta,y,idx,& + subroutine psi_dtran_vidx_multivect(ictxt,iicomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) import - type(psb_ctxt_type), intent(in) :: ctxt + type(psb_ctxt_type), intent(in) :: ictxt integer(psb_mpk_), intent(in) :: iicomm integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info diff --git a/base/modules/comm/psi_i_comm_v_mod.f90 b/base/modules/comm/psi_i_comm_v_mod.f90 index 4072a6c4..1be09444 100644 --- a/base/modules/comm/psi_i_comm_v_mod.f90 +++ b/base/modules/comm/psi_i_comm_v_mod.f90 @@ -57,10 +57,10 @@ module psi_i_comm_v_mod type(psb_desc_type), target :: desc_a integer(psb_ipk_), optional :: data end subroutine psi_iswapdata_multivect - subroutine psi_iswap_vidx_vect(ctxt,iicomm,flag,beta,y,idx,& + subroutine psi_iswap_vidx_vect(ictxt,iicomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) import - type(psb_ctxt_type), intent(in) :: ctxt + type(psb_ctxt_type), intent(in) :: ictxt integer(psb_mpk_), intent(in) :: iicomm integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -70,10 +70,10 @@ module psi_i_comm_v_mod class(psb_i_base_vect_type), intent(inout) :: idx integer(psb_ipk_), intent(in) :: totxch,totsnd, totrcv end subroutine psi_iswap_vidx_vect - subroutine psi_iswap_vidx_multivect(ctxt,iicomm,flag,beta,y,idx,& + subroutine psi_iswap_vidx_multivect(ictxt,iicomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) import - type(psb_ctxt_type), intent(in) :: ctxt + type(psb_ctxt_type), intent(in) :: ictxt integer(psb_mpk_), intent(in) :: iicomm integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -107,10 +107,10 @@ module psi_i_comm_v_mod type(psb_desc_type), target :: desc_a integer(psb_ipk_), optional :: data end subroutine psi_iswaptran_multivect - subroutine psi_itran_vidx_vect(ctxt,iicomm,flag,beta,y,idx,& + subroutine psi_itran_vidx_vect(ictxt,iicomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) import - type(psb_ctxt_type), intent(in) :: ctxt + type(psb_ctxt_type), intent(in) :: ictxt integer(psb_mpk_), intent(in) :: iicomm integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -120,10 +120,10 @@ module psi_i_comm_v_mod class(psb_i_base_vect_type), intent(inout) :: idx integer(psb_ipk_), intent(in) :: totxch,totsnd, totrcv end subroutine psi_itran_vidx_vect - subroutine psi_itran_vidx_multivect(ctxt,iicomm,flag,beta,y,idx,& + subroutine psi_itran_vidx_multivect(ictxt,iicomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) import - type(psb_ctxt_type), intent(in) :: ctxt + type(psb_ctxt_type), intent(in) :: ictxt integer(psb_mpk_), intent(in) :: iicomm integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info diff --git a/base/modules/comm/psi_l_comm_v_mod.f90 b/base/modules/comm/psi_l_comm_v_mod.f90 index b3b55a0d..d218c77c 100644 --- a/base/modules/comm/psi_l_comm_v_mod.f90 +++ b/base/modules/comm/psi_l_comm_v_mod.f90 @@ -58,10 +58,10 @@ module psi_l_comm_v_mod type(psb_desc_type), target :: desc_a integer(psb_ipk_), optional :: data end subroutine psi_lswapdata_multivect - subroutine psi_lswap_vidx_vect(ctxt,iicomm,flag,beta,y,idx,& + subroutine psi_lswap_vidx_vect(ictxt,iicomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) import - type(psb_ctxt_type), intent(in) :: ctxt + type(psb_ctxt_type), intent(in) :: ictxt integer(psb_mpk_), intent(in) :: iicomm integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -71,10 +71,10 @@ module psi_l_comm_v_mod class(psb_i_base_vect_type), intent(inout) :: idx integer(psb_ipk_), intent(in) :: totxch,totsnd, totrcv end subroutine psi_lswap_vidx_vect - subroutine psi_lswap_vidx_multivect(ctxt,iicomm,flag,beta,y,idx,& + subroutine psi_lswap_vidx_multivect(ictxt,iicomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) import - type(psb_ctxt_type), intent(in) :: ctxt + type(psb_ctxt_type), intent(in) :: ictxt integer(psb_mpk_), intent(in) :: iicomm integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -108,10 +108,10 @@ module psi_l_comm_v_mod type(psb_desc_type), target :: desc_a integer(psb_ipk_), optional :: data end subroutine psi_lswaptran_multivect - subroutine psi_ltran_vidx_vect(ctxt,iicomm,flag,beta,y,idx,& + subroutine psi_ltran_vidx_vect(ictxt,iicomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) import - type(psb_ctxt_type), intent(in) :: ctxt + type(psb_ctxt_type), intent(in) :: ictxt integer(psb_mpk_), intent(in) :: iicomm integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -121,10 +121,10 @@ module psi_l_comm_v_mod class(psb_i_base_vect_type), intent(inout) :: idx integer(psb_ipk_), intent(in) :: totxch,totsnd, totrcv end subroutine psi_ltran_vidx_vect - subroutine psi_ltran_vidx_multivect(ctxt,iicomm,flag,beta,y,idx,& + subroutine psi_ltran_vidx_multivect(ictxt,iicomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) import - type(psb_ctxt_type), intent(in) :: ctxt + type(psb_ctxt_type), intent(in) :: ictxt integer(psb_mpk_), intent(in) :: iicomm integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info diff --git a/base/modules/comm/psi_s_comm_v_mod.f90 b/base/modules/comm/psi_s_comm_v_mod.f90 index a2eb0bcf..b6cbf4a0 100644 --- a/base/modules/comm/psi_s_comm_v_mod.f90 +++ b/base/modules/comm/psi_s_comm_v_mod.f90 @@ -56,10 +56,10 @@ module psi_s_comm_v_mod type(psb_desc_type), target :: desc_a integer(psb_ipk_), optional :: data end subroutine psi_sswapdata_multivect - subroutine psi_sswap_vidx_vect(ctxt,iicomm,flag,beta,y,idx,& + subroutine psi_sswap_vidx_vect(ictxt,iicomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) import - type(psb_ctxt_type), intent(in) :: ctxt + type(psb_ctxt_type), intent(in) :: ictxt integer(psb_mpk_), intent(in) :: iicomm integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -69,10 +69,10 @@ module psi_s_comm_v_mod class(psb_i_base_vect_type), intent(inout) :: idx integer(psb_ipk_), intent(in) :: totxch,totsnd, totrcv end subroutine psi_sswap_vidx_vect - subroutine psi_sswap_vidx_multivect(ctxt,iicomm,flag,beta,y,idx,& + subroutine psi_sswap_vidx_multivect(ictxt,iicomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) import - type(psb_ctxt_type), intent(in) :: ctxt + type(psb_ctxt_type), intent(in) :: ictxt integer(psb_mpk_), intent(in) :: iicomm integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -106,10 +106,10 @@ module psi_s_comm_v_mod type(psb_desc_type), target :: desc_a integer(psb_ipk_), optional :: data end subroutine psi_sswaptran_multivect - subroutine psi_stran_vidx_vect(ctxt,iicomm,flag,beta,y,idx,& + subroutine psi_stran_vidx_vect(ictxt,iicomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) import - type(psb_ctxt_type), intent(in) :: ctxt + type(psb_ctxt_type), intent(in) :: ictxt integer(psb_mpk_), intent(in) :: iicomm integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -119,10 +119,10 @@ module psi_s_comm_v_mod class(psb_i_base_vect_type), intent(inout) :: idx integer(psb_ipk_), intent(in) :: totxch,totsnd, totrcv end subroutine psi_stran_vidx_vect - subroutine psi_stran_vidx_multivect(ctxt,iicomm,flag,beta,y,idx,& + subroutine psi_stran_vidx_multivect(ictxt,iicomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) import - type(psb_ctxt_type), intent(in) :: ctxt + type(psb_ctxt_type), intent(in) :: ictxt integer(psb_mpk_), intent(in) :: iicomm integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info diff --git a/base/modules/comm/psi_z_comm_v_mod.f90 b/base/modules/comm/psi_z_comm_v_mod.f90 index 02c1b8d8..459ddef7 100644 --- a/base/modules/comm/psi_z_comm_v_mod.f90 +++ b/base/modules/comm/psi_z_comm_v_mod.f90 @@ -56,10 +56,10 @@ module psi_z_comm_v_mod type(psb_desc_type), target :: desc_a integer(psb_ipk_), optional :: data end subroutine psi_zswapdata_multivect - subroutine psi_zswap_vidx_vect(ctxt,iicomm,flag,beta,y,idx,& + subroutine psi_zswap_vidx_vect(ictxt,iicomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) import - type(psb_ctxt_type), intent(in) :: ctxt + type(psb_ctxt_type), intent(in) :: ictxt integer(psb_mpk_), intent(in) :: iicomm integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -69,10 +69,10 @@ module psi_z_comm_v_mod class(psb_i_base_vect_type), intent(inout) :: idx integer(psb_ipk_), intent(in) :: totxch,totsnd, totrcv end subroutine psi_zswap_vidx_vect - subroutine psi_zswap_vidx_multivect(ctxt,iicomm,flag,beta,y,idx,& + subroutine psi_zswap_vidx_multivect(ictxt,iicomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) import - type(psb_ctxt_type), intent(in) :: ctxt + type(psb_ctxt_type), intent(in) :: ictxt integer(psb_mpk_), intent(in) :: iicomm integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -106,10 +106,10 @@ module psi_z_comm_v_mod type(psb_desc_type), target :: desc_a integer(psb_ipk_), optional :: data end subroutine psi_zswaptran_multivect - subroutine psi_ztran_vidx_vect(ctxt,iicomm,flag,beta,y,idx,& + subroutine psi_ztran_vidx_vect(ictxt,iicomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) import - type(psb_ctxt_type), intent(in) :: ctxt + type(psb_ctxt_type), intent(in) :: ictxt integer(psb_mpk_), intent(in) :: iicomm integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info @@ -119,10 +119,10 @@ module psi_z_comm_v_mod class(psb_i_base_vect_type), intent(inout) :: idx integer(psb_ipk_), intent(in) :: totxch,totsnd, totrcv end subroutine psi_ztran_vidx_vect - subroutine psi_ztran_vidx_multivect(ctxt,iicomm,flag,beta,y,idx,& + subroutine psi_ztran_vidx_multivect(ictxt,iicomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) import - type(psb_ctxt_type), intent(in) :: ctxt + type(psb_ctxt_type), intent(in) :: ictxt integer(psb_mpk_), intent(in) :: iicomm integer(psb_ipk_), intent(in) :: flag integer(psb_ipk_), intent(out) :: info diff --git a/base/modules/psi_i_mod.F90 b/base/modules/psi_i_mod.F90 index 31e5d461..35f03e80 100644 --- a/base/modules/psi_i_mod.F90 +++ b/base/modules/psi_i_mod.F90 @@ -112,10 +112,10 @@ module psi_i_mod interface psi_bld_glb_dep_list subroutine psi_i_bld_glb_csr_dep_list(ctxt,loc_dl,length_dl,c_dep_list,dl_ptr,info) import - type(psb_ctxt_type), intent(in) :: ctxt - integer(psb_ipk_), intent(in) :: loc_dl(:), length_dl(0:) + integer(psb_ipk_), intent(in) :: ctxt + integer(psb_ipk_), intent(in) :: loc_dl(:), length_dl(0:) integer(psb_ipk_), allocatable, intent(out) :: c_dep_list(:), dl_ptr(:) - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_i_bld_glb_csr_dep_list end interface