Lines Matching refs:ierr
21 …t, Vec *locA, F90Array1d *uPtr, F90Array1d *utPtr, F90Array1d *aPtr, int *ierr PETSC_F90_2PTR_PROT… in dmplexgetcellfields_()
27 *ierr = ISGetLocalSize(*cellIS, &numCells); in dmplexgetcellfields_()
28 if (*ierr) return; in dmplexgetcellfields_()
29 *ierr = DMPlexGetCellFields(*dm, *cellIS, *locX, *locX_t, *locA, &u, &u_t, &a); in dmplexgetcellfields_()
30 if (*ierr) return; in dmplexgetcellfields_()
31 *ierr = DMGetDS(*dm, &prob); in dmplexgetcellfields_()
32 if (*ierr) return; in dmplexgetcellfields_()
33 *ierr = PetscDSGetTotalDimension(prob, &totDim); in dmplexgetcellfields_()
34 if (*ierr) return; in dmplexgetcellfields_()
39 *ierr = VecGetDM(*locA, &dmAux); in dmplexgetcellfields_()
40 if (*ierr) return; in dmplexgetcellfields_()
41 *ierr = DMGetDS(dmAux, &probAux); in dmplexgetcellfields_()
42 if (*ierr) return; in dmplexgetcellfields_()
43 *ierr = PetscDSGetTotalDimension(probAux, &totDimAux); in dmplexgetcellfields_()
44 if (*ierr) return; in dmplexgetcellfields_()
46 …*ierr = F90Array1dCreate((void *)u, MPIU_SCALAR, 1, numCells * totDim, uPtr PETSC_F90_2PTR_PARAM(u… in dmplexgetcellfields_()
47 if (*ierr) return; in dmplexgetcellfields_()
48 …*ierr = F90Array1dCreate((void *)u_t, MPIU_SCALAR, 1, locX_t ? numCells * totDim : 0, utPtr PETSC_… in dmplexgetcellfields_()
49 if (*ierr) return; in dmplexgetcellfields_()
50 …*ierr = F90Array1dCreate((void *)a, MPIU_SCALAR, 1, locA ? numCells * totDimAux : 0, aPtr PETSC_F9… in dmplexgetcellfields_()
53 …t, Vec *locA, F90Array1d *uPtr, F90Array1d *utPtr, F90Array1d *aPtr, int *ierr PETSC_F90_2PTR_PROT… in dmplexrestorecellfields_()
57 *ierr = F90Array1dAccess(uPtr, MPIU_SCALAR, (void **)&u PETSC_F90_2PTR_PARAM(uPtrd)); in dmplexrestorecellfields_()
58 if (*ierr) return; in dmplexrestorecellfields_()
59 *ierr = F90Array1dAccess(utPtr, MPIU_SCALAR, (void **)&u_t PETSC_F90_2PTR_PARAM(utPtrd)); in dmplexrestorecellfields_()
60 if (*ierr) return; in dmplexrestorecellfields_()
61 *ierr = F90Array1dAccess(aPtr, MPIU_SCALAR, (void **)&a PETSC_F90_2PTR_PARAM(aPtrd)); in dmplexrestorecellfields_()
62 if (*ierr) return; in dmplexrestorecellfields_()
63 …*ierr = DMPlexRestoreCellFields(*dm, *cellIS, *locX, NULL, NULL, &u, u_t ? &u_t : NULL, a ? &a : N… in dmplexrestorecellfields_()
64 if (*ierr) return; in dmplexrestorecellfields_()
65 *ierr = F90Array1dDestroy(uPtr, MPIU_SCALAR PETSC_F90_2PTR_PARAM(uPtrd)); in dmplexrestorecellfields_()
66 if (*ierr) return; in dmplexrestorecellfields_()
67 *ierr = F90Array1dDestroy(utPtr, MPIU_SCALAR PETSC_F90_2PTR_PARAM(utPtrd)); in dmplexrestorecellfields_()
68 if (*ierr) return; in dmplexrestorecellfields_()
69 *ierr = F90Array1dDestroy(aPtr, MPIU_SCALAR PETSC_F90_2PTR_PARAM(aPtrd)); in dmplexrestorecellfields_()
70 if (*ierr) return; in dmplexrestorecellfields_()
73 …Vec *locGrad, PetscInt *Nface, F90Array1d *uLPtr, F90Array1d *uRPtr, int *ierr PETSC_F90_2PTR_PROT… in dmplexgetfacefields_()
79 …*ierr = DMPlexGetFaceFields(*dm, *fStart, *fEnd, *locX, *locX_t, *faceGeometry, *cellGeometry, *lo… in dmplexgetfacefields_()
80 if (*ierr) return; in dmplexgetfacefields_()
81 *ierr = DMGetDS(*dm, &prob); in dmplexgetfacefields_()
82 if (*ierr) return; in dmplexgetfacefields_()
83 *ierr = PetscDSGetTotalDimension(prob, &totDim); in dmplexgetfacefields_()
84 if (*ierr) return; in dmplexgetfacefields_()
85 …*ierr = F90Array1dCreate((void *)uL, MPIU_SCALAR, 1, numFaces * totDim, uLPtr PETSC_F90_2PTR_PARAM… in dmplexgetfacefields_()
86 if (*ierr) return; in dmplexgetfacefields_()
87 …*ierr = F90Array1dCreate((void *)uR, MPIU_SCALAR, 1, numFaces * totDim, uRPtr PETSC_F90_2PTR_PARAM… in dmplexgetfacefields_()
88 if (*ierr) return; in dmplexgetfacefields_()
91 …Vec *locGrad, PetscInt *Nface, F90Array1d *uLPtr, F90Array1d *uRPtr, int *ierr PETSC_F90_2PTR_PROT… in dmplexrestorefacefields_()
95 *ierr = F90Array1dAccess(uLPtr, MPIU_SCALAR, (void **)&uL PETSC_F90_2PTR_PARAM(uLPtrd)); in dmplexrestorefacefields_()
96 if (*ierr) return; in dmplexrestorefacefields_()
97 *ierr = F90Array1dAccess(uRPtr, MPIU_SCALAR, (void **)&uR PETSC_F90_2PTR_PARAM(uRPtrd)); in dmplexrestorefacefields_()
98 if (*ierr) return; in dmplexrestorefacefields_()
99 …*ierr = DMPlexRestoreFaceFields(*dm, *fStart, *fEnd, *locX, NULL, *faceGeometry, *cellGeometry, NU… in dmplexrestorefacefields_()
100 if (*ierr) return; in dmplexrestorefacefields_()
101 *ierr = F90Array1dDestroy(uLPtr, MPIU_SCALAR PETSC_F90_2PTR_PARAM(uLPtrd)); in dmplexrestorefacefields_()
102 if (*ierr) return; in dmplexrestorefacefields_()
103 *ierr = F90Array1dDestroy(uRPtr, MPIU_SCALAR PETSC_F90_2PTR_PARAM(uRPtrd)); in dmplexrestorefacefields_()
104 if (*ierr) return; in dmplexrestorefacefields_()
107 … *cellGeometry, PetscInt *Nface, F90Array1d *gPtr, F90Array1d *vPtr, int *ierr PETSC_F90_2PTR_PROT… in dmplexgetfacegeometry_()
113 *ierr = DMPlexGetFaceGeometry(*dm, *fStart, *fEnd, *faceGeometry, *cellGeometry, Nface, &g, &v); in dmplexgetfacegeometry_()
114 if (*ierr) return; in dmplexgetfacegeometry_()
115 …*ierr = F90Array1dCreate((void *)g, MPIU_SCALAR, 1, numFaces * structSize, gPtr PETSC_F90_2PTR_PAR… in dmplexgetfacegeometry_()
116 if (*ierr) return; in dmplexgetfacegeometry_()
117 *ierr = F90Array1dCreate((void *)v, MPIU_REAL, 1, numFaces * 2, vPtr PETSC_F90_2PTR_PARAM(vPtrd)); in dmplexgetfacegeometry_()
118 if (*ierr) return; in dmplexgetfacegeometry_()
121 … *cellGeometry, PetscInt *Nface, F90Array1d *gPtr, F90Array1d *vPtr, int *ierr PETSC_F90_2PTR_PROT… in dmplexrestorefacegeometry_()
126 *ierr = F90Array1dAccess(gPtr, MPIU_SCALAR, (void **)&g PETSC_F90_2PTR_PARAM(gPtrd)); in dmplexrestorefacegeometry_()
127 if (*ierr) return; in dmplexrestorefacegeometry_()
128 *ierr = F90Array1dAccess(vPtr, MPIU_REAL, (void **)&v PETSC_F90_2PTR_PARAM(vPtrd)); in dmplexrestorefacegeometry_()
129 if (*ierr) return; in dmplexrestorefacegeometry_()
130 …*ierr = DMPlexRestoreFaceGeometry(*dm, *fStart, *fEnd, *faceGeometry, *cellGeometry, Nface, &g, &v… in dmplexrestorefacegeometry_()
131 if (*ierr) return; in dmplexrestorefacegeometry_()
132 *ierr = F90Array1dDestroy(gPtr, MPIU_SCALAR PETSC_F90_2PTR_PARAM(vPtrd)); in dmplexrestorefacegeometry_()
133 if (*ierr) return; in dmplexrestorefacegeometry_()
134 *ierr = F90Array1dDestroy(vPtr, MPIU_REAL PETSC_F90_2PTR_PARAM(gPtrd)); in dmplexrestorefacegeometry_()
135 if (*ierr) return; in dmplexrestorefacegeometry_()