fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-19 20:32:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

Corrected debug message in getelem

Browse Source
This commit is contained in:
Cirdans-Home
2020-09-24 16:49:49 +02:00
parent 624a07a25b
commit c0c8224253
5 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/tools/psb_cgetelem.f90
+1 -1
View File
@@ -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
+1 -1
View File
@@ -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
+1 -1
View File
@@ -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
+1 -1
View File
@@ -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
-1
View File
@@ -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);