Corrected debug message in getelem

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)

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)

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)

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)

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