Lines Matching refs:work
8 PetscScalar *work; member
18 PetscCall(PetscFree3(dafield->cornerVals, dafield->cornerCoeffs, dafield->work)); in DMFieldDestroy_DA()
96 PetscReal work[8]; in MultilinearEvaluate() local
103 for (k = 0; k < whol; k++) work[k] = etaB[k]; in MultilinearEvaluate()
105 etaB[k] = work[2 * k] * e; in MultilinearEvaluate()
106 etaB[k + half] = work[2 * k + 1]; in MultilinearEvaluate()
109 for (k = 0; k < whol; k++) work[k] = etaD[k]; in MultilinearEvaluate()
111 etaD[k + half] = work[2 * k]; in MultilinearEvaluate()
112 etaD[k] = work[2 * k + 1] * d; in MultilinearEvaluate()
141 for (k = 0; k < whol; k++) work[k] = etaB[k]; in MultilinearEvaluate()
145 etaB[k] = work[2 * k]; in MultilinearEvaluate()
146 etaB[k + half] = e = work[2 * k + 1]; in MultilinearEvaluate()
198 …MultilinearEvaluate(dim, coordRange, nc, dafield->cornerCoeffs, dafield->work, n, array, datatype,… in DMFieldEvaluate_DA()
212 PetscScalar *cellCoeffs, *work; in DMFieldEvaluateFE_DA() local
234 work = dafield->work; in DMFieldEvaluateFE_DA()
276 for (i = 0; i < nc * whol; i++) work[i] = dafield->cornerCoeffs[i]; in DMFieldEvaluateFE_DA()
286 cellCoeffs[i * nc + k] = work[2 * i * nc + k] * d; in DMFieldEvaluateFE_DA()
287 cellCoeffs[(i + half) * nc + k] = work[2 * i * nc + k] * e + work[(2 * i + 1) * nc + k]; in DMFieldEvaluateFE_DA()
290 for (i = 0; i < whol * nc; i++) work[i] = cellCoeffs[i]; in DMFieldEvaluateFE_DA()
292 …MultilinearEvaluate(dim, cellCoordRange, nc, cellCoeffs, dafield->work, nq, qs, datatype, cB, cD, … in DMFieldEvaluateFE_DA()
350 …MultilinearEvaluate(dim, dafield->coordRange, nc, dafield->cornerCoeffs, dafield->work, numCells, … in DMFieldEvaluateFV_DA()
471 PetscScalar *cv, *cf, *work; in DMFieldCreateDA() local
479 PetscCall(PetscMalloc3(nv, &cv, nv, &cf, nv, &work)); in DMFieldCreateDA()
484 dafield->work = work; in DMFieldCreateDA()
489 w = work; in DMFieldCreateDA()
493 w = &work[j * nc]; in DMFieldCreateDA()
497 for (j = 0; j < nv; j++) cf[j] = work[j]; in DMFieldCreateDA()