fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Corrected debug message in getelem

Browse Source
mat-allocate
Cirdans-Home 6 years ago
parent 624a07a25b
commit c0c8224253
5 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File

2
base/tools/psb_cgetelem.f90
Unescape Escape 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.) myidx = desc_a%get_global_indices(owned=.false.)
mylocal = desc_a%get_global_indices(owned=.true.) mylocal = desc_a%get_global_indices(owned=.true.)
write(*,*)"My (local+halo) indexes are: ",myidx write(*,*)"My (local+halo) indexes are: ",myidx
write(*,*)"My (local) indexes are: ",myidx write(*,*)"My (local) indexes are: ",mylocal
end if end if
res = x%get_entry(localindex(1)) res = x%get_entry(localindex(1))
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)

2
base/tools/psb_dgetelem.f90
Unescape Escape 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.) myidx = desc_a%get_global_indices(owned=.false.)
mylocal = desc_a%get_global_indices(owned=.true.) mylocal = desc_a%get_global_indices(owned=.true.)
write(*,*)"My (local+halo) indexes are: ",myidx write(*,*)"My (local+halo) indexes are: ",myidx
write(*,*)"My (local) indexes are: ",myidx write(*,*)"My (local) indexes are: ",mylocal
end if end if
res = x%get_entry(localindex(1)) res = x%get_entry(localindex(1))
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)

2
base/tools/psb_sgetelem.f90
Unescape Escape 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.) myidx = desc_a%get_global_indices(owned=.false.)
mylocal = desc_a%get_global_indices(owned=.true.) mylocal = desc_a%get_global_indices(owned=.true.)
write(*,*)"My (local+halo) indexes are: ",myidx write(*,*)"My (local+halo) indexes are: ",myidx
write(*,*)"My (local) indexes are: ",myidx write(*,*)"My (local) indexes are: ",mylocal
end if end if
res = x%get_entry(localindex(1)) res = x%get_entry(localindex(1))
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)

2
base/tools/psb_zgetelem.f90
Unescape Escape 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.) myidx = desc_a%get_global_indices(owned=.false.)
mylocal = desc_a%get_global_indices(owned=.true.) mylocal = desc_a%get_global_indices(owned=.true.)
write(*,*)"My (local+halo) indexes are: ",myidx write(*,*)"My (local+halo) indexes are: ",myidx
write(*,*)"My (local) indexes are: ",myidx write(*,*)"My (local) indexes are: ",mylocal
end if end if
res = x%get_entry(localindex(1)) res = x%get_entry(localindex(1))
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)

1
cbind/base/psb_c_base.h
Unescape Escape 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_rows(psb_c_descriptor *cd);
psb_i_t psb_c_cd_get_local_cols(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_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); psb_i_t psb_c_cd_get_global_indices(psb_l_t idx[], psb_i_t nidx, bool owned, psb_c_descriptor *cd);

Write Preview
Loading…
Cancel
Save