Searched refs:tmpD (Results 1 – 2 of 2) sorted by relevance
| /petsc/src/dm/dt/fe/impls/composite/ |
| H A D | fecomposite.c | 113 PetscReal *tmpB = NULL, *tmpD = NULL, *tmpH = NULL, *subpoint; in PetscFEComputeTabulation_Composite() local
146 if (K >= 1) PetscCall(DMGetWorkArray(dm, npoints * spdim * dim, MPIU_REAL, &tmpD)); in PetscFEComputeTabulation_Composite()
148 PetscCall(PetscSpaceEvaluate(fem->basisSpace, npoints, points, tmpB, tmpD, tmpH)); in PetscFEComputeTabulation_Composite()
172 …for (k = 0; k < spdim; ++k) D[i] += fem->invV[(s * spdim + k) * spdim + j] * tmpD[(p * spdim + k) … in PetscFEComputeTabulation_Composite()
190 if (K >= 1) PetscCall(DMRestoreWorkArray(dm, npoints * spdim * dim, MPIU_REAL, &tmpD)); in PetscFEComputeTabulation_Composite()
|
| /petsc/src/dm/dt/fe/impls/basic/ |
| H A D | febasic.c | 131 PetscReal *tmpB = NULL, *tmpD = NULL, *tmpH = NULL; in PetscFEComputeTabulation_Basic() local
140 if (K >= 1) PetscCall(DMGetWorkArray(dm, npoints * pdim * Nc * dim, MPIU_REAL, &tmpD)); in PetscFEComputeTabulation_Basic()
142 PetscCall(PetscSpaceEvaluate(fem->basisSpace, npoints, points, tmpB, tmpD, tmpH)); in PetscFEComputeTabulation_Basic()
150 PetscCall(TensorContract_Private(npoints, pdim, Nc * dim, pdim, tmpD, fem->invV, D)); in PetscFEComputeTabulation_Basic()
157 if (K >= 1) PetscCall(DMRestoreWorkArray(dm, npoints * pdim * Nc * dim, MPIU_REAL, &tmpD)); in PetscFEComputeTabulation_Basic()
|