Searched refs:sH (Results 1 – 4 of 4) sorted by relevance
| /petsc/src/dm/field/impls/shell/ |
| H A D | dmfieldshell.c | 91 PetscScalar *sH = (PetscScalar *)H; in DMFieldShellEvaluateFEDefault() local
101 for (j = 0; j < dimC; j++) d[i][j] = sH[((p * Nc + q) * dimC + i) * dimC + j]; in DMFieldShellEvaluateFEDefault()
103 for (j = 0; j < dimC; j++) sH[((p * Nc + q) * dimC + i) * dimC + j] = 0.; in DMFieldShellEvaluateFEDefault()
107 …for (l = 0; l < dimC; l++) sH[((p * Nc + q) * dimC + i) * dimC + j] += geom->J[(p * dimC + k) * di… in DMFieldShellEvaluateFEDefault()
|
| /petsc/src/dm/dt/space/impls/sum/ |
| H A D | spacesum.c | 424 PetscReal *sB = NULL, *sD = NULL, *sH = NULL; in PetscSpaceEvaluate_Sum() local
438 if (H) PetscCall(DMGetWorkArray(dm, numelH, MPIU_REAL, &sH)); in PetscSpaceEvaluate_Sum()
453 … 0 || !sum->uniform) PetscCall(PetscSpaceEvaluate(sum->sumspaces[s], npoints, points, sB, sD, sH)); in PetscSpaceEvaluate_Sum()
486 H[HInd] = sH[sHInd]; in PetscSpaceEvaluate_Sum()
499 if (H) PetscCall(DMRestoreWorkArray(dm, numelH, MPIU_REAL, &sH)); in PetscSpaceEvaluate_Sum()
|
| /petsc/src/dm/dt/space/impls/tensor/ |
| H A D | spacetensor.c | 305 PetscReal *lpoints, *sB = NULL, *sD = NULL, *sH = NULL; in PetscSpaceEvaluate_Tensor() local
319 if (H) PetscCall(DMGetWorkArray(dm, npoints * pdim * Nc * Nv * Nv, MPIU_REAL, &sH)); in PetscSpaceEvaluate_Tensor()
343 PetscCall(PetscSpaceEvaluate(tens->tensspaces[s], npoints, lpoints, sB, sD, sH)); in PetscSpaceEvaluate_Tensor()
402 …p < npoints; p++) H[(((pdim * p + i) * Nc + c) * Nv + der) * Nv + der2] *= sH[(((spdim * p + si) *… in PetscSpaceEvaluate_Tensor()
423 if (H) PetscCall(DMRestoreWorkArray(dm, npoints * pdim * Nc * Nv * Nv, MPIU_REAL, &sH)); in PetscSpaceEvaluate_Tensor()
|
| /petsc/src/dm/field/impls/ds/ |
| H A D | dmfieldds.c | 579 PetscScalar *sH = (PetscScalar *)H; in DMFieldEvaluateFV_DS() local
585 for (j = 0; j < Nc * dimC * dimC; j++) sH[i * Nc * dimC * dimC + j] = 0.; in DMFieldEvaluateFV_DS()
606 …for (m = 0; m < dimC; m++) sH[(i * Nc + j) * dimC * dimC + l * dimC + m] += geom->detJ[i * Nq + k]… in DMFieldEvaluateFV_DS()
610 for (k = 0; k < Nc * dimC * dimC; k++) sH[i * Nc * dimC * dimC + k] /= vol; in DMFieldEvaluateFV_DS()
|