Lines Matching refs:ierr
48 PETSC_EXTERN void dmplexgetcone_(DM *dm, PetscInt *p, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PRO… in dmplexgetcone_()
53 *ierr = DMPlexGetConeSize(*dm, *p, &n); in dmplexgetcone_()
54 if (*ierr) return; in dmplexgetcone_()
55 *ierr = DMPlexGetCone(*dm, *p, &v); in dmplexgetcone_()
56 if (*ierr) return; in dmplexgetcone_()
57 *ierr = F90Array1dCreate((void *)v, MPIU_INT, 1, n, ptr PETSC_F90_2PTR_PARAM(ptrd)); in dmplexgetcone_()
60 PETSC_EXTERN void dmplexrestorecone_(DM *dm, PetscInt *p, F90Array1d *ptr, int *ierr PETSC_F90_2PTR… in dmplexrestorecone_()
62 *ierr = F90Array1dDestroy(ptr, MPIU_INT PETSC_F90_2PTR_PARAM(ptrd)); in dmplexrestorecone_()
63 if (*ierr) return; in dmplexrestorecone_()
66 PETSC_EXTERN void dmplexgetconeorientation_(DM *dm, PetscInt *p, F90Array1d *ptr, int *ierr PETSC_F… in dmplexgetconeorientation_()
71 *ierr = DMPlexGetConeSize(*dm, *p, &n); in dmplexgetconeorientation_()
72 if (*ierr) return; in dmplexgetconeorientation_()
73 *ierr = DMPlexGetConeOrientation(*dm, *p, &v); in dmplexgetconeorientation_()
74 if (*ierr) return; in dmplexgetconeorientation_()
75 *ierr = F90Array1dCreate((void *)v, MPIU_INT, 1, n, ptr PETSC_F90_2PTR_PARAM(ptrd)); in dmplexgetconeorientation_()
78 PETSC_EXTERN void dmplexrestoreconeorientation_(DM *dm, PetscInt *p, F90Array1d *ptr, int *ierr PET… in dmplexrestoreconeorientation_()
80 *ierr = F90Array1dDestroy(ptr, MPIU_INT PETSC_F90_2PTR_PARAM(ptrd)); in dmplexrestoreconeorientation_()
81 if (*ierr) return; in dmplexrestoreconeorientation_()
84 PETSC_EXTERN void dmplexgetsupport_(DM *dm, PetscInt *p, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_… in dmplexgetsupport_()
89 *ierr = DMPlexGetSupportSize(*dm, *p, &n); in dmplexgetsupport_()
90 if (*ierr) return; in dmplexgetsupport_()
91 *ierr = DMPlexGetSupport(*dm, *p, &v); in dmplexgetsupport_()
92 if (*ierr) return; in dmplexgetsupport_()
93 *ierr = F90Array1dCreate((void *)v, MPIU_INT, 1, n, ptr PETSC_F90_2PTR_PARAM(ptrd)); in dmplexgetsupport_()
96 PETSC_EXTERN void dmplexrestoresupport_(DM *dm, PetscInt *p, F90Array1d *ptr, int *ierr PETSC_F90_2… in dmplexrestoresupport_()
98 *ierr = F90Array1dDestroy(ptr, MPIU_INT PETSC_F90_2PTR_PARAM(ptrd)); in dmplexrestoresupport_()
99 if (*ierr) return; in dmplexrestoresupport_()
102 … *dm, PetscInt *p, PetscBool *useCone, PetscInt *N, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROT… in dmplexgettransitiveclosure_()
108 *ierr = DMPlexGetTransitiveClosure(*dm, *p, *useCone, &n, &v); in dmplexgettransitiveclosure_()
109 if (*ierr) return; in dmplexgettransitiveclosure_()
110 *ierr = F90Array1dCreate((void *)v, MPIU_INT, 1, n * 2, ptr PETSC_F90_2PTR_PARAM(ptrd)); in dmplexgettransitiveclosure_()
114 … *dm, PetscInt *p, PetscBool *useCone, PetscInt *N, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROT… in dmplexrestoretransitiveclosure_()
118 *ierr = F90Array1dAccess(ptr, MPIU_INT, (void **)&array PETSC_F90_2PTR_PARAM(ptrd)); in dmplexrestoretransitiveclosure_()
119 if (*ierr) return; in dmplexrestoretransitiveclosure_()
120 *ierr = DMPlexRestoreTransitiveClosure(*dm, *p, *useCone, NULL, &array); in dmplexrestoretransitiveclosure_()
121 if (*ierr) return; in dmplexrestoretransitiveclosure_()
122 *ierr = F90Array1dDestroy(ptr, MPIU_INT PETSC_F90_2PTR_PARAM(ptrd)); in dmplexrestoretransitiveclosure_()
123 if (*ierr) return; in dmplexrestoretransitiveclosure_()
126 …ion *section, Vec *x, PetscInt *point, PetscInt *N, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROT… in dmplexvecgetclosure_()
132 *ierr = DMPlexVecGetClosure(*dm, *section, *x, *point, &n, &v); in dmplexvecgetclosure_()
133 if (*ierr) return; in dmplexvecgetclosure_()
134 *ierr = F90Array1dCreate((void *)v, MPIU_SCALAR, 1, n, ptr PETSC_F90_2PTR_PARAM(ptrd)); in dmplexvecgetclosure_()
138 …ion *section, Vec *v, PetscInt *point, PetscInt *N, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROT… in dmplexvecrestoreclosure_()
142 *ierr = F90Array1dAccess(ptr, MPIU_SCALAR, (void **)&array PETSC_F90_2PTR_PARAM(ptrd)); in dmplexvecrestoreclosure_()
143 if (*ierr) return; in dmplexvecrestoreclosure_()
144 *ierr = DMPlexVecRestoreClosure(*dm, *section, *v, *point, NULL, &array); in dmplexvecrestoreclosure_()
145 if (*ierr) return; in dmplexvecrestoreclosure_()
146 *ierr = F90Array1dDestroy(ptr, MPIU_SCALAR PETSC_F90_2PTR_PARAM(ptrd)); in dmplexvecrestoreclosure_()
147 if (*ierr) return; in dmplexvecrestoreclosure_()
150 …dices, F90Array1d *idxPtr, PetscInt *outOffsets, F90Array1d *valPtr, int *ierr PETSC_F90_2PTR_PROT… in dmplexgetclosureindices_()
156 …if (FORTRANNULLSCALARPOINTER(valPtr)) *ierr = DMPlexGetClosureIndices(*dm, *section, *idxSection, … in dmplexgetclosureindices_()
157 …else *ierr = DMPlexGetClosureIndices(*dm, *section, *idxSection, *point, *useClPerm, numIndices, &… in dmplexgetclosureindices_()
158 if (*ierr) return; in dmplexgetclosureindices_()
159 …*ierr = F90Array1dCreate((void *)indices, MPIU_INT, 1, *numIndices, idxPtr PETSC_F90_2PTR_PARAM(id… in dmplexgetclosureindices_()
160 if (*ierr) return; in dmplexgetclosureindices_()
161 …if (FORTRANNULLSCALARPOINTER(valPtr)) *ierr = F90Array1dCreate((void *)values, MPIU_SCALAR, 1, *nu… in dmplexgetclosureindices_()
164 …dices, F90Array1d *idxPtr, PetscInt *outOffsets, F90Array1d *valPtr, int *ierr PETSC_F90_2PTR_PROT… in dmplexrestoreclosureindices_()
170 *ierr = F90Array1dAccess(idxPtr, MPIU_INT, (void **)&indices PETSC_F90_2PTR_PARAM(idxPtrd)); in dmplexrestoreclosureindices_()
171 if (*ierr) return; in dmplexrestoreclosureindices_()
173 *ierr = F90Array1dAccess(valPtr, MPIU_SCALAR, (void **)&values PETSC_F90_2PTR_PARAM(valPtrd)); in dmplexrestoreclosureindices_()
174 if (*ierr) return; in dmplexrestoreclosureindices_()
175 …*ierr = DMPlexRestoreClosureIndices(*dm, *section, *idxSection, *point, *useClPerm, numIndices, &i… in dmplexrestoreclosureindices_()
176 …} else *ierr = DMPlexRestoreClosureIndices(*dm, *section, *idxSection, *point, *useClPerm, numIndi… in dmplexrestoreclosureindices_()
177 if (*ierr) return; in dmplexrestoreclosureindices_()
178 *ierr = F90Array1dDestroy(idxPtr, MPIU_INT PETSC_F90_2PTR_PARAM(idxPtrd)); in dmplexrestoreclosureindices_()
179 if (*ierr) return; in dmplexrestoreclosureindices_()
180 …if (!FORTRANNULLSCALARPOINTER(valPtr)) *ierr = F90Array1dDestroy(valPtr, MPIU_SCALAR PETSC_F90_2PT… in dmplexrestoreclosureindices_()
183 …etscInt *numPoints, PetscInt *points, PetscInt *N, F90Array1d *cptr, int *ierr PETSC_F90_2PTR_PROT… in dmplexgetjoin_()
189 *ierr = DMPlexGetJoin(*dm, *numPoints, points, &n, &coveredPoints); in dmplexgetjoin_()
190 if (*ierr) return; in dmplexgetjoin_()
191 *ierr = F90Array1dCreate((void *)coveredPoints, MPIU_INT, 1, n, cptr PETSC_F90_2PTR_PARAM(cptrd)); in dmplexgetjoin_()
195 …etscInt *numPoints, PetscInt *points, PetscInt *N, F90Array1d *cptr, int *ierr PETSC_F90_2PTR_PROT… in dmplexgetfulljoin_()
201 *ierr = DMPlexGetFullJoin(*dm, *numPoints, points, &n, &coveredPoints); in dmplexgetfulljoin_()
202 if (*ierr) return; in dmplexgetfulljoin_()
203 *ierr = F90Array1dCreate((void *)coveredPoints, MPIU_INT, 1, n, cptr PETSC_F90_2PTR_PARAM(cptrd)); in dmplexgetfulljoin_()
207 …etscInt *numPoints, PetscInt *points, PetscInt *N, F90Array1d *cptr, int *ierr PETSC_F90_2PTR_PROT… in dmplexrestorejoin_()
211 *ierr = F90Array1dAccess(cptr, MPIU_INT, (void **)&coveredPoints PETSC_F90_2PTR_PARAM(cptrd)); in dmplexrestorejoin_()
212 if (*ierr) return; in dmplexrestorejoin_()
213 *ierr = DMPlexRestoreJoin(*dm, 0, NULL, NULL, (const PetscInt **)&coveredPoints); in dmplexrestorejoin_()
214 if (*ierr) return; in dmplexrestorejoin_()
215 *ierr = F90Array1dDestroy(cptr, MPIU_INT PETSC_F90_2PTR_PARAM(cptrd)); in dmplexrestorejoin_()
216 if (*ierr) return; in dmplexrestorejoin_()
219 …etscInt *numPoints, PetscInt *points, PetscInt *N, F90Array1d *cptr, int *ierr PETSC_F90_2PTR_PROT… in dmplexgetmeet_()
225 *ierr = DMPlexGetMeet(*dm, *numPoints, points, &n, &coveredPoints); in dmplexgetmeet_()
226 if (*ierr) return; in dmplexgetmeet_()
227 *ierr = F90Array1dCreate((void *)coveredPoints, MPIU_INT, 1, n, cptr PETSC_F90_2PTR_PARAM(cptrd)); in dmplexgetmeet_()
231 …etscInt *numPoints, PetscInt *points, PetscInt *N, F90Array1d *cptr, int *ierr PETSC_F90_2PTR_PROT… in dmplexgetfullmeet_()
237 if (*ierr) return; in dmplexgetfullmeet_()
238 *ierr = DMPlexGetFullMeet(*dm, *numPoints, points, &n, &coveredPoints); in dmplexgetfullmeet_()
239 if (*ierr) return; in dmplexgetfullmeet_()
240 *ierr = F90Array1dCreate((void *)coveredPoints, MPIU_INT, 1, n, cptr PETSC_F90_2PTR_PARAM(cptrd)); in dmplexgetfullmeet_()
244 …etscInt *numPoints, PetscInt *points, PetscInt *N, F90Array1d *cptr, int *ierr PETSC_F90_2PTR_PROT… in dmplexrestoremeet_()
248 *ierr = F90Array1dAccess(cptr, MPIU_INT, (void **)&coveredPoints PETSC_F90_2PTR_PARAM(cptrd)); in dmplexrestoremeet_()
249 if (*ierr) return; in dmplexrestoremeet_()
250 *ierr = DMPlexRestoreMeet(*dm, 0, NULL, NULL, (const PetscInt **)&coveredPoints); in dmplexrestoremeet_()
251 if (*ierr) return; in dmplexrestoremeet_()
252 *ierr = F90Array1dDestroy(cptr, MPIU_INT PETSC_F90_2PTR_PARAM(cptrd)); in dmplexrestoremeet_()
253 if (*ierr) return; in dmplexrestoremeet_()