Lines Matching refs:nc
151 PetscInt nq, nc, dim, meshDim, numCells, feDim, i, K = H ? 2 : (D ? 1 : (B ? 0 : -1)); in DMFieldEvaluateFE_DS() local
162 nc = field->numComponents; in DMFieldEvaluateFE_DS()
189 PetscScalar *cB = &((PetscScalar *)B)[nc * nq * i]; in DMFieldEvaluateFE_DS()
191 DMFieldDSdot(cB, T->T[0], elem, nq, feDim, nc, (PetscScalar)); in DMFieldEvaluateFE_DS()
193 PetscReal *cB = &((PetscReal *)B)[nc * nq * i]; in DMFieldEvaluateFE_DS()
195 DMFieldDSdot(cB, T->T[0], elem, nq, feDim, nc, PetscRealPart); in DMFieldEvaluateFE_DS()
200 PetscScalar *cD = &((PetscScalar *)D)[nc * nq * dim * i]; in DMFieldEvaluateFE_DS()
202 DMFieldDSdot(cD, T->T[1], elem, nq, feDim, (nc * dim), (PetscScalar)); in DMFieldEvaluateFE_DS()
204 PetscReal *cD = &((PetscReal *)D)[nc * nq * dim * i]; in DMFieldEvaluateFE_DS()
206 DMFieldDSdot(cD, T->T[1], elem, nq, feDim, (nc * dim), PetscRealPart); in DMFieldEvaluateFE_DS()
211 PetscScalar *cH = &((PetscScalar *)H)[nc * nq * dim * dim * i]; in DMFieldEvaluateFE_DS()
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()
217 DMFieldDSdot(cH, T->T[2], elem, nq, feDim, (nc * dim * dim), PetscRealPart); in DMFieldEvaluateFE_DS()
232 PetscInt c, nFound, numCells, feDim, nc; in DMFieldEvaluate_DS() local
250 nc = field->numComponents; in DMFieldEvaluate_DS()
270 …l(PetscMalloc3((B ? (size_t)nc * gatherSize : 0), &cellBs, (D ? (size_t)nc * dim * gatherSize : 0)… in DMFieldEvaluate_DS()
271 …l(PetscMalloc3((B ? (size_t)nc * gatherSize : 0), &cellBr, (D ? (size_t)nc * dim * gatherSize : 0)… in DMFieldEvaluate_DS()
305 PetscScalar *cB = &cellBs[nc * offset]; in DMFieldEvaluate_DS()
307 DMFieldDSdot(cB, T->T[0], elem, nq, feDim, nc, (PetscScalar)); in DMFieldEvaluate_DS()
309 PetscReal *cB = &cellBr[nc * offset]; in DMFieldEvaluate_DS()
311 DMFieldDSdot(cB, T->T[0], elem, nq, feDim, nc, PetscRealPart); in DMFieldEvaluate_DS()
316 PetscScalar *cD = &cellDs[nc * dim * offset]; in DMFieldEvaluate_DS()
318 DMFieldDSdot(cD, T->T[1], elem, nq, feDim, (nc * dim), (PetscScalar)); in DMFieldEvaluate_DS()
320 for (g = 0; g < nc; g++) { in DMFieldEvaluate_DS()
325 …for (e = 0; e < dimR; e++) vs[d] += invJ[dimR * dimR * p + e * dimR + d] * cD[(nc * p + g) * dimR … in DMFieldEvaluate_DS()
327 for (d = 0; d < dimR; d++) cD[(nc * p + g) * dimR + d] = vs[d]; in DMFieldEvaluate_DS()
331 PetscReal *cD = &cellDr[nc * dim * offset]; in DMFieldEvaluate_DS()
333 DMFieldDSdot(cD, T->T[1], elem, nq, feDim, (nc * dim), PetscRealPart); in DMFieldEvaluate_DS()
335 for (g = 0; g < nc; g++) { in DMFieldEvaluate_DS()
338 …for (e = 0; e < dimR; e++) v[d] += invJ[dimR * dimR * p + e * dimR + d] * cD[(nc * p + g) * dimR +… in DMFieldEvaluate_DS()
340 for (d = 0; d < dimR; d++) cD[(nc * p + g) * dimR + d] = v[d]; in DMFieldEvaluate_DS()
347 PetscScalar *cH = &cellHs[nc * dim * dim * offset]; in DMFieldEvaluate_DS()
349 DMFieldDSdot(cH, T->T[2], elem, nq, feDim, (nc * dim * dim), (PetscScalar)); in DMFieldEvaluate_DS()
351 for (g = 0; g < nc * dimR; g++) { 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()
360 for (g = 0; g < nc; g++) { in DMFieldEvaluate_DS()
366 …e = 0; e < dimR; e++) vs[d] += invJ[dimR * dimR * p + e * dimR + d] * cH[((nc * p + g) * dimR + e)… 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()
375 DMFieldDSdot(cH, T->T[2], elem, nq, feDim, (nc * dim * dim), PetscRealPart); in DMFieldEvaluate_DS()
377 for (g = 0; g < nc * dimR; g++) { 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()
384 for (g = 0; g < nc; g++) { 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()
412 PetscCall(PetscMPIIntCast(nc, &idim)); in DMFieldEvaluate_DS()
422 PetscCall(PetscMPIIntCast(nc * dim, &idim)); in DMFieldEvaluate_DS()
432 PetscCall(PetscMPIIntCast(nc * dim * dim, &idim)); in DMFieldEvaluate_DS()