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

Change name of desc%get_list into desc%get_list_p

Browse Source
matrix-free
Salvatore Filippone 3 months ago
parent 174a8fc542
commit 3d92668973
32 changed files with 128 additions and 103 deletions
Show Stats Download Patch File Download Diff File

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

4
base/tools/psb_cdprt.f90
Unescape Escape View File

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

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

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

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

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

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

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

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

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

Write Preview
Loading…
Cancel
Save