Searched refs:wedgeMat (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/dm/dt/dualspace/impls/lagrange/ |
| H A D | dspacelagrange.c | 662 PetscReal *wedgeMat; in PetscLagNodeIndicesTensor() local
696 PetscCall(PetscMalloc1(Nk * MkT, &wedgeMat)); in PetscLagNodeIndicesTensor()
713 PetscCall(PetscDTAltVWedgeMatrix(dim, PetscAbsInt(kF), PetscAbsInt(kT), workF, wedgeMat)); in PetscLagNodeIndicesTensor()
729 for (e = 0; e < MkT; e++) val += wedgeMat[d * MkT + e] * workT[e]; in PetscLagNodeIndicesTensor()
741 PetscCall(PetscFree(wedgeMat)); in PetscLagNodeIndicesTensor()
1052 PetscReal *wedgeMat; in MatTensorAltV() local
1100 PetscCall(PetscMalloc1(Nk * dT, &wedgeMat)); in MatTensorAltV()
1128 … PetscCall(PetscDTAltVWedgeMatrix(dim, PetscAbsInt(kFiber), PetscAbsInt(kTrace), workF, wedgeMat)); in MatTensorAltV()
1146 for (jl = 0; jl < dT; jl++) val += sign * wedgeMat[il * dT + jl] * workT[jl]; in MatTensorAltV()
1172 PetscCall(PetscFree(wedgeMat)); in MatTensorAltV()
|