211         PetscScalar *cH = &((PetscScalar *)H)[nc * nq * dim * dim * i];  in DMFieldEvaluateFE_DS()  local
213         DMFieldDSdot(cH, T->T[2], elem, nq, feDim, (nc * dim * dim), (PetscScalar));  in DMFieldEvaluateFE_DS()
215         PetscReal *cH = &((PetscReal *)H)[nc * nq * dim * dim * i];  in DMFieldEvaluateFE_DS()  local
217         DMFieldDSdot(cH, T->T[2], elem, nq, feDim, (nc * dim * dim), PetscRealPart);  in DMFieldEvaluateFE_DS()
347           PetscScalar *cH = &cellHs[nc * dim * dim * offset];  in DMFieldEvaluate_DS()  local
349           DMFieldDSdot(cH, T->T[2], elem, nq, feDim, (nc * dim * dim), (PetscScalar));  in DMFieldEvaluate_DS()
356 …for (e = 0; e < dimR; e++) vs[d] += invJ[dimR * dimR * p + e * dimR + d] * cH[(nc * dimR * p + g) …  in DMFieldEvaluate_DS()
358               for (d = 0; d < dimR; d++) cH[(nc * dimR * p + g) * dimR + d] = vs[d];  in DMFieldEvaluate_DS()
366 …for (e = 0; e < dimR; e++) vs[d] += invJ[dimR * dimR * p + e * dimR + d] * cH[((nc * p + g) * dimR…  in DMFieldEvaluate_DS()
368                 for (d = 0; d < dimR; d++) cH[((nc * p + g) * dimR + d) * dimR + f] = vs[d];  in DMFieldEvaluate_DS()
373           PetscReal *cH = &cellHr[nc * dim * dim * offset];  in DMFieldEvaluate_DS()  local
375           DMFieldDSdot(cH, T->T[2], elem, nq, feDim, (nc * dim * dim), PetscRealPart);  in DMFieldEvaluate_DS()
380 …for (e = 0; e < dimR; e++) v[d] += invJ[dimR * dimR * p + e * dimR + d] * cH[(nc * dimR * p + g) *…  in DMFieldEvaluate_DS()
382               for (d = 0; d < dimR; d++) cH[(nc * dimR * p + g) * dimR + d] = v[d];  in DMFieldEvaluate_DS()
388 …for (e = 0; e < dimR; e++) v[d] += invJ[dimR * dimR * p + e * dimR + d] * cH[((nc * p + g) * dimR …  in DMFieldEvaluate_DS()
390                 for (d = 0; d < dimR; d++) cH[((nc * p + g) * dimR + d) * dimR + f] = v[d];  in DMFieldEvaluate_DS()