Change name of desc%get_list into desc%get_list_p

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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)
 

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

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

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

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