51   PetscInt        n;  in dmplexgetcone_()  local
53   *ierr = DMPlexGetConeSize(*dm, *p, &n);  in dmplexgetcone_()
57   *ierr = F90Array1dCreate((void *)v, MPIU_INT, 1, n, ptr PETSC_F90_2PTR_PARAM(ptrd));  in dmplexgetcone_()
69   PetscInt        n;  in dmplexgetconeorientation_()  local
71   *ierr = DMPlexGetConeSize(*dm, *p, &n);  in dmplexgetconeorientation_()
75   *ierr = F90Array1dCreate((void *)v, MPIU_INT, 1, n, ptr PETSC_F90_2PTR_PARAM(ptrd));  in dmplexgetconeorientation_()
87   PetscInt        n;  in dmplexgetsupport_()  local
89   *ierr = DMPlexGetSupportSize(*dm, *p, &n);  in dmplexgetsupport_()
93   *ierr = F90Array1dCreate((void *)v, MPIU_INT, 1, n, ptr PETSC_F90_2PTR_PARAM(ptrd));  in dmplexgetsupport_()
102 PETSC_EXTERN void dmplexgettransitiveclosure_(DM *dm, PetscInt *p, PetscBool *useCone, PetscInt *N,…  in dmplexgettransitiveclosure_()  argument
105   PetscInt  n;  in dmplexgettransitiveclosure_()  local
107   CHKFORTRANNULL(N);  in dmplexgettransitiveclosure_()
108   *ierr = DMPlexGetTransitiveClosure(*dm, *p, *useCone, &n, &v);  in dmplexgettransitiveclosure_()
110   *ierr = F90Array1dCreate((void *)v, MPIU_INT, 1, n * 2, ptr PETSC_F90_2PTR_PARAM(ptrd));  in dmplexgettransitiveclosure_()
111   if (N) *N = n;  in dmplexgettransitiveclosure_()
114 …estoretransitiveclosure_(DM *dm, PetscInt *p, PetscBool *useCone, PetscInt *N, F90Array1d *ptr, in…  in dmplexrestoretransitiveclosure_()  argument
126 …tclosure_(DM *dm, PetscSection *section, Vec *x, PetscInt *point, PetscInt *N, F90Array1d *ptr, in…  in dmplexvecgetclosure_()  argument
129   PetscInt     n;  in dmplexvecgetclosure_()  local
131   CHKFORTRANNULL(N);  in dmplexvecgetclosure_()
132   *ierr = DMPlexVecGetClosure(*dm, *section, *x, *point, &n, &v);  in dmplexvecgetclosure_()
134   *ierr = F90Array1dCreate((void *)v, MPIU_SCALAR, 1, n, ptr PETSC_F90_2PTR_PARAM(ptrd));  in dmplexvecgetclosure_()
135   if (N) *N = n;  in dmplexvecgetclosure_()
138 …eclosure_(DM *dm, PetscSection *section, Vec *v, PetscInt *point, PetscInt *N, F90Array1d *ptr, in…  in dmplexvecrestoreclosure_()  argument
183 PETSC_EXTERN void dmplexgetjoin_(DM *dm, PetscInt *numPoints, PetscInt *points, PetscInt *N, F90Arr…  in dmplexgetjoin_()  argument
186   PetscInt        n;  in dmplexgetjoin_()  local
188   CHKFORTRANNULL(N);  in dmplexgetjoin_()
189   *ierr = DMPlexGetJoin(*dm, *numPoints, points, &n, &coveredPoints);  in dmplexgetjoin_()
191   *ierr = F90Array1dCreate((void *)coveredPoints, MPIU_INT, 1, n, cptr PETSC_F90_2PTR_PARAM(cptrd));  in dmplexgetjoin_()
192   if (N) *N = n;  in dmplexgetjoin_()
195 PETSC_EXTERN void dmplexgetfulljoin_(DM *dm, PetscInt *numPoints, PetscInt *points, PetscInt *N, F9…  in dmplexgetfulljoin_()  argument
198   PetscInt        n;  in dmplexgetfulljoin_()  local
200   CHKFORTRANNULL(N);  in dmplexgetfulljoin_()
201   *ierr = DMPlexGetFullJoin(*dm, *numPoints, points, &n, &coveredPoints);  in dmplexgetfulljoin_()
203   *ierr = F90Array1dCreate((void *)coveredPoints, MPIU_INT, 1, n, cptr PETSC_F90_2PTR_PARAM(cptrd));  in dmplexgetfulljoin_()
204   if (N) *N = n;  in dmplexgetfulljoin_()
207 PETSC_EXTERN void dmplexrestorejoin_(DM *dm, PetscInt *numPoints, PetscInt *points, PetscInt *N, F9…  in dmplexrestorejoin_()  argument
219 PETSC_EXTERN void dmplexgetmeet_(DM *dm, PetscInt *numPoints, PetscInt *points, PetscInt *N, F90Arr…  in dmplexgetmeet_()  argument
222   PetscInt        n;  in dmplexgetmeet_()  local
224   CHKFORTRANNULL(N);  in dmplexgetmeet_()
225   *ierr = DMPlexGetMeet(*dm, *numPoints, points, &n, &coveredPoints);  in dmplexgetmeet_()
227   *ierr = F90Array1dCreate((void *)coveredPoints, MPIU_INT, 1, n, cptr PETSC_F90_2PTR_PARAM(cptrd));  in dmplexgetmeet_()
228   if (N) *N = n;  in dmplexgetmeet_()
231 PETSC_EXTERN void dmplexgetfullmeet_(DM *dm, PetscInt *numPoints, PetscInt *points, PetscInt *N, F9…  in dmplexgetfullmeet_()  argument
234   PetscInt        n;  in dmplexgetfullmeet_()  local
236   CHKFORTRANNULL(N);  in dmplexgetfullmeet_()
238   *ierr = DMPlexGetFullMeet(*dm, *numPoints, points, &n, &coveredPoints);  in dmplexgetfullmeet_()
240   *ierr = F90Array1dCreate((void *)coveredPoints, MPIU_INT, 1, n, cptr PETSC_F90_2PTR_PARAM(cptrd));  in dmplexgetfullmeet_()
241   if (N) *N = n;  in dmplexgetfullmeet_()
244 PETSC_EXTERN void dmplexrestoremeet_(DM *dm, PetscInt *numPoints, PetscInt *points, PetscInt *N, F9…  in dmplexrestoremeet_()  argument