Lines Matching refs:etaB
67 #define MEHess(out, cf, etaB, etaD, dim, nc, cast) \ argument
75 PetscScalar c = (cf)[_m] * (etaB)[_ind] * (etaD)[_ind]; \
94 PetscReal etaB[8] = {1., 1., 1., 1., 1., 1., 1., 1.}; 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()
120 MEdot(out, cf, etaB, (1 << dim), nc, (PetscScalar)); in MultilinearEvaluate()
124 MEdot(out, cf, etaB, (1 << dim), nc, PetscRealPart); 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()
168 MEHess(out, cf, etaB, etaD, dim, nc, (PetscScalar)); in MultilinearEvaluate()
172 MEHess(out, cf, etaB, etaD, dim, nc, PetscRealPart); in MultilinearEvaluate()