From c0c8224253efa6673fc1e18eeaa216b406cff345 Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Thu, 24 Sep 2020 16:49:49 +0200 Subject: [PATCH] Corrected debug message in getelem --- base/tools/psb_cgetelem.f90 | 2 +- base/tools/psb_dgetelem.f90 | 2 +- base/tools/psb_sgetelem.f90 | 2 +- base/tools/psb_zgetelem.f90 | 2 +- cbind/base/psb_c_base.h | 1 - 5 files changed, 4 insertions(+), 5 deletions(-) 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);