diff --git a/base/tools/psb_cgetelem.f90 b/base/tools/psb_cgetelem.f90 index a13510cc..728b4d1e 100644 --- a/base/tools/psb_cgetelem.f90 +++ b/base/tools/psb_cgetelem.f90 @@ -89,7 +89,7 @@ function psb_c_getelem(x,index,desc_a,info) result(res) myidx = desc_a%get_global_indices(owned=.false.) mylocal = desc_a%get_global_indices(owned=.true.) write(*,*)"My (local+halo) indexes are: ",myidx - write(*,*)"My (local) indexes are: ",myidx + write(*,*)"My (local) indexes are: ",mylocal end if res = x%get_entry(localindex(1)) call psb_erractionrestore(err_act) diff --git a/base/tools/psb_dgetelem.f90 b/base/tools/psb_dgetelem.f90 index d18c79eb..0611221e 100644 --- a/base/tools/psb_dgetelem.f90 +++ b/base/tools/psb_dgetelem.f90 @@ -89,7 +89,7 @@ function psb_d_getelem(x,index,desc_a,info) result(res) myidx = desc_a%get_global_indices(owned=.false.) mylocal = desc_a%get_global_indices(owned=.true.) write(*,*)"My (local+halo) indexes are: ",myidx - write(*,*)"My (local) indexes are: ",myidx + write(*,*)"My (local) indexes are: ",mylocal end if res = x%get_entry(localindex(1)) call psb_erractionrestore(err_act) diff --git a/base/tools/psb_sgetelem.f90 b/base/tools/psb_sgetelem.f90 index 1cd8297b..6a8f764e 100644 --- a/base/tools/psb_sgetelem.f90 +++ b/base/tools/psb_sgetelem.f90 @@ -89,7 +89,7 @@ function psb_s_getelem(x,index,desc_a,info) result(res) myidx = desc_a%get_global_indices(owned=.false.) mylocal = desc_a%get_global_indices(owned=.true.) write(*,*)"My (local+halo) indexes are: ",myidx - write(*,*)"My (local) indexes are: ",myidx + write(*,*)"My (local) indexes are: ",mylocal end if res = x%get_entry(localindex(1)) call psb_erractionrestore(err_act) diff --git a/base/tools/psb_zgetelem.f90 b/base/tools/psb_zgetelem.f90 index 504e343f..5e7e975f 100644 --- a/base/tools/psb_zgetelem.f90 +++ b/base/tools/psb_zgetelem.f90 @@ -89,7 +89,7 @@ function psb_z_getelem(x,index,desc_a,info) result(res) myidx = desc_a%get_global_indices(owned=.false.) mylocal = desc_a%get_global_indices(owned=.true.) write(*,*)"My (local+halo) indexes are: ",myidx - write(*,*)"My (local) indexes are: ",myidx + write(*,*)"My (local) indexes are: ",mylocal end if res = x%get_entry(localindex(1)) call psb_erractionrestore(err_act) diff --git a/cbind/base/psb_c_base.h b/cbind/base/psb_c_base.h index 7ecd6626..0b7d09e2 100644 --- a/cbind/base/psb_c_base.h +++ b/cbind/base/psb_c_base.h @@ -89,7 +89,6 @@ extern "C" { psb_i_t psb_c_cd_get_local_rows(psb_c_descriptor *cd); psb_i_t psb_c_cd_get_local_cols(psb_c_descriptor *cd); - // psb_l_t psb_c_cd_get_global_rows(psb_c_descriptor *cd); psb_l_t psb_c_cd_get_global_rows(psb_c_descriptor *cd); psb_i_t psb_c_cd_get_global_indices(psb_l_t idx[], psb_i_t nidx, bool owned, psb_c_descriptor *cd);