diff --git a/base/auxil/psi_a2a_fnd_owner.F90 b/base/auxil/psi_a2a_fnd_owner.F90 index 9c7a2e65..3fca7f4a 100644 --- a/base/auxil/psi_a2a_fnd_owner.F90 +++ b/base/auxil/psi_a2a_fnd_owner.F90 @@ -90,7 +90,7 @@ subroutine psi_a2a_fnd_owner(idx,iprc,idxmap,info,samesize) call psb_erractionsave(err_act) ctxt = idxmap%get_ctxt() - icomm = idxmap%get_mpic() + icomm = ctxt%get_mpic() mglob = idxmap%get_gr() n_row = idxmap%get_lr() n_col = idxmap%get_lc() diff --git a/base/auxil/psi_adjcncy_fnd_owner.F90 b/base/auxil/psi_adjcncy_fnd_owner.F90 index 4af37493..3ac830d7 100644 --- a/base/auxil/psi_adjcncy_fnd_owner.F90 +++ b/base/auxil/psi_adjcncy_fnd_owner.F90 @@ -100,7 +100,7 @@ subroutine psi_adjcncy_fnd_owner(idx,iprc,adj,idxmap,info) call psb_erractionsave(err_act) ctxt = idxmap%get_ctxt() - icomm = idxmap%get_mpic() + icomm = ctxt%get_mpic() mglob = idxmap%get_gr() n_row = idxmap%get_lr() n_col = idxmap%get_lc() diff --git a/base/auxil/psi_bld_tmphalo.f90 b/base/auxil/psi_bld_tmphalo.f90 index 9d3fb7ab..d1ee62c6 100644 --- a/base/auxil/psi_bld_tmphalo.f90 +++ b/base/auxil/psi_bld_tmphalo.f90 @@ -71,7 +71,7 @@ subroutine psi_bld_tmphalo(desc,info) call psb_erractionsave(err_act) ctxt = desc%get_context() - icomm = desc%get_mpic() + icomm = ctxt%get_mpic() n_row = desc%get_local_rows() n_col = desc%get_local_cols() diff --git a/base/auxil/psi_bld_tmpovrl.f90 b/base/auxil/psi_bld_tmpovrl.f90 index e34b6463..1952b9eb 100644 --- a/base/auxil/psi_bld_tmpovrl.f90 +++ b/base/auxil/psi_bld_tmpovrl.f90 @@ -78,7 +78,7 @@ subroutine psi_i_bld_tmpovrl(iv,desc,info) debug_unit = psb_get_debug_unit() debug_level = psb_get_debug_level() ctxt = desc%get_context() - icomm = desc%get_mpic() + icomm = ctxt%get_mpic() ! check on blacs grid call psb_info(ctxt, me, np) diff --git a/base/auxil/psi_desc_index.F90 b/base/auxil/psi_desc_index.F90 index ec16afbe..169b7a3e 100644 --- a/base/auxil/psi_desc_index.F90 +++ b/base/auxil/psi_desc_index.F90 @@ -151,7 +151,7 @@ subroutine psi_i_desc_index(desc,index_in,dep_list,& debug_level = psb_get_debug_level() ctxt = desc%get_context() - icomm = desc%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info = psb_err_context_error_ diff --git a/base/auxil/psi_fnd_owner.F90 b/base/auxil/psi_fnd_owner.F90 index f19b4b1f..2ba74788 100644 --- a/base/auxil/psi_fnd_owner.F90 +++ b/base/auxil/psi_fnd_owner.F90 @@ -85,7 +85,7 @@ subroutine psi_fnd_owner(nv,idx,iprc,desc,info) call psb_erractionsave(err_act) ctxt = desc%get_context() - icomm = desc%get_mpic() + icomm = ctxt%get_mpic() n_row = desc%get_local_rows() n_col = desc%get_local_cols() diff --git a/base/auxil/psi_graph_fnd_owner.F90 b/base/auxil/psi_graph_fnd_owner.F90 index de5d5915..56d4f5dd 100644 --- a/base/auxil/psi_graph_fnd_owner.F90 +++ b/base/auxil/psi_graph_fnd_owner.F90 @@ -121,7 +121,7 @@ subroutine psi_graph_fnd_owner(idx,iprc,ladj,idxmap,info) call psb_erractionsave(err_act) ctxt = idxmap%get_ctxt() - icomm = idxmap%get_mpic() + icomm = ctxt%get_mpic() mglob = idxmap%get_gr() n_row = idxmap%get_lr() n_col = idxmap%get_lc() diff --git a/base/auxil/psi_indx_map_fnd_owner.F90 b/base/auxil/psi_indx_map_fnd_owner.F90 index 30777cdf..e45c6a76 100644 --- a/base/auxil/psi_indx_map_fnd_owner.F90 +++ b/base/auxil/psi_indx_map_fnd_owner.F90 @@ -88,7 +88,7 @@ subroutine psi_indx_map_fnd_owner(idx,iprc,idxmap,info,adj) call psb_erractionsave(err_act) ctxt = idxmap%get_ctxt() - icomm = idxmap%get_mpic() + icomm = ctxt%get_mpic() mglob = idxmap%get_gr() call psb_info(ctxt, me, np) diff --git a/base/comm/internals/psi_cswapdata.F90 b/base/comm/internals/psi_cswapdata.F90 index 61377034..9bfc36e9 100644 --- a/base/comm/internals/psi_cswapdata.F90 +++ b/base/comm/internals/psi_cswapdata.F90 @@ -124,7 +124,7 @@ subroutine psi_cswapdata_vect(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ @@ -462,7 +462,7 @@ subroutine psi_cswapdata_multivect(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ diff --git a/base/comm/internals/psi_cswapdata_a.F90 b/base/comm/internals/psi_cswapdata_a.F90 index 307842b4..19a68842 100644 --- a/base/comm/internals/psi_cswapdata_a.F90 +++ b/base/comm/internals/psi_cswapdata_a.F90 @@ -119,7 +119,7 @@ subroutine psi_cswapdatam(flag,n,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ @@ -597,7 +597,7 @@ subroutine psi_cswapdatav(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ diff --git a/base/comm/internals/psi_cswaptran.F90 b/base/comm/internals/psi_cswaptran.F90 index 27dd4085..3cb93309 100644 --- a/base/comm/internals/psi_cswaptran.F90 +++ b/base/comm/internals/psi_cswaptran.F90 @@ -126,7 +126,7 @@ subroutine psi_cswaptran_vect(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ @@ -472,7 +472,7 @@ subroutine psi_cswaptran_multivect(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ diff --git a/base/comm/internals/psi_cswaptran_a.F90 b/base/comm/internals/psi_cswaptran_a.F90 index b3b78c9b..0065b7f2 100644 --- a/base/comm/internals/psi_cswaptran_a.F90 +++ b/base/comm/internals/psi_cswaptran_a.F90 @@ -123,7 +123,7 @@ subroutine psi_cswaptranm(flag,n,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then @@ -608,7 +608,7 @@ subroutine psi_cswaptranv(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ diff --git a/base/comm/internals/psi_dswapdata.F90 b/base/comm/internals/psi_dswapdata.F90 index 28b5a6d4..c118206f 100644 --- a/base/comm/internals/psi_dswapdata.F90 +++ b/base/comm/internals/psi_dswapdata.F90 @@ -124,7 +124,7 @@ subroutine psi_dswapdata_vect(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ @@ -462,7 +462,7 @@ subroutine psi_dswapdata_multivect(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ diff --git a/base/comm/internals/psi_dswapdata_a.F90 b/base/comm/internals/psi_dswapdata_a.F90 index 6c370b82..9f1f9cec 100644 --- a/base/comm/internals/psi_dswapdata_a.F90 +++ b/base/comm/internals/psi_dswapdata_a.F90 @@ -119,7 +119,7 @@ subroutine psi_dswapdatam(flag,n,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ @@ -597,7 +597,7 @@ subroutine psi_dswapdatav(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ diff --git a/base/comm/internals/psi_dswaptran.F90 b/base/comm/internals/psi_dswaptran.F90 index 3d66fb41..0c168e18 100644 --- a/base/comm/internals/psi_dswaptran.F90 +++ b/base/comm/internals/psi_dswaptran.F90 @@ -126,7 +126,7 @@ subroutine psi_dswaptran_vect(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ @@ -472,7 +472,7 @@ subroutine psi_dswaptran_multivect(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ diff --git a/base/comm/internals/psi_dswaptran_a.F90 b/base/comm/internals/psi_dswaptran_a.F90 index 51ae5867..dbeb5513 100644 --- a/base/comm/internals/psi_dswaptran_a.F90 +++ b/base/comm/internals/psi_dswaptran_a.F90 @@ -123,7 +123,7 @@ subroutine psi_dswaptranm(flag,n,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then @@ -608,7 +608,7 @@ subroutine psi_dswaptranv(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ diff --git a/base/comm/internals/psi_eswapdata_a.F90 b/base/comm/internals/psi_eswapdata_a.F90 index 104aee38..8a7afe67 100644 --- a/base/comm/internals/psi_eswapdata_a.F90 +++ b/base/comm/internals/psi_eswapdata_a.F90 @@ -119,7 +119,7 @@ subroutine psi_eswapdatam(flag,n,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ @@ -597,7 +597,7 @@ subroutine psi_eswapdatav(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ diff --git a/base/comm/internals/psi_eswaptran_a.F90 b/base/comm/internals/psi_eswaptran_a.F90 index a93dd6b7..f5817419 100644 --- a/base/comm/internals/psi_eswaptran_a.F90 +++ b/base/comm/internals/psi_eswaptran_a.F90 @@ -123,7 +123,7 @@ subroutine psi_eswaptranm(flag,n,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then @@ -608,7 +608,7 @@ subroutine psi_eswaptranv(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ diff --git a/base/comm/internals/psi_i2swapdata_a.F90 b/base/comm/internals/psi_i2swapdata_a.F90 index 58dbb517..b7d8b8f5 100644 --- a/base/comm/internals/psi_i2swapdata_a.F90 +++ b/base/comm/internals/psi_i2swapdata_a.F90 @@ -119,7 +119,7 @@ subroutine psi_i2swapdatam(flag,n,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ @@ -597,7 +597,7 @@ subroutine psi_i2swapdatav(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ diff --git a/base/comm/internals/psi_i2swaptran_a.F90 b/base/comm/internals/psi_i2swaptran_a.F90 index 7d388740..d43112c4 100644 --- a/base/comm/internals/psi_i2swaptran_a.F90 +++ b/base/comm/internals/psi_i2swaptran_a.F90 @@ -123,7 +123,7 @@ subroutine psi_i2swaptranm(flag,n,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then @@ -608,7 +608,7 @@ subroutine psi_i2swaptranv(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ diff --git a/base/comm/internals/psi_iswapdata.F90 b/base/comm/internals/psi_iswapdata.F90 index c57af1d0..fc4ee262 100644 --- a/base/comm/internals/psi_iswapdata.F90 +++ b/base/comm/internals/psi_iswapdata.F90 @@ -124,7 +124,7 @@ subroutine psi_iswapdata_vect(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ @@ -462,7 +462,7 @@ subroutine psi_iswapdata_multivect(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ diff --git a/base/comm/internals/psi_iswaptran.F90 b/base/comm/internals/psi_iswaptran.F90 index 601ded78..9b440424 100644 --- a/base/comm/internals/psi_iswaptran.F90 +++ b/base/comm/internals/psi_iswaptran.F90 @@ -126,7 +126,7 @@ subroutine psi_iswaptran_vect(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ @@ -472,7 +472,7 @@ subroutine psi_iswaptran_multivect(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ diff --git a/base/comm/internals/psi_lswapdata.F90 b/base/comm/internals/psi_lswapdata.F90 index 566db1e9..a413cb2d 100644 --- a/base/comm/internals/psi_lswapdata.F90 +++ b/base/comm/internals/psi_lswapdata.F90 @@ -124,7 +124,7 @@ subroutine psi_lswapdata_vect(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ @@ -462,7 +462,7 @@ subroutine psi_lswapdata_multivect(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ diff --git a/base/comm/internals/psi_lswaptran.F90 b/base/comm/internals/psi_lswaptran.F90 index 4c33fde0..f92fc344 100644 --- a/base/comm/internals/psi_lswaptran.F90 +++ b/base/comm/internals/psi_lswaptran.F90 @@ -126,7 +126,7 @@ subroutine psi_lswaptran_vect(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ @@ -472,7 +472,7 @@ subroutine psi_lswaptran_multivect(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ diff --git a/base/comm/internals/psi_mswapdata_a.F90 b/base/comm/internals/psi_mswapdata_a.F90 index 774c53e4..169dd46a 100644 --- a/base/comm/internals/psi_mswapdata_a.F90 +++ b/base/comm/internals/psi_mswapdata_a.F90 @@ -119,7 +119,7 @@ subroutine psi_mswapdatam(flag,n,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ @@ -597,7 +597,7 @@ subroutine psi_mswapdatav(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ diff --git a/base/comm/internals/psi_mswaptran_a.F90 b/base/comm/internals/psi_mswaptran_a.F90 index fca78eb7..f8346fe1 100644 --- a/base/comm/internals/psi_mswaptran_a.F90 +++ b/base/comm/internals/psi_mswaptran_a.F90 @@ -123,7 +123,7 @@ subroutine psi_mswaptranm(flag,n,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then @@ -608,7 +608,7 @@ subroutine psi_mswaptranv(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ diff --git a/base/comm/internals/psi_sswapdata.F90 b/base/comm/internals/psi_sswapdata.F90 index 3d594e76..5d1180d3 100644 --- a/base/comm/internals/psi_sswapdata.F90 +++ b/base/comm/internals/psi_sswapdata.F90 @@ -124,7 +124,7 @@ subroutine psi_sswapdata_vect(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ @@ -462,7 +462,7 @@ subroutine psi_sswapdata_multivect(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ diff --git a/base/comm/internals/psi_sswapdata_a.F90 b/base/comm/internals/psi_sswapdata_a.F90 index 601ca35b..c85062b7 100644 --- a/base/comm/internals/psi_sswapdata_a.F90 +++ b/base/comm/internals/psi_sswapdata_a.F90 @@ -119,7 +119,7 @@ subroutine psi_sswapdatam(flag,n,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ @@ -597,7 +597,7 @@ subroutine psi_sswapdatav(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ diff --git a/base/comm/internals/psi_sswaptran.F90 b/base/comm/internals/psi_sswaptran.F90 index 03b25a87..24c75978 100644 --- a/base/comm/internals/psi_sswaptran.F90 +++ b/base/comm/internals/psi_sswaptran.F90 @@ -126,7 +126,7 @@ subroutine psi_sswaptran_vect(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ @@ -472,7 +472,7 @@ subroutine psi_sswaptran_multivect(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ diff --git a/base/comm/internals/psi_sswaptran_a.F90 b/base/comm/internals/psi_sswaptran_a.F90 index 5a1f80c0..749d1f01 100644 --- a/base/comm/internals/psi_sswaptran_a.F90 +++ b/base/comm/internals/psi_sswaptran_a.F90 @@ -123,7 +123,7 @@ subroutine psi_sswaptranm(flag,n,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then @@ -608,7 +608,7 @@ subroutine psi_sswaptranv(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ diff --git a/base/comm/internals/psi_zswapdata.F90 b/base/comm/internals/psi_zswapdata.F90 index f6fa7ebf..3716fba6 100644 --- a/base/comm/internals/psi_zswapdata.F90 +++ b/base/comm/internals/psi_zswapdata.F90 @@ -124,7 +124,7 @@ subroutine psi_zswapdata_vect(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ @@ -462,7 +462,7 @@ subroutine psi_zswapdata_multivect(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ diff --git a/base/comm/internals/psi_zswapdata_a.F90 b/base/comm/internals/psi_zswapdata_a.F90 index 52160b61..a4db9bb8 100644 --- a/base/comm/internals/psi_zswapdata_a.F90 +++ b/base/comm/internals/psi_zswapdata_a.F90 @@ -119,7 +119,7 @@ subroutine psi_zswapdatam(flag,n,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ @@ -597,7 +597,7 @@ subroutine psi_zswapdatav(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ diff --git a/base/comm/internals/psi_zswaptran.F90 b/base/comm/internals/psi_zswaptran.F90 index 33334a28..2d0c39c4 100644 --- a/base/comm/internals/psi_zswaptran.F90 +++ b/base/comm/internals/psi_zswaptran.F90 @@ -126,7 +126,7 @@ subroutine psi_zswaptran_vect(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ @@ -472,7 +472,7 @@ subroutine psi_zswaptran_multivect(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ diff --git a/base/comm/internals/psi_zswaptran_a.F90 b/base/comm/internals/psi_zswaptran_a.F90 index 64ca18f1..5e82f3f7 100644 --- a/base/comm/internals/psi_zswaptran_a.F90 +++ b/base/comm/internals/psi_zswaptran_a.F90 @@ -123,7 +123,7 @@ subroutine psi_zswaptranm(flag,n,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then @@ -608,7 +608,7 @@ subroutine psi_zswaptranv(flag,beta,y,desc_a,work,info,data) call psb_erractionsave(err_act) ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt,me,np) if (np == -1) then info=psb_err_context_error_ diff --git a/base/comm/psb_cspgather.F90 b/base/comm/psb_cspgather.F90 index d1bde487..9cfb6b59 100644 --- a/base/comm/psb_cspgather.F90 +++ b/base/comm/psb_cspgather.F90 @@ -85,7 +85,7 @@ subroutine psb_csp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep info = psb_err_internal_error_ ; goto 9999 end if ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt, me, np) if (present(keepnum)) then @@ -269,7 +269,7 @@ subroutine psb_lcsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,kee info = psb_err_internal_error_ ; goto 9999 end if ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt, me, np) if (present(keepnum)) then @@ -442,7 +442,7 @@ subroutine psb_lclcsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,k info = psb_err_internal_error_ ; goto 9999 end if ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt, me, np) if (present(keepnum)) then diff --git a/base/comm/psb_dspgather.F90 b/base/comm/psb_dspgather.F90 index 98a9bc91..c7348cd9 100644 --- a/base/comm/psb_dspgather.F90 +++ b/base/comm/psb_dspgather.F90 @@ -85,7 +85,7 @@ subroutine psb_dsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep info = psb_err_internal_error_ ; goto 9999 end if ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt, me, np) if (present(keepnum)) then @@ -269,7 +269,7 @@ subroutine psb_ldsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,kee info = psb_err_internal_error_ ; goto 9999 end if ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt, me, np) if (present(keepnum)) then @@ -442,7 +442,7 @@ subroutine psb_ldldsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,k info = psb_err_internal_error_ ; goto 9999 end if ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt, me, np) if (present(keepnum)) then diff --git a/base/comm/psb_ispgather.F90 b/base/comm/psb_ispgather.F90 index 773c5864..50319deb 100644 --- a/base/comm/psb_ispgather.F90 +++ b/base/comm/psb_ispgather.F90 @@ -85,7 +85,7 @@ subroutine psb_isp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep info = psb_err_internal_error_ ; goto 9999 end if ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt, me, np) if (present(keepnum)) then @@ -269,7 +269,7 @@ subroutine psb_@LX@sp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,k info = psb_err_internal_error_ ; goto 9999 end if ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt, me, np) if (present(keepnum)) then @@ -442,7 +442,7 @@ subroutine psb_@LX@@LX@sp_allgather(globa, loca, desc_a, info, root, dupl,keepn info = psb_err_internal_error_ ; goto 9999 end if ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt, me, np) if (present(keepnum)) then diff --git a/base/comm/psb_lspgather.F90 b/base/comm/psb_lspgather.F90 index 8cc009bf..5bab1444 100644 --- a/base/comm/psb_lspgather.F90 +++ b/base/comm/psb_lspgather.F90 @@ -85,7 +85,7 @@ subroutine psb_lsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep info = psb_err_internal_error_ ; goto 9999 end if ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt, me, np) if (present(keepnum)) then @@ -269,7 +269,7 @@ subroutine psb_@LX@sp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,k info = psb_err_internal_error_ ; goto 9999 end if ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt, me, np) if (present(keepnum)) then @@ -442,7 +442,7 @@ subroutine psb_@LX@@LX@sp_allgather(globa, loca, desc_a, info, root, dupl,keepn info = psb_err_internal_error_ ; goto 9999 end if ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt, me, np) if (present(keepnum)) then diff --git a/base/comm/psb_sspgather.F90 b/base/comm/psb_sspgather.F90 index 7e822c87..d6317de2 100644 --- a/base/comm/psb_sspgather.F90 +++ b/base/comm/psb_sspgather.F90 @@ -85,7 +85,7 @@ subroutine psb_ssp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep info = psb_err_internal_error_ ; goto 9999 end if ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt, me, np) if (present(keepnum)) then @@ -269,7 +269,7 @@ subroutine psb_lssp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,kee info = psb_err_internal_error_ ; goto 9999 end if ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt, me, np) if (present(keepnum)) then @@ -442,7 +442,7 @@ subroutine psb_lslssp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,k info = psb_err_internal_error_ ; goto 9999 end if ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt, me, np) if (present(keepnum)) then diff --git a/base/comm/psb_zspgather.F90 b/base/comm/psb_zspgather.F90 index 1630f904..5d4a809b 100644 --- a/base/comm/psb_zspgather.F90 +++ b/base/comm/psb_zspgather.F90 @@ -85,7 +85,7 @@ subroutine psb_zsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep info = psb_err_internal_error_ ; goto 9999 end if ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt, me, np) if (present(keepnum)) then @@ -269,7 +269,7 @@ subroutine psb_lzsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,kee info = psb_err_internal_error_ ; goto 9999 end if ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt, me, np) if (present(keepnum)) then @@ -442,7 +442,7 @@ subroutine psb_lzlzsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,k info = psb_err_internal_error_ ; goto 9999 end if ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() call psb_info(ctxt, me, np) if (present(keepnum)) then diff --git a/base/modules/desc/psb_desc_mod.F90 b/base/modules/desc/psb_desc_mod.F90 index b83542a4..86cdf351 100644 --- a/base/modules/desc/psb_desc_mod.F90 +++ b/base/modules/desc/psb_desc_mod.F90 @@ -224,7 +224,6 @@ module psb_desc_mod procedure, pass(desc) :: is_asb => psb_is_asb_desc procedure, pass(desc) :: is_ovl => psb_is_ovl_desc procedure, pass(desc) :: is_repl => psb_is_repl_desc - procedure, pass(desc) :: get_mpic => psb_cd_get_mpic procedure, pass(desc) :: get_dectype => psb_cd_get_dectype procedure, pass(desc) :: get_context => psb_cd_get_context procedure, pass(desc) :: get_ctxt => psb_cd_get_context @@ -638,23 +637,6 @@ contains end function psb_cd_get_dectype - function psb_cd_get_mpic(desc) result(val) - use psb_error_mod - implicit none - integer(psb_ipk_) :: val - class(psb_desc_type), intent(in) :: desc - - if (allocated(desc%indxmap)) then - val = desc%indxmap%get_mpic() - else - val = -1 -!!$ call psb_errpush(psb_err_invalid_cd_state_,'psb_cd_get_mpic') -!!$ call psb_error() - end if - - end function psb_cd_get_mpic - - function cd_get_p_adjcncy(desc) result(val) implicit none integer(psb_ipk_), allocatable :: val(:) diff --git a/base/modules/desc/psb_gen_block_map_mod.F90 b/base/modules/desc/psb_gen_block_map_mod.F90 index b52d4c59..3b5ecfd1 100644 --- a/base/modules/desc/psb_gen_block_map_mod.F90 +++ b/base/modules/desc/psb_gen_block_map_mod.F90 @@ -1157,7 +1157,6 @@ contains idxmap%local_cols = nl idxmap%ctxt = ctxt idxmap%state = psb_desc_bld_ - idxmap%mpic = psb_get_mpi_comm(ctxt) idxmap%min_glob_row = vnl(iam)+1 idxmap%max_glob_row = vnl(iam+1) call move_alloc(vnl,idxmap%vnl) diff --git a/base/modules/desc/psb_glist_map_mod.F90 b/base/modules/desc/psb_glist_map_mod.F90 index 4ddcdaca..a6321013 100644 --- a/base/modules/desc/psb_glist_map_mod.F90 +++ b/base/modules/desc/psb_glist_map_mod.F90 @@ -126,7 +126,6 @@ contains idxmap%ctxt = ctxt idxmap%state = psb_desc_bld_ - idxmap%mpic = psb_get_mpi_comm(ctxt) nl = 0 do i=1, n diff --git a/base/modules/desc/psb_hash_map_mod.F90 b/base/modules/desc/psb_hash_map_mod.F90 index b5e135fe..7c432b52 100644 --- a/base/modules/desc/psb_hash_map_mod.F90 +++ b/base/modules/desc/psb_hash_map_mod.F90 @@ -1090,7 +1090,6 @@ contains idxmap%local_cols = nl idxmap%ctxt = ctxt idxmap%state = psb_desc_bld_ - idxmap%mpic = psb_get_mpi_comm(ctxt) lc2 = int(1.5*nl) call psb_realloc(lc2,idxmap%loc_to_glob,info) diff --git a/base/modules/desc/psb_indx_map_mod.F90 b/base/modules/desc/psb_indx_map_mod.F90 index 574aa2e3..66d9fab0 100644 --- a/base/modules/desc/psb_indx_map_mod.F90 +++ b/base/modules/desc/psb_indx_map_mod.F90 @@ -109,8 +109,6 @@ module psb_indx_map_mod integer(psb_ipk_) :: state = psb_desc_null_ !> Communication context type(psb_ctxt_type) :: ctxt - !> MPI communicator - integer(psb_mpk_) :: mpic = -1 !> Number of global rows integer(psb_lpk_) :: global_rows = -1 !> Number of global columns @@ -177,9 +175,7 @@ module psb_indx_map_mod procedure, pass(idxmap) :: xtnd_p_adjcncy => base_xtnd_p_adjcncy procedure, pass(idxmap) :: set_ctxt => base_set_ctxt - procedure, pass(idxmap) :: set_mpic => base_set_mpic procedure, pass(idxmap) :: get_ctxt => base_get_ctxt - procedure, pass(idxmap) :: get_mpic => base_get_mpic procedure, pass(idxmap) :: sizeof => base_sizeof procedure, pass(idxmap) :: set_null => base_set_null procedure, nopass :: row_extendable => base_row_extendable @@ -247,11 +243,11 @@ module psb_indx_map_mod private :: base_get_state, base_set_state, base_is_repl, base_is_bld,& & base_is_upd, base_is_asb, base_is_valid, base_is_ovl,& & base_get_gr, base_get_gc, base_get_lr, base_get_lc, base_get_ctxt,& - & base_get_mpic, base_sizeof, base_set_null, & + & base_sizeof, base_set_null, & & base_set_grl, base_set_gcl, & & base_set_lri, base_set_lci, base_set_lrl, base_set_lcl, & & base_inc_lc, base_set_ctxt,& - & base_set_mpic, base_get_fmt, base_asb, base_free,& + & base_get_fmt, base_asb, base_free,& & base_l2gs1, base_l2gs2, base_l2gv1, base_l2gv2,& & base_g2ls1, base_g2ls2, base_g2lv1, base_g2lv2,& & base_g2ls1_ins, base_g2ls2_ins, base_g2lv1_ins, base_g2lv2_ins, & @@ -263,6 +259,7 @@ module psb_indx_map_mod & base_set_halo_owner, base_get_halo_owner, & & base_qry_halo_owner_s, base_qry_halo_owner_v,& & base_get_p_adjcncy, base_set_p_adjcncy, base_xtnd_p_adjcncy + !> Function: psi_indx_map_fnd_owner !! \memberof psb_indx_map @@ -513,17 +510,6 @@ contains end function base_get_ctxt - - function base_get_mpic(idxmap) result(val) - implicit none - class(psb_indx_map), intent(in) :: idxmap - integer(psb_mpk_) :: val - - val = idxmap%mpic - - end function base_get_mpic - - subroutine base_set_state(idxmap,val) implicit none class(psb_indx_map), intent(inout) :: idxmap @@ -643,15 +629,6 @@ contains end subroutine base_xtnd_p_adjcncy - subroutine base_set_mpic(idxmap,val) - implicit none - class(psb_indx_map), intent(inout) :: idxmap - integer(psb_mpk_), intent(in) :: val - - idxmap%mpic = val - end subroutine base_set_mpic - - !> !! \memberof psb_indx_map !! \brief Is the class capable of having overlapped rows? @@ -1341,7 +1318,7 @@ contains ! almost nothing to be done here idxmap%state = -1 if (allocated(idxmap%ctxt%ctxt)) deallocate(idxmap%ctxt%ctxt) - idxmap%mpic = -1 +!!$ idxmap%mpic = -1 idxmap%global_rows = -1 idxmap%global_cols = -1 idxmap%local_rows = -1 @@ -1357,7 +1334,7 @@ contains idxmap%state = psb_desc_null_ if (allocated(idxmap%ctxt%ctxt)) deallocate(idxmap%ctxt%ctxt) - idxmap%mpic = -1 +!!$ idxmap%mpic = -1 idxmap%global_rows = -1 idxmap%global_cols = -1 idxmap%local_rows = -1 @@ -1444,7 +1421,7 @@ contains outmap%state = idxmap%state outmap%ctxt = idxmap%ctxt - outmap%mpic = idxmap%mpic +!!$ outmap%mpic = idxmap%mpic outmap%global_rows = idxmap%global_rows outmap%global_cols = idxmap%global_cols outmap%local_rows = idxmap%local_rows diff --git a/base/modules/desc/psb_list_map_mod.F90 b/base/modules/desc/psb_list_map_mod.F90 index 3d493d51..7b4778fb 100644 --- a/base/modules/desc/psb_list_map_mod.F90 +++ b/base/modules/desc/psb_list_map_mod.F90 @@ -992,7 +992,6 @@ contains idxmap%ctxt = ctxt idxmap%state = psb_desc_bld_ - idxmap%mpic = psb_get_mpi_comm(ctxt) do i=1, n idxmap%glob_to_loc(i) = -1 end do diff --git a/base/modules/desc/psb_repl_map_mod.F90 b/base/modules/desc/psb_repl_map_mod.F90 index eef1e5d1..2a25aef9 100644 --- a/base/modules/desc/psb_repl_map_mod.F90 +++ b/base/modules/desc/psb_repl_map_mod.F90 @@ -817,7 +817,6 @@ contains idxmap%local_cols = nl idxmap%ctxt = ctxt idxmap%state = psb_desc_bld_ - idxmap%mpic = psb_get_mpi_comm(ctxt) call idxmap%set_state(psb_desc_bld_) end subroutine repl_init diff --git a/base/modules/psb_const_mod.F90 b/base/modules/psb_const_mod.F90 index ee11beaf..036b90d8 100644 --- a/base/modules/psb_const_mod.F90 +++ b/base/modules/psb_const_mod.F90 @@ -332,8 +332,13 @@ module psb_const_mod integer(psb_mpk_), allocatable :: ctxt contains procedure, pass(ctxt) :: get_i_ctxt => psb_get_i_ctxt + procedure, pass(ctxt) :: get_mpic => get_mpic + procedure, pass(ctxt) :: set_mpic => set_mpic end type psb_ctxt_type logical, parameter :: try_newins=.true. + + private :: get_mpic, set_mpic + contains function psb_cmp_ctxt(ctxt1, ctxt2) result(res) @@ -362,5 +367,27 @@ contains end if end subroutine psb_get_i_ctxt + + function get_mpic(ctxt) result(val) + implicit none + integer(psb_mpk_) :: val + class(psb_ctxt_type), intent(in) :: ctxt + + if (allocated(ctxt%ctxt)) then + val = ctxt%ctxt + else + val = -1 + end if + + end function get_mpic + + subroutine set_mpic(ctxt,val) + implicit none + integer(psb_mpk_) :: val + class(psb_ctxt_type), intent(inout) :: ctxt + + ctxt%ctxt = val + + end subroutine set_mpic end module psb_const_mod diff --git a/base/tools/psb_c_glob_transpose.F90 b/base/tools/psb_c_glob_transpose.F90 index 37a4e100..8c8b3fd4 100644 --- a/base/tools/psb_c_glob_transpose.F90 +++ b/base/tools/psb_c_glob_transpose.F90 @@ -139,7 +139,7 @@ subroutine psb_lc_coo_glob_transpose(ain,desc_r,info,atrans,desc_c,desc_rx) debug_level = psb_get_debug_level() ctxt = desc_r%get_context() - icomm = desc_r%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) @@ -437,7 +437,7 @@ subroutine psb_c_coo_glob_transpose(ain,desc_r,info,atrans,desc_c,desc_rx) debug_level = psb_get_debug_level() ctxt = desc_r%get_context() - icomm = desc_r%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) diff --git a/base/tools/psb_c_remote_mat.F90 b/base/tools/psb_c_remote_mat.F90 index bb40edf3..c3ef5602 100644 --- a/base/tools/psb_c_remote_mat.F90 +++ b/base/tools/psb_c_remote_mat.F90 @@ -118,7 +118,7 @@ Subroutine psb_lc_remote_mat(a,desc_a,b,info) debug_level = psb_get_debug_level() ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) @@ -150,7 +150,7 @@ Subroutine psb_lc_remote_mat(a,desc_a,b,info) call desc_a%indxmap%fnd_owner(a%ia(1:nz),iprc,info) - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() sdsz(:)=0 rvsz(:)=0 sdsi(:)=0 diff --git a/base/tools/psb_c_remote_vect.F90 b/base/tools/psb_c_remote_vect.F90 index 5cacd9a3..855aea99 100644 --- a/base/tools/psb_c_remote_vect.F90 +++ b/base/tools/psb_c_remote_vect.F90 @@ -105,7 +105,7 @@ subroutine psb_c_remote_vect(n,v,iv,desc_a,x,ix, info) debug_level = psb_get_debug_level() ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) @@ -123,7 +123,7 @@ subroutine psb_c_remote_vect(n,v,iv,desc_a,x,ix, info) call desc_a%indxmap%fnd_owner(iv(1:n),iprc,info) - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() sdsz(:) = 0 rvsz(:) = 0 sdsi(:) = 0 diff --git a/base/tools/psb_ccdbldext.F90 b/base/tools/psb_ccdbldext.F90 index 1e7d630e..b9064212 100644 --- a/base/tools/psb_ccdbldext.F90 +++ b/base/tools/psb_ccdbldext.F90 @@ -117,7 +117,7 @@ Subroutine psb_ccdbldext(a,desc_a,novr,desc_ov,info, extype) goto 9999 end if ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) If (debug_level >= psb_debug_outer_) & diff --git a/base/tools/psb_cd_reinit.f90 b/base/tools/psb_cd_reinit.f90 index d294cfc0..6752c3db 100644 --- a/base/tools/psb_cd_reinit.f90 +++ b/base/tools/psb_cd_reinit.f90 @@ -57,7 +57,7 @@ Subroutine psb_cd_reinit(desc,info) debug_level = psb_get_debug_level() ctxt = desc%get_context() - icomm = desc%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) if (debug_level >= psb_debug_outer_) & & write(debug_unit,*) me,' ',trim(name),': start' diff --git a/base/tools/psb_csphalo.F90 b/base/tools/psb_csphalo.F90 index dc2014ad..cd053056 100644 --- a/base/tools/psb_csphalo.F90 +++ b/base/tools/psb_csphalo.F90 @@ -127,7 +127,7 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,& debug_level = psb_get_debug_level() ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) @@ -587,7 +587,7 @@ Subroutine psb_lcsphalo(a,desc_a,blk,info,rowcnv,colcnv,& debug_level = psb_get_debug_level() ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) @@ -931,7 +931,7 @@ Subroutine psb_lc_csr_halo(a,desc_a,blk,info,rowcnv,colcnv,& debug_level = psb_get_debug_level() ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) @@ -1293,7 +1293,7 @@ Subroutine psb_c_lc_csr_halo(a,desc_a,blk,info,rowcnv,colcnv,& debug_level = psb_get_debug_level() ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) diff --git a/base/tools/psb_d_glob_transpose.F90 b/base/tools/psb_d_glob_transpose.F90 index 3c323dbd..2fc4a458 100644 --- a/base/tools/psb_d_glob_transpose.F90 +++ b/base/tools/psb_d_glob_transpose.F90 @@ -139,7 +139,7 @@ subroutine psb_ld_coo_glob_transpose(ain,desc_r,info,atrans,desc_c,desc_rx) debug_level = psb_get_debug_level() ctxt = desc_r%get_context() - icomm = desc_r%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) @@ -437,7 +437,7 @@ subroutine psb_d_coo_glob_transpose(ain,desc_r,info,atrans,desc_c,desc_rx) debug_level = psb_get_debug_level() ctxt = desc_r%get_context() - icomm = desc_r%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) diff --git a/base/tools/psb_d_remote_mat.F90 b/base/tools/psb_d_remote_mat.F90 index bab23d59..09547469 100644 --- a/base/tools/psb_d_remote_mat.F90 +++ b/base/tools/psb_d_remote_mat.F90 @@ -118,7 +118,7 @@ Subroutine psb_ld_remote_mat(a,desc_a,b,info) debug_level = psb_get_debug_level() ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) @@ -150,7 +150,7 @@ Subroutine psb_ld_remote_mat(a,desc_a,b,info) call desc_a%indxmap%fnd_owner(a%ia(1:nz),iprc,info) - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() sdsz(:)=0 rvsz(:)=0 sdsi(:)=0 diff --git a/base/tools/psb_d_remote_vect.F90 b/base/tools/psb_d_remote_vect.F90 index 440c8cc5..78a089fd 100644 --- a/base/tools/psb_d_remote_vect.F90 +++ b/base/tools/psb_d_remote_vect.F90 @@ -105,7 +105,7 @@ subroutine psb_d_remote_vect(n,v,iv,desc_a,x,ix, info) debug_level = psb_get_debug_level() ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) @@ -123,7 +123,7 @@ subroutine psb_d_remote_vect(n,v,iv,desc_a,x,ix, info) call desc_a%indxmap%fnd_owner(iv(1:n),iprc,info) - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() sdsz(:) = 0 rvsz(:) = 0 sdsi(:) = 0 diff --git a/base/tools/psb_dcdbldext.F90 b/base/tools/psb_dcdbldext.F90 index a5d059a3..d6721c76 100644 --- a/base/tools/psb_dcdbldext.F90 +++ b/base/tools/psb_dcdbldext.F90 @@ -117,7 +117,7 @@ Subroutine psb_dcdbldext(a,desc_a,novr,desc_ov,info, extype) goto 9999 end if ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) If (debug_level >= psb_debug_outer_) & diff --git a/base/tools/psb_dsphalo.F90 b/base/tools/psb_dsphalo.F90 index 9ae0677f..53b671b2 100644 --- a/base/tools/psb_dsphalo.F90 +++ b/base/tools/psb_dsphalo.F90 @@ -127,7 +127,7 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,& debug_level = psb_get_debug_level() ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) @@ -587,7 +587,7 @@ Subroutine psb_ldsphalo(a,desc_a,blk,info,rowcnv,colcnv,& debug_level = psb_get_debug_level() ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) @@ -931,7 +931,7 @@ Subroutine psb_ld_csr_halo(a,desc_a,blk,info,rowcnv,colcnv,& debug_level = psb_get_debug_level() ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) @@ -1293,7 +1293,7 @@ Subroutine psb_d_ld_csr_halo(a,desc_a,blk,info,rowcnv,colcnv,& debug_level = psb_get_debug_level() ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) diff --git a/base/tools/psb_e_remote_vect.F90 b/base/tools/psb_e_remote_vect.F90 index 9b190667..0ca38c02 100644 --- a/base/tools/psb_e_remote_vect.F90 +++ b/base/tools/psb_e_remote_vect.F90 @@ -105,7 +105,7 @@ subroutine psb_e_remote_vect(n,v,iv,desc_a,x,ix, info) debug_level = psb_get_debug_level() ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) @@ -123,7 +123,7 @@ subroutine psb_e_remote_vect(n,v,iv,desc_a,x,ix, info) call desc_a%indxmap%fnd_owner(iv(1:n),iprc,info) - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() sdsz(:) = 0 rvsz(:) = 0 sdsi(:) = 0 diff --git a/base/tools/psb_i2_remote_vect.F90 b/base/tools/psb_i2_remote_vect.F90 index 11f0cb7c..4c4ce8b5 100644 --- a/base/tools/psb_i2_remote_vect.F90 +++ b/base/tools/psb_i2_remote_vect.F90 @@ -105,7 +105,7 @@ subroutine psb_i2_remote_vect(n,v,iv,desc_a,x,ix, info) debug_level = psb_get_debug_level() ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) @@ -123,7 +123,7 @@ subroutine psb_i2_remote_vect(n,v,iv,desc_a,x,ix, info) call desc_a%indxmap%fnd_owner(iv(1:n),iprc,info) - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() sdsz(:) = 0 rvsz(:) = 0 sdsi(:) = 0 diff --git a/base/tools/psb_icdasb.F90 b/base/tools/psb_icdasb.F90 index c2d9c27a..4ad4ce3d 100644 --- a/base/tools/psb_icdasb.F90 +++ b/base/tools/psb_icdasb.F90 @@ -83,10 +83,10 @@ subroutine psb_icdasb(desc,info,ext_hv,mold) debug_level = psb_get_debug_level() ctxt = desc%get_context() + icomm = ctxt%get_mpic() dectype = desc%get_dectype() n_row = desc%get_local_rows() n_col = desc%get_local_cols() - icomm = desc%get_mpic() if ((do_timings).and.(idx_total==-1)) & & idx_total = psb_get_timer_idx("ICDASB: total ") if ((do_timings).and.(idx_phase1==-1)) & diff --git a/base/tools/psb_m_remote_vect.F90 b/base/tools/psb_m_remote_vect.F90 index 54f5ef9c..2266cc80 100644 --- a/base/tools/psb_m_remote_vect.F90 +++ b/base/tools/psb_m_remote_vect.F90 @@ -105,7 +105,7 @@ subroutine psb_m_remote_vect(n,v,iv,desc_a,x,ix, info) debug_level = psb_get_debug_level() ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) @@ -123,7 +123,7 @@ subroutine psb_m_remote_vect(n,v,iv,desc_a,x,ix, info) call desc_a%indxmap%fnd_owner(iv(1:n),iprc,info) - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() sdsz(:) = 0 rvsz(:) = 0 sdsi(:) = 0 diff --git a/base/tools/psb_s_glob_transpose.F90 b/base/tools/psb_s_glob_transpose.F90 index 8b7bff59..d663ea3e 100644 --- a/base/tools/psb_s_glob_transpose.F90 +++ b/base/tools/psb_s_glob_transpose.F90 @@ -139,7 +139,7 @@ subroutine psb_ls_coo_glob_transpose(ain,desc_r,info,atrans,desc_c,desc_rx) debug_level = psb_get_debug_level() ctxt = desc_r%get_context() - icomm = desc_r%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) @@ -437,7 +437,7 @@ subroutine psb_s_coo_glob_transpose(ain,desc_r,info,atrans,desc_c,desc_rx) debug_level = psb_get_debug_level() ctxt = desc_r%get_context() - icomm = desc_r%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) diff --git a/base/tools/psb_s_remote_mat.F90 b/base/tools/psb_s_remote_mat.F90 index 713f8736..631777ec 100644 --- a/base/tools/psb_s_remote_mat.F90 +++ b/base/tools/psb_s_remote_mat.F90 @@ -118,7 +118,7 @@ Subroutine psb_ls_remote_mat(a,desc_a,b,info) debug_level = psb_get_debug_level() ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) @@ -150,7 +150,7 @@ Subroutine psb_ls_remote_mat(a,desc_a,b,info) call desc_a%indxmap%fnd_owner(a%ia(1:nz),iprc,info) - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() sdsz(:)=0 rvsz(:)=0 sdsi(:)=0 diff --git a/base/tools/psb_s_remote_vect.F90 b/base/tools/psb_s_remote_vect.F90 index d103b694..260d03bd 100644 --- a/base/tools/psb_s_remote_vect.F90 +++ b/base/tools/psb_s_remote_vect.F90 @@ -105,7 +105,7 @@ subroutine psb_s_remote_vect(n,v,iv,desc_a,x,ix, info) debug_level = psb_get_debug_level() ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) @@ -123,7 +123,7 @@ subroutine psb_s_remote_vect(n,v,iv,desc_a,x,ix, info) call desc_a%indxmap%fnd_owner(iv(1:n),iprc,info) - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() sdsz(:) = 0 rvsz(:) = 0 sdsi(:) = 0 diff --git a/base/tools/psb_scdbldext.F90 b/base/tools/psb_scdbldext.F90 index bdced541..812ca8aa 100644 --- a/base/tools/psb_scdbldext.F90 +++ b/base/tools/psb_scdbldext.F90 @@ -117,7 +117,7 @@ Subroutine psb_scdbldext(a,desc_a,novr,desc_ov,info, extype) goto 9999 end if ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) If (debug_level >= psb_debug_outer_) & diff --git a/base/tools/psb_ssphalo.F90 b/base/tools/psb_ssphalo.F90 index a1ba28ef..9a94b438 100644 --- a/base/tools/psb_ssphalo.F90 +++ b/base/tools/psb_ssphalo.F90 @@ -127,7 +127,7 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,& debug_level = psb_get_debug_level() ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) @@ -587,7 +587,7 @@ Subroutine psb_lssphalo(a,desc_a,blk,info,rowcnv,colcnv,& debug_level = psb_get_debug_level() ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) @@ -931,7 +931,7 @@ Subroutine psb_ls_csr_halo(a,desc_a,blk,info,rowcnv,colcnv,& debug_level = psb_get_debug_level() ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) @@ -1293,7 +1293,7 @@ Subroutine psb_s_ls_csr_halo(a,desc_a,blk,info,rowcnv,colcnv,& debug_level = psb_get_debug_level() ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) diff --git a/base/tools/psb_z_glob_transpose.F90 b/base/tools/psb_z_glob_transpose.F90 index df86635b..de952682 100644 --- a/base/tools/psb_z_glob_transpose.F90 +++ b/base/tools/psb_z_glob_transpose.F90 @@ -139,7 +139,7 @@ subroutine psb_lz_coo_glob_transpose(ain,desc_r,info,atrans,desc_c,desc_rx) debug_level = psb_get_debug_level() ctxt = desc_r%get_context() - icomm = desc_r%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) @@ -437,7 +437,7 @@ subroutine psb_z_coo_glob_transpose(ain,desc_r,info,atrans,desc_c,desc_rx) debug_level = psb_get_debug_level() ctxt = desc_r%get_context() - icomm = desc_r%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) diff --git a/base/tools/psb_z_remote_mat.F90 b/base/tools/psb_z_remote_mat.F90 index a9dc1721..5542f226 100644 --- a/base/tools/psb_z_remote_mat.F90 +++ b/base/tools/psb_z_remote_mat.F90 @@ -118,7 +118,7 @@ Subroutine psb_lz_remote_mat(a,desc_a,b,info) debug_level = psb_get_debug_level() ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) @@ -150,7 +150,7 @@ Subroutine psb_lz_remote_mat(a,desc_a,b,info) call desc_a%indxmap%fnd_owner(a%ia(1:nz),iprc,info) - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() sdsz(:)=0 rvsz(:)=0 sdsi(:)=0 diff --git a/base/tools/psb_z_remote_vect.F90 b/base/tools/psb_z_remote_vect.F90 index 9670598a..319ab38f 100644 --- a/base/tools/psb_z_remote_vect.F90 +++ b/base/tools/psb_z_remote_vect.F90 @@ -105,7 +105,7 @@ subroutine psb_z_remote_vect(n,v,iv,desc_a,x,ix, info) debug_level = psb_get_debug_level() ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) @@ -123,7 +123,7 @@ subroutine psb_z_remote_vect(n,v,iv,desc_a,x,ix, info) call desc_a%indxmap%fnd_owner(iv(1:n),iprc,info) - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() sdsz(:) = 0 rvsz(:) = 0 sdsi(:) = 0 diff --git a/base/tools/psb_zcdbldext.F90 b/base/tools/psb_zcdbldext.F90 index 29b93c5b..0db84d7a 100644 --- a/base/tools/psb_zcdbldext.F90 +++ b/base/tools/psb_zcdbldext.F90 @@ -117,7 +117,7 @@ Subroutine psb_zcdbldext(a,desc_a,novr,desc_ov,info, extype) goto 9999 end if ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) If (debug_level >= psb_debug_outer_) & diff --git a/base/tools/psb_zsphalo.F90 b/base/tools/psb_zsphalo.F90 index 89dbc4dd..3a878172 100644 --- a/base/tools/psb_zsphalo.F90 +++ b/base/tools/psb_zsphalo.F90 @@ -127,7 +127,7 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,& debug_level = psb_get_debug_level() ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) @@ -587,7 +587,7 @@ Subroutine psb_lzsphalo(a,desc_a,blk,info,rowcnv,colcnv,& debug_level = psb_get_debug_level() ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) @@ -931,7 +931,7 @@ Subroutine psb_lz_csr_halo(a,desc_a,blk,info,rowcnv,colcnv,& debug_level = psb_get_debug_level() ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np) @@ -1293,7 +1293,7 @@ Subroutine psb_z_lz_csr_halo(a,desc_a,blk,info,rowcnv,colcnv,& debug_level = psb_get_debug_level() ctxt = desc_a%get_context() - icomm = desc_a%get_mpic() + icomm = ctxt%get_mpic() Call psb_info(ctxt, me, np)