Searched refs:etaD (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/dm/field/impls/da/ |
| H A D | dmfieldda.c | 67 #define MEHess(out, cf, etaB, etaD, dim, nc, cast) \ argument
75 PetscScalar c = (cf)[_m] * (etaB)[_ind] * (etaD)[_ind]; \
95 PetscReal etaD[8] = {1., 1., 1., 1., 1., 1., 1., 1.}; in MultilinearEvaluate() local
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()
168 MEHess(out, cf, etaB, etaD, dim, nc, (PetscScalar)); in MultilinearEvaluate()
172 MEHess(out, cf, etaB, etaD, dim, nc, PetscRealPart); in MultilinearEvaluate()
|