Lines Matching refs:sp

19 static PetscErrorCode PetscSpaceDestroy_Subspace(PetscSpace sp)  in PetscSpaceDestroy_Subspace()  argument
24 subsp = (PetscSpace_Subspace *)sp->data; in PetscSpaceDestroy_Subspace()
37 sp->data = NULL; in PetscSpaceDestroy_Subspace()
38 PetscCall(PetscObjectComposeFunction((PetscObject)sp, "PetscSpacePolynomialGetTensor_C", NULL)); in PetscSpaceDestroy_Subspace()
42 static PetscErrorCode PetscSpaceView_Subspace(PetscSpace sp, PetscViewer viewer) in PetscSpaceView_Subspace() argument
48 subsp = (PetscSpace_Subspace *)sp->data; in PetscSpaceView_Subspace()
55 PetscCall(PetscSpaceGetNumVariables(sp, &subDim)); in PetscSpaceView_Subspace()
56 PetscCall(PetscSpaceGetNumComponents(sp, &subNc)); in PetscSpaceView_Subspace()
92 static PetscErrorCode PetscSpaceEvaluate_Subspace(PetscSpace sp, PetscInt npoints, const PetscReal … in PetscSpaceEvaluate_Subspace() argument
94 PetscSpace_Subspace *subsp = (PetscSpace_Subspace *)sp->data; in PetscSpaceEvaluate_Subspace()
101 PetscCall(PetscSpaceGetNumVariables(sp, &subDim)); in PetscSpaceEvaluate_Subspace()
103 PetscCall(PetscSpaceGetNumComponents(sp, &subNc)); in PetscSpaceEvaluate_Subspace()
105 PetscCall(PetscSpaceGetDimension(sp, &subNb)); in PetscSpaceEvaluate_Subspace()
107 PetscCall(DMGetWorkArray(sp->dm, npoints * origDim, MPIU_REAL, &inpoints)); in PetscSpaceEvaluate_Subspace()
122 if (B) PetscCall(DMGetWorkArray(sp->dm, npoints * origNb * origNc, MPIU_REAL, &inB)); in PetscSpaceEvaluate_Subspace()
123 if (D) PetscCall(DMGetWorkArray(sp->dm, npoints * origNb * origNc * origDim, MPIU_REAL, &inD)); in PetscSpaceEvaluate_Subspace()
124 …if (H) PetscCall(DMGetWorkArray(sp->dm, npoints * origNb * origNc * origDim * origDim, MPIU_REAL, … in PetscSpaceEvaluate_Subspace()
129 PetscCall(DMGetWorkArray(sp->dm, origNc * origDim * origDim, MPIU_REAL, &phi)); in PetscSpaceEvaluate_Subspace()
130 PetscCall(DMGetWorkArray(sp->dm, origNc * subDim * subDim, MPIU_REAL, &psi)); in PetscSpaceEvaluate_Subspace()
171 PetscCall(DMRestoreWorkArray(sp->dm, subNc * origDim, MPIU_REAL, &psi)); in PetscSpaceEvaluate_Subspace()
172 PetscCall(DMRestoreWorkArray(sp->dm, origNc * origDim, MPIU_REAL, &phi)); in PetscSpaceEvaluate_Subspace()
173 PetscCall(DMRestoreWorkArray(sp->dm, npoints * origNb * origNc * origDim, MPIU_REAL, &inH)); in PetscSpaceEvaluate_Subspace()
178 PetscCall(DMGetWorkArray(sp->dm, origNc * origDim, MPIU_REAL, &phi)); in PetscSpaceEvaluate_Subspace()
179 PetscCall(DMGetWorkArray(sp->dm, origNc * subDim, MPIU_REAL, &psi)); in PetscSpaceEvaluate_Subspace()
214 PetscCall(DMRestoreWorkArray(sp->dm, subNc * origDim, MPIU_REAL, &psi)); in PetscSpaceEvaluate_Subspace()
215 PetscCall(DMRestoreWorkArray(sp->dm, origNc * origDim, MPIU_REAL, &phi)); in PetscSpaceEvaluate_Subspace()
216 PetscCall(DMRestoreWorkArray(sp->dm, npoints * origNb * origNc * origDim, MPIU_REAL, &inD)); in PetscSpaceEvaluate_Subspace()
221 PetscCall(DMGetWorkArray(sp->dm, origNc, MPIU_REAL, &phi)); in PetscSpaceEvaluate_Subspace()
246 PetscCall(DMRestoreWorkArray(sp->dm, origNc, MPIU_REAL, &phi)); in PetscSpaceEvaluate_Subspace()
247 PetscCall(DMRestoreWorkArray(sp->dm, npoints * origNb * origNc, MPIU_REAL, &inB)); in PetscSpaceEvaluate_Subspace()
249 PetscCall(DMRestoreWorkArray(sp->dm, npoints * origDim, MPIU_REAL, &inpoints)); in PetscSpaceEvaluate_Subspace()
253 PETSC_EXTERN PetscErrorCode PetscSpaceCreate_Subspace(PetscSpace sp) in PetscSpaceCreate_Subspace() argument
259 sp->data = (void *)subsp; in PetscSpaceCreate_Subspace()
263 static PetscErrorCode PetscSpaceGetDimension_Subspace(PetscSpace sp, PetscInt *dim) in PetscSpaceGetDimension_Subspace() argument
268 subsp = (PetscSpace_Subspace *)sp->data; in PetscSpaceGetDimension_Subspace()
273 static PetscErrorCode PetscSpaceSetUp_Subspace(PetscSpace sp) in PetscSpaceSetUp_Subspace() argument
284 PetscSpace_Subspace *subsp = (PetscSpace_Subspace *)sp->data; in PetscSpaceSetUp_Subspace()
384 static PetscErrorCode PetscSpacePolynomialGetTensor_Subspace(PetscSpace sp, PetscBool *poly) in PetscSpacePolynomialGetTensor_Subspace() argument
386 PetscSpace_Subspace *subsp = (PetscSpace_Subspace *)sp->data; in PetscSpacePolynomialGetTensor_Subspace()
397 PetscCall(PetscSpaceGetNumVariables(sp, &subDim)); in PetscSpacePolynomialGetTensor_Subspace()
417 static PetscErrorCode PetscSpaceInitialize_Subspace(PetscSpace sp) in PetscSpaceInitialize_Subspace() argument
420 sp->ops->setup = PetscSpaceSetUp_Subspace; in PetscSpaceInitialize_Subspace()
421 sp->ops->view = PetscSpaceView_Subspace; in PetscSpaceInitialize_Subspace()
422 sp->ops->destroy = PetscSpaceDestroy_Subspace; in PetscSpaceInitialize_Subspace()
423 sp->ops->getdimension = PetscSpaceGetDimension_Subspace; in PetscSpaceInitialize_Subspace()
424 sp->ops->evaluate = PetscSpaceEvaluate_Subspace; in PetscSpaceInitialize_Subspace()
425 …PetscCall(PetscObjectComposeFunction((PetscObject)sp, "PetscSpacePolynomialGetTensor_C", PetscSpac… in PetscSpaceInitialize_Subspace()