Searched refs:origNb (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/dm/dt/space/impls/subspace/ |
| H A D | spacesubspace.c | 96 PetscInt origDim, subDim, origNc, subNc, subNb, origNb, i, j, k, l, m, n, o; in PetscSpaceEvaluate_Subspace() local
106 PetscCall(PetscSpaceGetDimension(origsp, &origNb)); 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()
133 const PetscReal *subq = &subsp->Q[i * origNb]; in PetscSpaceEvaluate_Subspace()
138 for (k = 0; k < origNb; k++) { in PetscSpaceEvaluate_Subspace()
139 …for (l = 0; l < origNc * origDim * origDim; l++) phi[l] += inH[(j * origNb + k) * origNc * origDim… in PetscSpaceEvaluate_Subspace()
173 PetscCall(DMRestoreWorkArray(sp->dm, npoints * origNb * origNc * origDim, MPIU_REAL, &inH)); in PetscSpaceEvaluate_Subspace()
182 const PetscReal *subq = &subsp->Q[i * origNb]; in PetscSpaceEvaluate_Subspace()
[all …]
|