Lines Matching refs:K

19   DM                 K;  in PetscFESetUp_Composite()  local
31 PetscCall(PetscDualSpaceGetDM(fem->dualSpace, &K)); in PetscFESetUp_Composite()
32 PetscCall(DMGetDimension(K, &dim)); in PetscFESetUp_Composite()
33 PetscCall(DMPlexGetCellType(K, 0, &ct)); in PetscFESetUp_Composite()
42 PetscCall(DMGetWorkArray(K, dim, MPIU_REAL, &subpoint)); in PetscFESetUp_Composite()
49 PetscCall(DMPlexGetTransitiveClosure(K, s, PETSC_TRUE, &closureSize, &closure)); in PetscFESetUp_Composite()
58 PetscCall(DMPlexRestoreTransitiveClosure(K, s, PETSC_TRUE, &closureSize, &closure)); in PetscFESetUp_Composite()
61 PetscCall(DMRestoreWorkArray(K, dim, MPIU_REAL, &subpoint)); in PetscFESetUp_Composite()
100 …n_Composite(PetscFE fem, PetscInt npoints, const PetscReal points[], PetscInt K, PetscTabulation T) in PetscFEComputeTabulation_Composite() argument
110 PetscReal *B = K >= 0 ? T->T[0] : NULL; in PetscFEComputeTabulation_Composite()
111 PetscReal *D = K >= 1 ? T->T[1] : NULL; in PetscFEComputeTabulation_Composite()
112 PetscReal *H = K >= 2 ? T->T[2] : NULL; in PetscFEComputeTabulation_Composite()
145 if (K >= 0) PetscCall(DMGetWorkArray(dm, npoints * spdim, MPIU_REAL, &tmpB)); in PetscFEComputeTabulation_Composite()
146 if (K >= 1) PetscCall(DMGetWorkArray(dm, npoints * spdim * dim, MPIU_REAL, &tmpD)); in PetscFEComputeTabulation_Composite()
147 if (K >= 2) PetscCall(DMGetWorkArray(dm, npoints * spdim * dim * dim, MPIU_REAL, &tmpH)); in PetscFEComputeTabulation_Composite()
150 if (K >= 0) PetscCall(PetscArrayzero(B, npoints * pdim * comp)); in PetscFEComputeTabulation_Composite()
151 if (K >= 1) PetscCall(PetscArrayzero(D, npoints * pdim * comp * dim)); in PetscFEComputeTabulation_Composite()
152 if (K >= 2) PetscCall(PetscArrayzero(H, npoints * pdim * comp * dim * dim)); in PetscFEComputeTabulation_Composite()
189 if (K >= 0) PetscCall(DMRestoreWorkArray(dm, npoints * spdim, MPIU_REAL, &tmpB)); in PetscFEComputeTabulation_Composite()
190 if (K >= 1) PetscCall(DMRestoreWorkArray(dm, npoints * spdim * dim, MPIU_REAL, &tmpD)); in PetscFEComputeTabulation_Composite()
191 if (K >= 2) PetscCall(DMRestoreWorkArray(dm, npoints * spdim * dim * dim, MPIU_REAL, &tmpH)); in PetscFEComputeTabulation_Composite()