Searched refs:MkT (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/dm/dt/dualspace/impls/lagrange/ |
| H A D | dspacelagrange.c | 656 PetscInt MkT, MkF; in PetscLagNodeIndicesTensor() local
669 PetscCall(PetscDTBinomialInt(dim, PetscAbsInt(kT), &MkT)); in PetscLagNodeIndicesTensor()
692 PetscCall(PetscMalloc2(MkT * NkT, &projTstar, MkF * NkF, &projFstar)); in PetscLagNodeIndicesTensor()
695 …PetscCall(PetscMalloc6(MkT, &workT, MkT, &workT2, MkF, &workF, MkF, &workF2, Nk, &work, Nk, &work2… in PetscLagNodeIndicesTensor()
696 PetscCall(PetscMalloc1(Nk * MkT, &wedgeMat)); in PetscLagNodeIndicesTensor()
716 for (d = 0; d < MkT; d++) { in PetscLagNodeIndicesTensor()
723 for (d = 0; d < MkT; d++) workT2[d] = workT[d]; in PetscLagNodeIndicesTensor()
729 for (e = 0; e < MkT; e++) val += wedgeMat[d * MkT + e] * workT[e]; in PetscLagNodeIndicesTensor()
|