diff --git a/base/comm/internals/psi_cswapdata.F90 b/base/comm/internals/psi_cswapdata.F90 index db76d16e7..613770341 100644 --- a/base/comm/internals/psi_cswapdata.F90 +++ b/base/comm/internals/psi_cswapdata.F90 @@ -144,7 +144,7 @@ subroutine psi_cswapdata_vect(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_vidx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_vidx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 @@ -482,7 +482,7 @@ subroutine psi_cswapdata_multivect(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_vidx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_vidx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 diff --git a/base/comm/internals/psi_cswapdata_a.F90 b/base/comm/internals/psi_cswapdata_a.F90 index 844daa00a..307842b46 100644 --- a/base/comm/internals/psi_cswapdata_a.F90 +++ b/base/comm/internals/psi_cswapdata_a.F90 @@ -139,7 +139,7 @@ subroutine psi_cswapdatam(flag,n,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_idx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_idx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 @@ -617,7 +617,7 @@ subroutine psi_cswapdatav(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_idx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_idx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 diff --git a/base/comm/internals/psi_cswaptran.F90 b/base/comm/internals/psi_cswaptran.F90 index 28b356c8d..27dd40859 100644 --- a/base/comm/internals/psi_cswaptran.F90 +++ b/base/comm/internals/psi_cswaptran.F90 @@ -146,7 +146,7 @@ subroutine psi_cswaptran_vect(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_vidx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_vidx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 @@ -492,7 +492,7 @@ subroutine psi_cswaptran_multivect(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_vidx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_vidx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 diff --git a/base/comm/internals/psi_cswaptran_a.F90 b/base/comm/internals/psi_cswaptran_a.F90 index e46a556d3..b3b78c9ba 100644 --- a/base/comm/internals/psi_cswaptran_a.F90 +++ b/base/comm/internals/psi_cswaptran_a.F90 @@ -144,7 +144,7 @@ subroutine psi_cswaptranm(flag,n,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_idx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_idx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 @@ -628,7 +628,7 @@ subroutine psi_cswaptranv(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_idx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_idx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 diff --git a/base/comm/internals/psi_dswapdata.F90 b/base/comm/internals/psi_dswapdata.F90 index fb1924be5..28b5a6d40 100644 --- a/base/comm/internals/psi_dswapdata.F90 +++ b/base/comm/internals/psi_dswapdata.F90 @@ -144,7 +144,7 @@ subroutine psi_dswapdata_vect(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_vidx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_vidx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 @@ -482,7 +482,7 @@ subroutine psi_dswapdata_multivect(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_vidx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_vidx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 diff --git a/base/comm/internals/psi_dswapdata_a.F90 b/base/comm/internals/psi_dswapdata_a.F90 index d86025cff..6c370b82c 100644 --- a/base/comm/internals/psi_dswapdata_a.F90 +++ b/base/comm/internals/psi_dswapdata_a.F90 @@ -139,7 +139,7 @@ subroutine psi_dswapdatam(flag,n,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_idx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_idx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 @@ -617,7 +617,7 @@ subroutine psi_dswapdatav(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_idx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_idx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 diff --git a/base/comm/internals/psi_dswaptran.F90 b/base/comm/internals/psi_dswaptran.F90 index 25cd82767..3d66fb41e 100644 --- a/base/comm/internals/psi_dswaptran.F90 +++ b/base/comm/internals/psi_dswaptran.F90 @@ -146,7 +146,7 @@ subroutine psi_dswaptran_vect(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_vidx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_vidx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 @@ -492,7 +492,7 @@ subroutine psi_dswaptran_multivect(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_vidx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_vidx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 diff --git a/base/comm/internals/psi_dswaptran_a.F90 b/base/comm/internals/psi_dswaptran_a.F90 index e5966c2e0..51ae5867a 100644 --- a/base/comm/internals/psi_dswaptran_a.F90 +++ b/base/comm/internals/psi_dswaptran_a.F90 @@ -144,7 +144,7 @@ subroutine psi_dswaptranm(flag,n,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_idx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_idx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 @@ -628,7 +628,7 @@ subroutine psi_dswaptranv(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_idx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_idx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 diff --git a/base/comm/internals/psi_eswapdata_a.F90 b/base/comm/internals/psi_eswapdata_a.F90 index d917b64cd..104aee387 100644 --- a/base/comm/internals/psi_eswapdata_a.F90 +++ b/base/comm/internals/psi_eswapdata_a.F90 @@ -139,7 +139,7 @@ subroutine psi_eswapdatam(flag,n,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_idx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_idx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 @@ -617,7 +617,7 @@ subroutine psi_eswapdatav(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_idx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_idx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 diff --git a/base/comm/internals/psi_eswaptran_a.F90 b/base/comm/internals/psi_eswaptran_a.F90 index 67a925699..a93dd6b7d 100644 --- a/base/comm/internals/psi_eswaptran_a.F90 +++ b/base/comm/internals/psi_eswaptran_a.F90 @@ -144,7 +144,7 @@ subroutine psi_eswaptranm(flag,n,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_idx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_idx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 @@ -628,7 +628,7 @@ subroutine psi_eswaptranv(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_idx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_idx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 diff --git a/base/comm/internals/psi_i2swapdata_a.F90 b/base/comm/internals/psi_i2swapdata_a.F90 index 3d82d5b11..58dbb517b 100644 --- a/base/comm/internals/psi_i2swapdata_a.F90 +++ b/base/comm/internals/psi_i2swapdata_a.F90 @@ -139,7 +139,7 @@ subroutine psi_i2swapdatam(flag,n,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_idx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_idx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 @@ -617,7 +617,7 @@ subroutine psi_i2swapdatav(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_idx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_idx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 diff --git a/base/comm/internals/psi_i2swaptran_a.F90 b/base/comm/internals/psi_i2swaptran_a.F90 index 925e8a0cb..7d3887404 100644 --- a/base/comm/internals/psi_i2swaptran_a.F90 +++ b/base/comm/internals/psi_i2swaptran_a.F90 @@ -144,7 +144,7 @@ subroutine psi_i2swaptranm(flag,n,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_idx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_idx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 @@ -628,7 +628,7 @@ subroutine psi_i2swaptranv(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_idx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_idx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 diff --git a/base/comm/internals/psi_iswapdata.F90 b/base/comm/internals/psi_iswapdata.F90 index d73277efe..c57af1d0c 100644 --- a/base/comm/internals/psi_iswapdata.F90 +++ b/base/comm/internals/psi_iswapdata.F90 @@ -144,7 +144,7 @@ subroutine psi_iswapdata_vect(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_vidx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_vidx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 @@ -482,7 +482,7 @@ subroutine psi_iswapdata_multivect(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_vidx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_vidx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 diff --git a/base/comm/internals/psi_iswaptran.F90 b/base/comm/internals/psi_iswaptran.F90 index 9f58455a8..601ded781 100644 --- a/base/comm/internals/psi_iswaptran.F90 +++ b/base/comm/internals/psi_iswaptran.F90 @@ -146,7 +146,7 @@ subroutine psi_iswaptran_vect(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_vidx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_vidx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 @@ -492,7 +492,7 @@ subroutine psi_iswaptran_multivect(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_vidx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_vidx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 diff --git a/base/comm/internals/psi_lswapdata.F90 b/base/comm/internals/psi_lswapdata.F90 index 2d819ae9e..566db1e9a 100644 --- a/base/comm/internals/psi_lswapdata.F90 +++ b/base/comm/internals/psi_lswapdata.F90 @@ -144,7 +144,7 @@ subroutine psi_lswapdata_vect(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_vidx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_vidx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 @@ -482,7 +482,7 @@ subroutine psi_lswapdata_multivect(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_vidx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_vidx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 diff --git a/base/comm/internals/psi_lswaptran.F90 b/base/comm/internals/psi_lswaptran.F90 index 3bf0eacd1..4c33fde05 100644 --- a/base/comm/internals/psi_lswaptran.F90 +++ b/base/comm/internals/psi_lswaptran.F90 @@ -146,7 +146,7 @@ subroutine psi_lswaptran_vect(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_vidx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_vidx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 @@ -492,7 +492,7 @@ subroutine psi_lswaptran_multivect(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_vidx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_vidx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 diff --git a/base/comm/internals/psi_mswapdata_a.F90 b/base/comm/internals/psi_mswapdata_a.F90 index bda186b8e..774c53e41 100644 --- a/base/comm/internals/psi_mswapdata_a.F90 +++ b/base/comm/internals/psi_mswapdata_a.F90 @@ -139,7 +139,7 @@ subroutine psi_mswapdatam(flag,n,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_idx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_idx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 @@ -617,7 +617,7 @@ subroutine psi_mswapdatav(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_idx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_idx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 diff --git a/base/comm/internals/psi_mswaptran_a.F90 b/base/comm/internals/psi_mswaptran_a.F90 index 65e3e6c7d..fca78eb7d 100644 --- a/base/comm/internals/psi_mswaptran_a.F90 +++ b/base/comm/internals/psi_mswaptran_a.F90 @@ -144,7 +144,7 @@ subroutine psi_mswaptranm(flag,n,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_idx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_idx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 @@ -628,7 +628,7 @@ subroutine psi_mswaptranv(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_idx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_idx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 diff --git a/base/comm/internals/psi_sswapdata.F90 b/base/comm/internals/psi_sswapdata.F90 index e3b49e348..3d594e76b 100644 --- a/base/comm/internals/psi_sswapdata.F90 +++ b/base/comm/internals/psi_sswapdata.F90 @@ -144,7 +144,7 @@ subroutine psi_sswapdata_vect(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_vidx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_vidx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 @@ -482,7 +482,7 @@ subroutine psi_sswapdata_multivect(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_vidx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_vidx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 diff --git a/base/comm/internals/psi_sswapdata_a.F90 b/base/comm/internals/psi_sswapdata_a.F90 index ae4561621..601ca35be 100644 --- a/base/comm/internals/psi_sswapdata_a.F90 +++ b/base/comm/internals/psi_sswapdata_a.F90 @@ -139,7 +139,7 @@ subroutine psi_sswapdatam(flag,n,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_idx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_idx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 @@ -617,7 +617,7 @@ subroutine psi_sswapdatav(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_idx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_idx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 diff --git a/base/comm/internals/psi_sswaptran.F90 b/base/comm/internals/psi_sswaptran.F90 index abb0ebed7..03b25a871 100644 --- a/base/comm/internals/psi_sswaptran.F90 +++ b/base/comm/internals/psi_sswaptran.F90 @@ -146,7 +146,7 @@ subroutine psi_sswaptran_vect(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_vidx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_vidx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 @@ -492,7 +492,7 @@ subroutine psi_sswaptran_multivect(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_vidx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_vidx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 diff --git a/base/comm/internals/psi_sswaptran_a.F90 b/base/comm/internals/psi_sswaptran_a.F90 index f4f9513ed..5a1f80c0f 100644 --- a/base/comm/internals/psi_sswaptran_a.F90 +++ b/base/comm/internals/psi_sswaptran_a.F90 @@ -144,7 +144,7 @@ subroutine psi_sswaptranm(flag,n,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_idx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_idx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 @@ -628,7 +628,7 @@ subroutine psi_sswaptranv(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_idx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_idx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 diff --git a/base/comm/internals/psi_zswapdata.F90 b/base/comm/internals/psi_zswapdata.F90 index 53147c846..f6fa7ebf7 100644 --- a/base/comm/internals/psi_zswapdata.F90 +++ b/base/comm/internals/psi_zswapdata.F90 @@ -144,7 +144,7 @@ subroutine psi_zswapdata_vect(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_vidx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_vidx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 @@ -482,7 +482,7 @@ subroutine psi_zswapdata_multivect(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_vidx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_vidx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 diff --git a/base/comm/internals/psi_zswapdata_a.F90 b/base/comm/internals/psi_zswapdata_a.F90 index c0ac76f53..52160b611 100644 --- a/base/comm/internals/psi_zswapdata_a.F90 +++ b/base/comm/internals/psi_zswapdata_a.F90 @@ -139,7 +139,7 @@ subroutine psi_zswapdatam(flag,n,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_idx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_idx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 @@ -617,7 +617,7 @@ subroutine psi_zswapdatav(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_idx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_idx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 diff --git a/base/comm/internals/psi_zswaptran.F90 b/base/comm/internals/psi_zswaptran.F90 index 367dbd33d..33334a283 100644 --- a/base/comm/internals/psi_zswaptran.F90 +++ b/base/comm/internals/psi_zswaptran.F90 @@ -146,7 +146,7 @@ subroutine psi_zswaptran_vect(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_vidx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_vidx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 @@ -492,7 +492,7 @@ subroutine psi_zswaptran_multivect(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_vidx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_vidx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 diff --git a/base/comm/internals/psi_zswaptran_a.F90 b/base/comm/internals/psi_zswaptran_a.F90 index 804acb6bd..64ca18f1f 100644 --- a/base/comm/internals/psi_zswaptran_a.F90 +++ b/base/comm/internals/psi_zswaptran_a.F90 @@ -144,7 +144,7 @@ subroutine psi_zswaptranm(flag,n,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_idx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_idx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 @@ -628,7 +628,7 @@ subroutine psi_zswaptranv(flag,beta,y,desc_a,work,info,data) data_ = psb_comm_halo_ end if - call desc_a%get_list(data_,d_idx,totxch,idxr,idxs,info) + call desc_a%get_list_p(data_,d_idx,totxch,idxr,idxs,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') goto 9999 diff --git a/base/modules/desc/psb_desc_mod.F90 b/base/modules/desc/psb_desc_mod.F90 index 07a7f755d..b83542a4a 100644 --- a/base/modules/desc/psb_desc_mod.F90 +++ b/base/modules/desc/psb_desc_mod.F90 @@ -236,9 +236,9 @@ module psb_desc_mod procedure, pass(desc) :: get_p_adjcncy => cd_get_p_adjcncy procedure, pass(desc) :: set_p_adjcncy => cd_set_p_adjcncy procedure, pass(desc) :: xtnd_p_adjcncy => cd_xtnd_p_adjcncy - procedure, pass(desc) :: a_get_list => psb_cd_get_list - procedure, pass(desc) :: v_get_list => psb_cd_v_get_list - generic, public :: get_list => a_get_list, v_get_list + procedure, pass(desc) :: a_get_list_p => psb_cd_get_list_p + procedure, pass(desc) :: v_get_list_p => psb_cd_v_get_list_p + generic, public :: get_list_p => a_get_list_p, v_get_list_p procedure, pass(desc) :: sizeof => psb_cd_sizeof procedure, pass(desc) :: clone => psb_cd_clone procedure, pass(desc) :: cnv => psb_cd_cnv @@ -742,7 +742,7 @@ contains - subroutine psb_cd_get_list(data,desc,ipnt,totxch,idxr,idxs,info) + subroutine psb_cd_get_list_p(data,desc,ipnt,totxch,idxr,idxs,info) use psb_const_mod use psb_error_mod use psb_penv_mod @@ -757,7 +757,7 @@ contains type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np, me, err_act, debug_level, debug_unit logical, parameter :: debug=.false., debugprt=.false. - character(len=20), parameter :: name='psb_cd_get_list' + character(len=20), parameter :: name='psb_cd_get_list_p' info = psb_success_ call psb_erractionsave(err_act) @@ -769,12 +769,25 @@ contains call psb_info(ctxt, me, np) select case(data) - case(psb_comm_halo_) - ipnt => desc%halo_index + case(psb_comm_halo_) + if (allocated(desc%halo_index)) then + ipnt => desc%halo_index + else + info = psb_err_invalid_cd_state_ + end if case(psb_comm_ovr_) - ipnt => desc%ovrlap_index + if (allocated(desc%ovrlap_index)) then + ipnt => desc%ovrlap_index + else + info = psb_err_invalid_cd_state_ + end if + case(psb_comm_ext_) - ipnt => desc%ext_index + if (allocated(desc%ext_index)) then + ipnt => desc%ext_index + else + info = psb_err_invalid_cd_state_ + end if if (debug_level >= psb_debug_ext_) then if (.not.associated(desc%base_desc)) then write(debug_unit,*) trim(name),& @@ -788,12 +801,17 @@ contains end if end if case(psb_comm_mov_) - ipnt => desc%ovr_mst_idx + if (allocated(desc%ovr_mst_idx)) then + ipnt => desc%ovr_mst_idx + else + info = psb_err_invalid_cd_state_ + end if case default info=psb_err_from_subroutine_ call psb_errpush(info,name,a_err='wrong Data selector') - goto 9999 end select + if (info /= 0) goto 9999 + call psb_get_xch_idx(ipnt,totxch,idxs,idxr) @@ -805,10 +823,10 @@ contains return - end subroutine psb_cd_get_list + end subroutine psb_cd_get_list_p - subroutine psb_cd_v_get_list(data,desc,ipnt,totxch,idxr,idxs,info) + subroutine psb_cd_v_get_list_p(data,desc,ipnt,totxch,idxr,idxs,info) use psb_const_mod use psb_error_mod use psb_penv_mod @@ -822,7 +840,7 @@ contains type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np, me, err_act, debug_level, debug_unit logical, parameter :: debug=.false., debugprt=.false. - character(len=20), parameter :: name='psb_cd_v_get_list' + character(len=20), parameter :: name='psb_cd_v_get_list_p' info = psb_success_ call psb_erractionsave(err_act) @@ -834,18 +852,25 @@ contains call psb_info(ctxt, me, np) select case(data) - case(psb_comm_halo_) - ipnt => desc%v_halo_index%v - if (.not.allocated(desc%v_halo_index%v)) & - & info = psb_err_inconsistent_index_lists_ + case(psb_comm_halo_) + if (allocated(desc%v_halo_index%v)) then + ipnt => desc%v_halo_index%v + else + info = psb_err_inconsistent_index_lists_ + end if case(psb_comm_ovr_) - ipnt => desc%v_ovrlap_index%v - if (.not.allocated(desc%v_ovrlap_index%v)) & - & info = psb_err_inconsistent_index_lists_ + if (allocated(desc%v_ovrlap_index%v)) then + ipnt => desc%v_ovrlap_index%v + else + info = psb_err_inconsistent_index_lists_ + end if + case(psb_comm_ext_) - ipnt => desc%v_ext_index%v - if (.not.allocated(desc%v_ext_index%v)) & - & info = psb_err_inconsistent_index_lists_ + if (allocated(desc%v_ext_index%v)) then + ipnt => desc%v_ext_index%v + else + info = psb_err_inconsistent_index_lists_ + end if if (debug_level >= psb_debug_ext_) then if (.not.associated(desc%base_desc)) then write(debug_unit,*) trim(name),& @@ -859,17 +884,17 @@ contains end if end if case(psb_comm_mov_) - ipnt => desc%v_ovr_mst_idx%v - if (.not.allocated(desc%v_ovr_mst_idx%v)) & - & info = psb_err_inconsistent_index_lists_ - + if (allocated(desc%v_ovr_mst_idx%v)) then + ipnt => desc%v_ovr_mst_idx%v + else + info = psb_err_inconsistent_index_lists_ + end if case default info=psb_err_from_subroutine_ - end select - if (info /= psb_success_) then call psb_errpush(info,name,a_err='wrong Data selector') - goto 9999 - end if + end select + if (info /= 0) goto 9999 + call psb_get_v_xch_idx(ipnt,totxch,idxs,idxr) @@ -881,7 +906,7 @@ contains return - end subroutine psb_cd_v_get_list + end subroutine psb_cd_v_get_list_p ! ! Subroutine: psb_cdfree diff --git a/base/tools/psb_cdprt.f90 b/base/tools/psb_cdprt.f90 index 1e14ed640..473995df0 100644 --- a/base/tools/psb_cdprt.f90 +++ b/base/tools/psb_cdprt.f90 @@ -169,7 +169,7 @@ contains else data_ = psb_comm_halo_ end if - call psb_cd_v_get_list(data_,desc_p,vpnt,totxch,idxr,idxs,info) + call desc_p%get_list_p(data_,vpnt,totxch,idxr,idxs,info) res = totxch end function get_nxchg @@ -201,7 +201,7 @@ contains verb_ = 1 end if - call psb_cd_v_get_list(data_,desc_p,vpnt,totxch,idxr,idxs,info) + call desc_p%get_list_p(data_,vpnt,totxch,idxr,idxs,info) if (glob) & & call psb_realloc(max(idxr,idxs,1),gidx,info) diff --git a/base/tools/psb_csphalo.F90 b/base/tools/psb_csphalo.F90 index 4c56cc5ef..dc2014adc 100644 --- a/base/tools/psb_csphalo.F90 +++ b/base/tools/psb_csphalo.F90 @@ -198,7 +198,7 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,& idxs = 0 idxr = 0 - call desc_a%get_list(data_,pdxv,totxch,nxr,nxs,info) + call desc_a%get_list_p(data_,pdxv,totxch,nxr,nxs,info) ipdxv = pdxv%get_vect() ! For all rows in the halo descriptor, extract the row size lnr = 0 @@ -658,7 +658,7 @@ Subroutine psb_lcsphalo(a,desc_a,blk,info,rowcnv,colcnv,& idxs = 0 idxr = 0 - call desc_a%get_list(data_,pdxv,totxch,nxr,nxs,info) + call desc_a%get_list_p(data_,pdxv,totxch,nxr,nxs,info) ipdxv = pdxv%get_vect() ! For all rows in the halo descriptor, extract and send/receive. lnr = 0 @@ -1004,7 +1004,7 @@ Subroutine psb_lc_csr_halo(a,desc_a,blk,info,rowcnv,colcnv,& idxs = 0 idxr = 0 - call desc_a%get_list(data_,pdxv,totxch,nxr,nxs,info) + call desc_a%get_list_p(data_,pdxv,totxch,nxr,nxs,info) ipdxv = pdxv%get_vect() ! For all rows in the halo descriptor, extract the row size lnr = 0 @@ -1366,7 +1366,7 @@ Subroutine psb_c_lc_csr_halo(a,desc_a,blk,info,rowcnv,colcnv,& idxs = 0 idxr = 0 - call desc_a%get_list(data_,pdxv,totxch,nxr,nxs,info) + call desc_a%get_list_p(data_,pdxv,totxch,nxr,nxs,info) ipdxv = pdxv%get_vect() ! For all rows in the halo descriptor, extract the row size lnr = 0 diff --git a/base/tools/psb_dsphalo.F90 b/base/tools/psb_dsphalo.F90 index c793eb2a1..9ae0677f0 100644 --- a/base/tools/psb_dsphalo.F90 +++ b/base/tools/psb_dsphalo.F90 @@ -198,7 +198,7 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,& idxs = 0 idxr = 0 - call desc_a%get_list(data_,pdxv,totxch,nxr,nxs,info) + call desc_a%get_list_p(data_,pdxv,totxch,nxr,nxs,info) ipdxv = pdxv%get_vect() ! For all rows in the halo descriptor, extract the row size lnr = 0 @@ -658,7 +658,7 @@ Subroutine psb_ldsphalo(a,desc_a,blk,info,rowcnv,colcnv,& idxs = 0 idxr = 0 - call desc_a%get_list(data_,pdxv,totxch,nxr,nxs,info) + call desc_a%get_list_p(data_,pdxv,totxch,nxr,nxs,info) ipdxv = pdxv%get_vect() ! For all rows in the halo descriptor, extract and send/receive. lnr = 0 @@ -1004,7 +1004,7 @@ Subroutine psb_ld_csr_halo(a,desc_a,blk,info,rowcnv,colcnv,& idxs = 0 idxr = 0 - call desc_a%get_list(data_,pdxv,totxch,nxr,nxs,info) + call desc_a%get_list_p(data_,pdxv,totxch,nxr,nxs,info) ipdxv = pdxv%get_vect() ! For all rows in the halo descriptor, extract the row size lnr = 0 @@ -1366,7 +1366,7 @@ Subroutine psb_d_ld_csr_halo(a,desc_a,blk,info,rowcnv,colcnv,& idxs = 0 idxr = 0 - call desc_a%get_list(data_,pdxv,totxch,nxr,nxs,info) + call desc_a%get_list_p(data_,pdxv,totxch,nxr,nxs,info) ipdxv = pdxv%get_vect() ! For all rows in the halo descriptor, extract the row size lnr = 0 diff --git a/base/tools/psb_ssphalo.F90 b/base/tools/psb_ssphalo.F90 index 81e9616f9..a1ba28ef7 100644 --- a/base/tools/psb_ssphalo.F90 +++ b/base/tools/psb_ssphalo.F90 @@ -198,7 +198,7 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,& idxs = 0 idxr = 0 - call desc_a%get_list(data_,pdxv,totxch,nxr,nxs,info) + call desc_a%get_list_p(data_,pdxv,totxch,nxr,nxs,info) ipdxv = pdxv%get_vect() ! For all rows in the halo descriptor, extract the row size lnr = 0 @@ -658,7 +658,7 @@ Subroutine psb_lssphalo(a,desc_a,blk,info,rowcnv,colcnv,& idxs = 0 idxr = 0 - call desc_a%get_list(data_,pdxv,totxch,nxr,nxs,info) + call desc_a%get_list_p(data_,pdxv,totxch,nxr,nxs,info) ipdxv = pdxv%get_vect() ! For all rows in the halo descriptor, extract and send/receive. lnr = 0 @@ -1004,7 +1004,7 @@ Subroutine psb_ls_csr_halo(a,desc_a,blk,info,rowcnv,colcnv,& idxs = 0 idxr = 0 - call desc_a%get_list(data_,pdxv,totxch,nxr,nxs,info) + call desc_a%get_list_p(data_,pdxv,totxch,nxr,nxs,info) ipdxv = pdxv%get_vect() ! For all rows in the halo descriptor, extract the row size lnr = 0 @@ -1366,7 +1366,7 @@ Subroutine psb_s_ls_csr_halo(a,desc_a,blk,info,rowcnv,colcnv,& idxs = 0 idxr = 0 - call desc_a%get_list(data_,pdxv,totxch,nxr,nxs,info) + call desc_a%get_list_p(data_,pdxv,totxch,nxr,nxs,info) ipdxv = pdxv%get_vect() ! For all rows in the halo descriptor, extract the row size lnr = 0 diff --git a/base/tools/psb_zsphalo.F90 b/base/tools/psb_zsphalo.F90 index 6d814b39e..89dbc4dd3 100644 --- a/base/tools/psb_zsphalo.F90 +++ b/base/tools/psb_zsphalo.F90 @@ -198,7 +198,7 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,& idxs = 0 idxr = 0 - call desc_a%get_list(data_,pdxv,totxch,nxr,nxs,info) + call desc_a%get_list_p(data_,pdxv,totxch,nxr,nxs,info) ipdxv = pdxv%get_vect() ! For all rows in the halo descriptor, extract the row size lnr = 0 @@ -658,7 +658,7 @@ Subroutine psb_lzsphalo(a,desc_a,blk,info,rowcnv,colcnv,& idxs = 0 idxr = 0 - call desc_a%get_list(data_,pdxv,totxch,nxr,nxs,info) + call desc_a%get_list_p(data_,pdxv,totxch,nxr,nxs,info) ipdxv = pdxv%get_vect() ! For all rows in the halo descriptor, extract and send/receive. lnr = 0 @@ -1004,7 +1004,7 @@ Subroutine psb_lz_csr_halo(a,desc_a,blk,info,rowcnv,colcnv,& idxs = 0 idxr = 0 - call desc_a%get_list(data_,pdxv,totxch,nxr,nxs,info) + call desc_a%get_list_p(data_,pdxv,totxch,nxr,nxs,info) ipdxv = pdxv%get_vect() ! For all rows in the halo descriptor, extract the row size lnr = 0 @@ -1366,7 +1366,7 @@ Subroutine psb_z_lz_csr_halo(a,desc_a,blk,info,rowcnv,colcnv,& idxs = 0 idxr = 0 - call desc_a%get_list(data_,pdxv,totxch,nxr,nxs,info) + call desc_a%get_list_p(data_,pdxv,totxch,nxr,nxs,info) ipdxv = pdxv%get_vect() ! For all rows in the halo descriptor, extract the row size lnr = 0 diff --git a/cbind/CMakeLists.txt b/cbind/CMakeLists.txt index 18bd3ad72..c700b5a88 100644 --- a/cbind/CMakeLists.txt +++ b/cbind/CMakeLists.txt @@ -19,7 +19,7 @@ set(PSB_cbind_source_files base/psb_c_psblas_cbind_mod.f90 base/psb_d_comm_cbind_mod.f90 base/psb_z_tools_cbind_mod.F90 - base/psb_cpenv_mod.f90 + base/psb_cpenv_mod.F90 util/psb_c_util_cbind_mod.f90 util/psb_s_util_cbind_mod.f90 util/psb_util_cbind_mod.f90 diff --git a/cbind/base/psb_base_cbind_mod.f90 b/cbind/base/psb_base_cbind_mod.f90 index f7d74e743..036e662ab 100644 --- a/cbind/base/psb_base_cbind_mod.f90 +++ b/cbind/base/psb_base_cbind_mod.f90 @@ -11,4 +11,5 @@ module psb_base_cbind_mod use psb_c_comm_cbind_mod use psb_z_comm_cbind_mod use psb_base_psblas_cbind_mod + use psb_ext_mod end module psb_base_cbind_mod diff --git a/cbind/test/pdegen/Makefile b/cbind/test/pdegen/Makefile index cd7c8d680..a3e0a38f6 100644 --- a/cbind/test/pdegen/Makefile +++ b/cbind/test/pdegen/Makefile @@ -9,7 +9,7 @@ FINCLUDES=$(FMFLAG). $(FMFLAG)$(HERE) $(FMFLAG)$(MODDIR) CINCLUDES=-I. -I$(HERE) -I$(INCLUDEDIR) PSBC_LIBS= -L$(LIBDIR) -lpsb_cbind -PSB_LIBS=-lpsb_util -lpsb_linsolve -lpsb_prec -lpsb_base -L$(LIBDIR) +PSB_LIBS=-lpsb_util -lpsb_linsolve -lpsb_prec -lpsb_ext -lpsb_base -L$(LIBDIR) # # Compilers and such