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

Fix use of MPI communicator

Browse Source
fixmpic
sfilippone 2 months ago
parent e8c5c0b8b0
commit bdee97e991
73 changed files with 163 additions and 182 deletions
Show Stats Download Patch File Download Diff File

2
base/auxil/psi_a2a_fnd_owner.F90
Unescape Escape View File

@ -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()

2
base/auxil/psi_adjcncy_fnd_owner.F90
Unescape Escape View File

@ -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()

2
base/auxil/psi_bld_tmphalo.f90
Unescape Escape View File

@ -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()

2
base/auxil/psi_bld_tmpovrl.f90
Unescape Escape View File

@ -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)

2
base/auxil/psi_desc_index.F90
Unescape Escape View File

@ -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_

2
base/auxil/psi_fnd_owner.F90
Unescape Escape View File

@ -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()

2
base/auxil/psi_graph_fnd_owner.F90
Unescape Escape View File

@ -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()

2
base/auxil/psi_indx_map_fnd_owner.F90
Unescape Escape View File

@ -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)

4
base/comm/internals/psi_cswapdata.F90
Unescape Escape View File

@ -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_

4
base/comm/internals/psi_cswapdata_a.F90
Unescape Escape View File

@ -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_

4
base/comm/internals/psi_cswaptran.F90
Unescape Escape View File

@ -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_

4
base/comm/internals/psi_cswaptran_a.F90
Unescape Escape View File

@ -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_

4
base/comm/internals/psi_dswapdata.F90
Unescape Escape View File

@ -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_

4
base/comm/internals/psi_dswapdata_a.F90
Unescape Escape View File

@ -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_

4
base/comm/internals/psi_dswaptran.F90
Unescape Escape View File

@ -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_

4
base/comm/internals/psi_dswaptran_a.F90
Unescape Escape View File

@ -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_

4
base/comm/internals/psi_eswapdata_a.F90
Unescape Escape View File

@ -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_

4
base/comm/internals/psi_eswaptran_a.F90
Unescape Escape View File

@ -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_

4
base/comm/internals/psi_i2swapdata_a.F90
Unescape Escape View File

@ -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_

4
base/comm/internals/psi_i2swaptran_a.F90
Unescape Escape View File

@ -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_

4
base/comm/internals/psi_iswapdata.F90
Unescape Escape View File

@ -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_

4
base/comm/internals/psi_iswaptran.F90
Unescape Escape View File

@ -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_

4
base/comm/internals/psi_lswapdata.F90
Unescape Escape View File

@ -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_

4
base/comm/internals/psi_lswaptran.F90
Unescape Escape View File

@ -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_

4
base/comm/internals/psi_mswapdata_a.F90
Unescape Escape View File

@ -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_

4
base/comm/internals/psi_mswaptran_a.F90
Unescape Escape View File

@ -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_

4
base/comm/internals/psi_sswapdata.F90
Unescape Escape View File

@ -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_

4
base/comm/internals/psi_sswapdata_a.F90
Unescape Escape View File

@ -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_

4
base/comm/internals/psi_sswaptran.F90
Unescape Escape View File

@ -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_

4
base/comm/internals/psi_sswaptran_a.F90
Unescape Escape View File

@ -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_

4
base/comm/internals/psi_zswapdata.F90
Unescape Escape View File

@ -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_

4
base/comm/internals/psi_zswapdata_a.F90
Unescape Escape View File

@ -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_

4
base/comm/internals/psi_zswaptran.F90
Unescape Escape View File

@ -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_

4
base/comm/internals/psi_zswaptran_a.F90
Unescape Escape View File

@ -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_

6
base/comm/psb_cspgather.F90
Unescape Escape View File

@ -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

6
base/comm/psb_dspgather.F90
Unescape Escape View File

@ -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

6
base/comm/psb_ispgather.F90
Unescape Escape View File

@ -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

6
base/comm/psb_lspgather.F90
Unescape Escape View File

@ -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

6
base/comm/psb_sspgather.F90
Unescape Escape View File

@ -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

6
base/comm/psb_zspgather.F90
Unescape Escape View File

@ -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

18
base/modules/desc/psb_desc_mod.F90
Unescape Escape View File

@ -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(:)

1
base/modules/desc/psb_gen_block_map_mod.F90
Unescape Escape View File

@ -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)

1
base/modules/desc/psb_glist_map_mod.F90
Unescape Escape View File

@ -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

1
base/modules/desc/psb_hash_map_mod.F90
Unescape Escape View File

@ -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)

35
base/modules/desc/psb_indx_map_mod.F90
Unescape Escape View File

@ -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

1
base/modules/desc/psb_list_map_mod.F90
Unescape Escape View File

@ -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

1
base/modules/desc/psb_repl_map_mod.F90
Unescape Escape View File

@ -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

27
base/modules/psb_const_mod.F90
Unescape Escape View File

@ -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

4
base/tools/psb_c_glob_transpose.F90
Unescape Escape View File

@ -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)

4
base/tools/psb_c_remote_mat.F90
Unescape Escape View File

@ -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

4
base/tools/psb_c_remote_vect.F90
Unescape Escape View File

@ -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

2
base/tools/psb_ccdbldext.F90
Unescape Escape View File

@ -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_) &

2
base/tools/psb_cd_reinit.f90
Unescape Escape View File

@ -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'

8
base/tools/psb_csphalo.F90
Unescape Escape View File

@ -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)

4
base/tools/psb_d_glob_transpose.F90
Unescape Escape View File

@ -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)

4
base/tools/psb_d_remote_mat.F90
Unescape Escape View File

@ -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

4
base/tools/psb_d_remote_vect.F90
Unescape Escape View File

@ -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

2
base/tools/psb_dcdbldext.F90
Unescape Escape View File

@ -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_) &

8
base/tools/psb_dsphalo.F90
Unescape Escape View File

@ -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)

4
base/tools/psb_e_remote_vect.F90
Unescape Escape View File

@ -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

4
base/tools/psb_i2_remote_vect.F90
Unescape Escape View File

@ -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

2
base/tools/psb_icdasb.F90
Unescape Escape View File

@ -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)) &

4
base/tools/psb_m_remote_vect.F90
Unescape Escape View File

@ -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

4
base/tools/psb_s_glob_transpose.F90
Unescape Escape View File

@ -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)

4
base/tools/psb_s_remote_mat.F90
Unescape Escape View File

@ -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

4
base/tools/psb_s_remote_vect.F90
Unescape Escape View File

@ -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

2
base/tools/psb_scdbldext.F90
Unescape Escape View File

@ -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_) &

8
base/tools/psb_ssphalo.F90
Unescape Escape View File

@ -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)

4
base/tools/psb_z_glob_transpose.F90
Unescape Escape View File

@ -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)

4
base/tools/psb_z_remote_mat.F90
Unescape Escape View File

@ -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

4
base/tools/psb_z_remote_vect.F90
Unescape Escape View File

@ -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

2
base/tools/psb_zcdbldext.F90
Unescape Escape View File

@ -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_) &

8
base/tools/psb_zsphalo.F90
Unescape Escape View File

@ -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)

Write Preview
Loading…
Cancel
Save