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

Exposed psb_c_cd_is_asb to check is descriptor is assembled

Browse Source
This commit is contained in:
fdurastante
2025-10-03 15:16:28 +02:00
parent 6ee08787a5
commit f120015ff5
2 changed files with 22 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cbind/base/psb_base_tools_cbind_mod.F90
+21
View File
@@ -277,6 +277,27 @@ contains
return
end function psb_c_cdins
function psb_c_cd_is_asb(cdh) bind(c,name='psb_c_cd_is_asb') result(res)
implicit none
logical(c_bool) :: res
type(psb_c_object_type) :: cdh
type(psb_desc_type), pointer :: descp
res = .false.
if (c_associated(cdh%item)) then
call c_f_pointer(cdh%item,descp)
if (descp%is_asb()) then
res = .true.
else
res = .false.
end if
end if
end function psb_c_cd_is_asb
function psb_c_cd_get_local_rows(cdh) bind(c,name='psb_c_cd_get_local_rows') result(res)
cbind/base/psb_c_base.h
+1
View File
@@ -81,6 +81,7 @@ extern "C" {
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);
bool psb_c_cd_is_asb(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);