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

Exposed to c the psb_is_owned function

Browse Source
This commit is contained in:
fdurastante
2025-10-01 14:34:00 +02:00
parent d16b39ed1b
commit 4cd6cf21d0
2 changed files with 21 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cbind/base/psb_base_tools_cbind_mod.F90
+20
View File
@@ -390,5 +390,25 @@ contains
end function psb_c_cd_get_global_indices
function psb_c_is_owned(x,cdh) bind(c,name='psb_c_is_owned') result(res)
implicit none
type(psb_c_object_type) :: cdh
integer(psb_c_lpk_), value :: x
logical(c_bool) :: res
! Internal variables
type(psb_desc_type), pointer :: descp
integer(psb_c_ipk_) :: info
logical :: fowned
res = .false.
if (c_associated(cdh%item)) then
call c_f_pointer(cdh%item,descp)
fowned = psb_is_owned(x+(1-psb_c_get_index_base()),descp)
if (fowned) then
res = .true.
end if
end if
end function psb_c_is_owned
end module psb_base_tools_cbind_mod
cbind/base/psb_c_base.h
+1 -1
View File
@@ -80,7 +80,7 @@ extern "C" {
psb_i_t psb_c_cdasb(psb_c_descriptor *cd);
psb_i_t psb_c_cdfree(psb_c_descriptor *cd);
psb_i_t psb_c_cdins(psb_i_t nz, const psb_l_t *ia, const psb_l_t *ja, psb_c_descriptor *cd);
bool psb_c_is_owned(psb_l_t gindex, 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);