Searched refs:projFstar (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/dm/dt/dualspace/impls/lagrange/ |
| H A D | dspacelagrange.c | 660 PetscReal *projFstar, *projTstar; in PetscLagNodeIndicesTensor() local
692 PetscCall(PetscMalloc2(MkT * NkT, &projTstar, MkF * NkF, &projFstar)); in PetscLagNodeIndicesTensor()
694 PetscCall(PetscDTAltVPullbackMatrix(dim, dimF, projF, kF, projFstar)); in PetscLagNodeIndicesTensor()
704 for (e = 0; e < NkF; e++) val += projFstar[d * NkF + e] * fiberi->nodeVec[j * NkF + e]; in PetscLagNodeIndicesTensor()
743 PetscCall(PetscFree2(projTstar, projFstar)); in PetscLagNodeIndicesTensor()
1051 PetscReal *projTstar, *projFstar; in MatTensorAltV() local
1091 …mTrace * dim, &projT, dimFiber * dim, &projF, dT * NkTrace, &projTstar, dF * NkFiber, &projFstar)); in MatTensorAltV()
1097 PetscCall(PetscDTAltVPullbackMatrix(dim, dimFiber, projF, kFiber, projFstar)); in MatTensorAltV()
1121 …for (jl = 0; jl < NkFiber; jl++) val += projFstar[il * NkFiber + jl] * PetscRealPart(valsF[jF * Nk… in MatTensorAltV()
1173 PetscCall(PetscFree4(projT, projF, projTstar, projFstar)); in MatTensorAltV()
|