Searched refs:sD (Results 1 – 4 of 4) sorted by relevance
| /petsc/src/dm/field/impls/shell/ |
| H A D | dmfieldshell.c | 54 PetscScalar *sD = (PetscScalar *)D; in DMFieldShellEvaluateFEDefault() local
63 for (i = 0; i < dimC; i++) d[i] = sD[(p * Nc + q) * dimC + i]; in DMFieldShellEvaluateFEDefault()
64 for (i = 0; i < dimC; i++) sD[(p * Nc + q) * dimC + i] = 0.; in DMFieldShellEvaluateFEDefault()
66 …for (j = 0; j < dimC; j++) sD[(p * Nc + q) * dimC + i] += geom->J[(p * dimC + j) * dimC + i] * d[j… in DMFieldShellEvaluateFEDefault()
|
| /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
318 if (D || H) PetscCall(DMGetWorkArray(dm, npoints * pdim * Nc * Nv, MPIU_REAL, &sD)); in PetscSpaceEvaluate_Tensor()
343 PetscCall(PetscSpaceEvaluate(tens->tensspaces[s], npoints, lpoints, sB, sD, sH)); in PetscSpaceEvaluate_Tensor()
376 …tscInt p = 0; p < npoints; p++) D[((pdim * p + i) * Nc + c) * Nv + der] *= sD[((spdim * p + si) * … in PetscSpaceEvaluate_Tensor()
404 …p < npoints; p++) H[(((pdim * p + i) * Nc + c) * Nv + der) * Nv + der2] *= sD[((spdim * p + si) * … in PetscSpaceEvaluate_Tensor()
406 …p < npoints; p++) H[(((pdim * p + i) * Nc + c) * Nv + der) * Nv + der2] *= sD[((spdim * p + si) * … in PetscSpaceEvaluate_Tensor()
424 if (D || H) PetscCall(DMRestoreWorkArray(dm, npoints * pdim * Nc * Nv, MPIU_REAL, &sD)); in PetscSpaceEvaluate_Tensor()
|
| /petsc/src/dm/dt/space/impls/sum/ |
| H A D | spacesum.c | 424 PetscReal *sB = NULL, *sD = NULL, *sH = NULL; in PetscSpaceEvaluate_Sum() local
437 if (D || H) PetscCall(DMGetWorkArray(dm, numelD, MPIU_REAL, &sD)); in PetscSpaceEvaluate_Sum()
453 … 0 || !sum->uniform) PetscCall(PetscSpaceEvaluate(sum->sumspaces[s], npoints, points, sB, sD, sH)); in PetscSpaceEvaluate_Sum()
477 if (D) D[DInd] = sD[sDInd]; in PetscSpaceEvaluate_Sum()
500 if (D || H) PetscCall(DMRestoreWorkArray(dm, numelD, MPIU_REAL, &sD)); in PetscSpaceEvaluate_Sum()
|
| /petsc/src/dm/field/impls/ds/ |
| H A D | dmfieldds.c | 532 PetscScalar *sD = (PetscScalar *)D; in DMFieldEvaluateFV_DS() local
538 for (j = 0; j < Nc * dimC; j++) sD[i * Nc * dimC + j] = 0.; in DMFieldEvaluateFV_DS()
547 …for (l = 0; l < dimC; l++) sD[(i * Nc + j) * dimC + l] += geom->detJ[i * Nq + k] * weights[k] * pD… in DMFieldEvaluateFV_DS()
550 for (k = 0; k < Nc * dimC; k++) sD[i * Nc * dimC + k] /= vol; in DMFieldEvaluateFV_DS()
|