Lines Matching refs:ierr
44 PETSC_EXTERN void dmdagetelements_(DM *dm, PetscInt *nel, PetscInt *nen, F90Array1d *e, int *ierr P… in dmdagetelements_()
49 …*ierr = PetscError(((PetscObject)e)->comm, __LINE__, PETSC_FUNCTION_NAME, __FILE__, PETSC_ERR_ARG_… in dmdagetelements_()
52 *ierr = DMDAGetElements(*dm, nel, nen, &fa); in dmdagetelements_()
53 if (*ierr) return; in dmdagetelements_()
54 …*ierr = F90Array1dCreate((PetscInt *)fa, MPIU_INT, 1, (*nel) * (*nen), e PETSC_F90_2PTR_PARAM(ptrd… in dmdagetelements_()
57 …estoreelements_(DM *dm, PetscInt *nel, PetscInt *nen, F90Array1d *e, int *ierr PETSC_F90_2PTR_PROT… in dmdarestoreelements_()
60 …*ierr = PetscError(((PetscObject)e)->comm, __LINE__, PETSC_FUNCTION_NAME, __FILE__, PETSC_ERR_ARG_… in dmdarestoreelements_()
63 *ierr = F90Array1dDestroy(e, MPIU_SCALAR PETSC_F90_2PTR_PARAM(ptrd)); in dmdarestoreelements_()
66 PETSC_EXTERN void dmdavecgetarray1_(DM *da, Vec *v, F90Array1d *a, PetscErrorCode *ierr PETSC_F90_2… in dmdavecgetarray1_()
71 *ierr = DMDAGetCorners(*da, &xs, &ys, &zs, &xm, &ym, &zm); in dmdavecgetarray1_()
72 if (*ierr) return; in dmdavecgetarray1_()
73 *ierr = DMDAGetGhostCorners(*da, &gxs, &gys, &gzs, &gxm, &gym, &gzm); in dmdavecgetarray1_()
74 if (*ierr) return; in dmdavecgetarray1_()
75 …*ierr = DMDAGetInfo(*da, &dim, NULL, NULL, NULL, NULL, NULL, NULL, &dof, NULL, NULL, NULL, NULL, N… in dmdavecgetarray1_()
76 if (*ierr) return; in dmdavecgetarray1_()
79 *ierr = VecGetLocalSize(*v, &N); in dmdavecgetarray1_()
80 if (*ierr) return; in dmdavecgetarray1_()
89 *ierr = PETSC_ERR_ARG_INCOMP; in dmdavecgetarray1_()
92 *ierr = VecGetArray(*v, &aa); in dmdavecgetarray1_()
93 if (*ierr) return; in dmdavecgetarray1_()
94 *ierr = F90Array1dCreate(aa, MPIU_SCALAR, gxs, gxm, a PETSC_F90_2PTR_PARAM(ptrd)); in dmdavecgetarray1_()
95 if (*ierr) return; in dmdavecgetarray1_()
98 PETSC_EXTERN void dmdavecrestorearray1_(DM *da, Vec *v, F90Array1d *a, PetscErrorCode *ierr PETSC_F… in dmdavecrestorearray1_()
101 *ierr = F90Array1dAccess(a, MPIU_SCALAR, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd)); in dmdavecrestorearray1_()
102 *ierr = VecRestoreArray(*v, &fa); in dmdavecrestorearray1_()
103 if (*ierr) return; in dmdavecrestorearray1_()
104 *ierr = F90Array1dDestroy(a, MPIU_SCALAR PETSC_F90_2PTR_PARAM(ptrd)); in dmdavecrestorearray1_()
107 PETSC_EXTERN void dmdavecgetarray2_(DM *da, Vec *v, F90Array2d *a, PetscErrorCode *ierr PETSC_F90_2… in dmdavecgetarray2_()
112 *ierr = DMDAGetCorners(*da, &xs, &ys, &zs, &xm, &ym, &zm); in dmdavecgetarray2_()
113 if (*ierr) return; in dmdavecgetarray2_()
114 *ierr = DMDAGetGhostCorners(*da, &gxs, &gys, &gzs, &gxm, &gym, &gzm); in dmdavecgetarray2_()
115 if (*ierr) return; in dmdavecgetarray2_()
116 …*ierr = DMDAGetInfo(*da, &dim, NULL, NULL, NULL, NULL, NULL, NULL, &dof, NULL, NULL, NULL, NULL, N… in dmdavecgetarray2_()
117 if (*ierr) return; in dmdavecgetarray2_()
120 *ierr = VecGetLocalSize(*v, &N); in dmdavecgetarray2_()
121 if (*ierr) return; in dmdavecgetarray2_()
130 *ierr = PETSC_ERR_ARG_INCOMP; in dmdavecgetarray2_()
139 *ierr = VecGetArray(*v, &aa); in dmdavecgetarray2_()
140 if (*ierr) return; in dmdavecgetarray2_()
141 *ierr = F90Array2dCreate(aa, MPIU_SCALAR, gxs, gxm, gys, gym, a PETSC_F90_2PTR_PARAM(ptrd)); in dmdavecgetarray2_()
142 if (*ierr) return; in dmdavecgetarray2_()
145 PETSC_EXTERN void dmdavecrestorearray2_(DM *da, Vec *v, F90Array2d *a, PetscErrorCode *ierr PETSC_F… in dmdavecrestorearray2_()
148 *ierr = F90Array2dAccess(a, MPIU_SCALAR, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd)); in dmdavecrestorearray2_()
149 *ierr = VecRestoreArray(*v, &fa); in dmdavecrestorearray2_()
150 if (*ierr) return; in dmdavecrestorearray2_()
151 *ierr = F90Array2dDestroy(a, MPIU_SCALAR PETSC_F90_2PTR_PARAM(ptrd)); in dmdavecrestorearray2_()
154 PETSC_EXTERN void dmdavecgetarray3_(DM *da, Vec *v, F90Array3d *a, PetscErrorCode *ierr PETSC_F90_2… in dmdavecgetarray3_()
159 *ierr = DMDAGetCorners(*da, &xs, &ys, &zs, &xm, &ym, &zm); in dmdavecgetarray3_()
160 if (*ierr) return; in dmdavecgetarray3_()
161 *ierr = DMDAGetGhostCorners(*da, &gxs, &gys, &gzs, &gxm, &gym, &gzm); in dmdavecgetarray3_()
162 if (*ierr) return; in dmdavecgetarray3_()
163 …*ierr = DMDAGetInfo(*da, &dim, NULL, NULL, NULL, NULL, NULL, NULL, &dof, NULL, NULL, NULL, NULL, N… in dmdavecgetarray3_()
164 if (*ierr) return; in dmdavecgetarray3_()
167 *ierr = VecGetLocalSize(*v, &N); in dmdavecgetarray3_()
168 if (*ierr) return; in dmdavecgetarray3_()
177 *ierr = PETSC_ERR_ARG_INCOMP; in dmdavecgetarray3_()
188 *ierr = VecGetArray(*v, &aa); in dmdavecgetarray3_()
189 if (*ierr) return; in dmdavecgetarray3_()
190 …*ierr = F90Array3dCreate(aa, MPIU_SCALAR, gxs, gxm, gys, gym, gzs, gzm, a PETSC_F90_2PTR_PARAM(ptr… in dmdavecgetarray3_()
191 if (*ierr) return; in dmdavecgetarray3_()
194 PETSC_EXTERN void dmdavecrestorearray3_(DM *da, Vec *v, F90Array3d *a, PetscErrorCode *ierr PETSC_F… in dmdavecrestorearray3_()
197 *ierr = F90Array3dAccess(a, MPIU_SCALAR, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd)); in dmdavecrestorearray3_()
198 *ierr = VecRestoreArray(*v, &fa); in dmdavecrestorearray3_()
199 if (*ierr) return; in dmdavecrestorearray3_()
200 *ierr = F90Array3dDestroy(a, MPIU_SCALAR PETSC_F90_2PTR_PARAM(ptrd)); in dmdavecrestorearray3_()
203 PETSC_EXTERN void dmdavecgetarray4_(DM *da, Vec *v, F90Array4d *a, PetscErrorCode *ierr PETSC_F90_2… in dmdavecgetarray4_()
208 *ierr = DMDAGetCorners(*da, &xs, &ys, &zs, &xm, &ym, &zm); in dmdavecgetarray4_()
209 if (*ierr) return; in dmdavecgetarray4_()
210 *ierr = DMDAGetGhostCorners(*da, &gxs, &gys, &gzs, &gxm, &gym, &gzm); in dmdavecgetarray4_()
211 if (*ierr) return; in dmdavecgetarray4_()
212 …*ierr = DMDAGetInfo(*da, &dim, NULL, NULL, NULL, NULL, NULL, NULL, &dof, NULL, NULL, NULL, NULL, N… in dmdavecgetarray4_()
213 if (*ierr) return; in dmdavecgetarray4_()
216 *ierr = VecGetLocalSize(*v, &N); in dmdavecgetarray4_()
217 if (*ierr) return; in dmdavecgetarray4_()
226 *ierr = PETSC_ERR_ARG_INCOMP; in dmdavecgetarray4_()
229 *ierr = VecGetArray(*v, &aa); in dmdavecgetarray4_()
230 if (*ierr) return; in dmdavecgetarray4_()
231 …*ierr = F90Array4dCreate(aa, MPIU_SCALAR, zero, dof, gxs, gxm, gys, gym, gzs, gzm, a PETSC_F90_2PT… in dmdavecgetarray4_()
232 if (*ierr) return; in dmdavecgetarray4_()
235 PETSC_EXTERN void dmdavecrestorearray4_(DM *da, Vec *v, F90Array4d *a, PetscErrorCode *ierr PETSC_F… in dmdavecrestorearray4_()
241 *ierr = F90Array4dAccess(a, MPIU_SCALAR, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd)); in dmdavecrestorearray4_()
242 *ierr = VecRestoreArray(*v, &fa); in dmdavecrestorearray4_()
243 if (*ierr) return; in dmdavecrestorearray4_()
244 *ierr = F90Array4dDestroy(a, MPIU_SCALAR PETSC_F90_2PTR_PARAM(ptrd)); in dmdavecrestorearray4_()
247 PETSC_EXTERN void dmdavecgetarrayread1_(DM *da, Vec *v, F90Array1d *a, PetscErrorCode *ierr PETSC_F… in dmdavecgetarrayread1_()
252 *ierr = DMDAGetCorners(*da, &xs, &ys, &zs, &xm, &ym, &zm); in dmdavecgetarrayread1_()
253 if (*ierr) return; in dmdavecgetarrayread1_()
254 *ierr = DMDAGetGhostCorners(*da, &gxs, &gys, &gzs, &gxm, &gym, &gzm); in dmdavecgetarrayread1_()
255 if (*ierr) return; in dmdavecgetarrayread1_()
256 …*ierr = DMDAGetInfo(*da, &dim, NULL, NULL, NULL, NULL, NULL, NULL, &dof, NULL, NULL, NULL, NULL, N… in dmdavecgetarrayread1_()
257 if (*ierr) return; in dmdavecgetarrayread1_()
260 *ierr = VecGetLocalSize(*v, &N); in dmdavecgetarrayread1_()
261 if (*ierr) return; in dmdavecgetarrayread1_()
270 *ierr = PETSC_ERR_ARG_INCOMP; in dmdavecgetarrayread1_()
273 *ierr = VecGetArrayRead(*v, &aa); in dmdavecgetarrayread1_()
274 if (*ierr) return; in dmdavecgetarrayread1_()
275 *ierr = F90Array1dCreate((void *)aa, MPIU_SCALAR, gxs, gxm, a PETSC_F90_2PTR_PARAM(ptrd)); in dmdavecgetarrayread1_()
276 if (*ierr) return; in dmdavecgetarrayread1_()
279 PETSC_EXTERN void dmdavecrestorearrayread1_(DM *da, Vec *v, F90Array1d *a, PetscErrorCode *ierr PET… in dmdavecrestorearrayread1_()
282 *ierr = F90Array1dAccess(a, MPIU_SCALAR, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd)); in dmdavecrestorearrayread1_()
283 *ierr = VecRestoreArrayRead(*v, &fa); in dmdavecrestorearrayread1_()
284 if (*ierr) return; in dmdavecrestorearrayread1_()
285 *ierr = F90Array1dDestroy(a, MPIU_SCALAR PETSC_F90_2PTR_PARAM(ptrd)); in dmdavecrestorearrayread1_()
288 PETSC_EXTERN void dmdavecgetarrayread2_(DM *da, Vec *v, F90Array2d *a, PetscErrorCode *ierr PETSC_F… in dmdavecgetarrayread2_()
293 *ierr = DMDAGetCorners(*da, &xs, &ys, &zs, &xm, &ym, &zm); in dmdavecgetarrayread2_()
294 if (*ierr) return; in dmdavecgetarrayread2_()
295 *ierr = DMDAGetGhostCorners(*da, &gxs, &gys, &gzs, &gxm, &gym, &gzm); in dmdavecgetarrayread2_()
296 if (*ierr) return; in dmdavecgetarrayread2_()
297 …*ierr = DMDAGetInfo(*da, &dim, NULL, NULL, NULL, NULL, NULL, NULL, &dof, NULL, NULL, NULL, NULL, N… in dmdavecgetarrayread2_()
298 if (*ierr) return; in dmdavecgetarrayread2_()
301 *ierr = VecGetLocalSize(*v, &N); in dmdavecgetarrayread2_()
302 if (*ierr) return; in dmdavecgetarrayread2_()
311 *ierr = PETSC_ERR_ARG_INCOMP; in dmdavecgetarrayread2_()
320 *ierr = VecGetArrayRead(*v, &aa); in dmdavecgetarrayread2_()
321 if (*ierr) return; in dmdavecgetarrayread2_()
322 …*ierr = F90Array2dCreate((void *)aa, MPIU_SCALAR, gxs, gxm, gys, gym, a PETSC_F90_2PTR_PARAM(ptrd)… in dmdavecgetarrayread2_()
323 if (*ierr) return; in dmdavecgetarrayread2_()
326 PETSC_EXTERN void dmdavecrestorearrayread2_(DM *da, Vec *v, F90Array2d *a, PetscErrorCode *ierr PET… in dmdavecrestorearrayread2_()
329 *ierr = F90Array2dAccess(a, MPIU_SCALAR, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd)); in dmdavecrestorearrayread2_()
330 *ierr = VecRestoreArrayRead(*v, &fa); in dmdavecrestorearrayread2_()
331 if (*ierr) return; in dmdavecrestorearrayread2_()
332 *ierr = F90Array2dDestroy(a, MPIU_SCALAR PETSC_F90_2PTR_PARAM(ptrd)); in dmdavecrestorearrayread2_()
335 PETSC_EXTERN void dmdavecgetarrayread3_(DM *da, Vec *v, F90Array3d *a, PetscErrorCode *ierr PETSC_F… in dmdavecgetarrayread3_()
340 *ierr = DMDAGetCorners(*da, &xs, &ys, &zs, &xm, &ym, &zm); in dmdavecgetarrayread3_()
341 if (*ierr) return; in dmdavecgetarrayread3_()
342 *ierr = DMDAGetGhostCorners(*da, &gxs, &gys, &gzs, &gxm, &gym, &gzm); in dmdavecgetarrayread3_()
343 if (*ierr) return; in dmdavecgetarrayread3_()
344 …*ierr = DMDAGetInfo(*da, &dim, NULL, NULL, NULL, NULL, NULL, NULL, &dof, NULL, NULL, NULL, NULL, N… in dmdavecgetarrayread3_()
345 if (*ierr) return; in dmdavecgetarrayread3_()
348 *ierr = VecGetLocalSize(*v, &N); in dmdavecgetarrayread3_()
349 if (*ierr) return; in dmdavecgetarrayread3_()
358 *ierr = PETSC_ERR_ARG_INCOMP; in dmdavecgetarrayread3_()
369 *ierr = VecGetArrayRead(*v, &aa); in dmdavecgetarrayread3_()
370 if (*ierr) return; in dmdavecgetarrayread3_()
371 …*ierr = F90Array3dCreate((void *)aa, MPIU_SCALAR, gxs, gxm, gys, gym, gzs, gzm, a PETSC_F90_2PTR_P… in dmdavecgetarrayread3_()
372 if (*ierr) return; in dmdavecgetarrayread3_()
375 PETSC_EXTERN void dmdavecrestorearrayread3_(DM *da, Vec *v, F90Array3d *a, PetscErrorCode *ierr PET… in dmdavecrestorearrayread3_()
378 *ierr = F90Array3dAccess(a, MPIU_SCALAR, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd)); in dmdavecrestorearrayread3_()
379 *ierr = VecRestoreArrayRead(*v, &fa); in dmdavecrestorearrayread3_()
380 if (*ierr) return; in dmdavecrestorearrayread3_()
381 *ierr = F90Array3dDestroy(a, MPIU_SCALAR PETSC_F90_2PTR_PARAM(ptrd)); in dmdavecrestorearrayread3_()
384 PETSC_EXTERN void dmdavecgetarrayread4_(DM *da, Vec *v, F90Array4d *a, PetscErrorCode *ierr PETSC_F… in dmdavecgetarrayread4_()
389 *ierr = DMDAGetCorners(*da, &xs, &ys, &zs, &xm, &ym, &zm); in dmdavecgetarrayread4_()
390 if (*ierr) return; in dmdavecgetarrayread4_()
391 *ierr = DMDAGetGhostCorners(*da, &gxs, &gys, &gzs, &gxm, &gym, &gzm); in dmdavecgetarrayread4_()
392 if (*ierr) return; in dmdavecgetarrayread4_()
393 …*ierr = DMDAGetInfo(*da, &dim, NULL, NULL, NULL, NULL, NULL, NULL, &dof, NULL, NULL, NULL, NULL, N… in dmdavecgetarrayread4_()
394 if (*ierr) return; in dmdavecgetarrayread4_()
397 *ierr = VecGetLocalSize(*v, &N); in dmdavecgetarrayread4_()
398 if (*ierr) return; in dmdavecgetarrayread4_()
407 *ierr = PETSC_ERR_ARG_INCOMP; in dmdavecgetarrayread4_()
410 *ierr = VecGetArrayRead(*v, &aa); in dmdavecgetarrayread4_()
411 if (*ierr) return; in dmdavecgetarrayread4_()
412 …*ierr = F90Array4dCreate((void *)aa, MPIU_SCALAR, zero, dof, gxs, gxm, gys, gym, gzs, gzm, a PETSC… in dmdavecgetarrayread4_()
413 if (*ierr) return; in dmdavecgetarrayread4_()
416 PETSC_EXTERN void dmdavecrestorearrayread4_(DM *da, Vec *v, F90Array4d *a, PetscErrorCode *ierr PET… in dmdavecrestorearrayread4_()
422 *ierr = F90Array4dAccess(a, MPIU_SCALAR, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd)); in dmdavecrestorearrayread4_()
423 *ierr = VecRestoreArrayRead(*v, &fa); in dmdavecrestorearrayread4_()
424 if (*ierr) return; in dmdavecrestorearrayread4_()
425 *ierr = F90Array4dDestroy(a, MPIU_SCALAR PETSC_F90_2PTR_PARAM(ptrd)); in dmdavecrestorearrayread4_()