Home
last modified time | relevance | path

Searched refs:FORTRANNULLSCALARPOINTER (Results 1 – 3 of 3) sorted by relevance

/petsc/src/dm/impls/plex/ftn-custom/
H A Dzplexf90.c156 …if (FORTRANNULLSCALARPOINTER(valPtr)) *ierr = DMPlexGetClosureIndices(*dm, *section, *idxSection, … in dmplexgetclosureindices_()
161 …if (FORTRANNULLSCALARPOINTER(valPtr)) *ierr = F90Array1dCreate((void *)values, MPIU_SCALAR, 1, *nu… in dmplexgetclosureindices_()
172 if (!FORTRANNULLSCALARPOINTER(valPtr)) { in dmplexrestoreclosureindices_()
180 …if (!FORTRANNULLSCALARPOINTER(valPtr)) *ierr = F90Array1dDestroy(valPtr, MPIU_SCALAR PETSC_F90_2PT… in dmplexrestoreclosureindices_()
/petsc/src/mat/interface/ftn-custom/
H A Dzmatrixf90.c60 if (FORTRANNULLINTEGERPOINTER(ia) && FORTRANNULLSCALARPOINTER(a)) { in matgetrow_()
64 } else if (FORTRANNULLSCALARPOINTER(a)) { in matgetrow_()
80 if (FORTRANNULLINTEGERPOINTER(ia) && FORTRANNULLSCALARPOINTER(a)) { in matrestorerow_()
90 if (!FORTRANNULLSCALARPOINTER(a)) { in matrestorerow_()
98 } else if (FORTRANNULLSCALARPOINTER(a)) { in matrestorerow_()
/petsc/include/petsc/private/
H A Dftnimpl.h76 #define FORTRANNULLSCALARPOINTER(a) (((void *)(PETSC_UINTPTR_T)a) == PETSC_NULL_SCALAR_POINTER_For… macro