661   PetscReal          *workF, *workF2, *workT, *workT2, *work, *work2;  in PetscLagNodeIndicesTensor()  local
695 …PetscCall(PetscMalloc6(MkT, &workT, MkT, &workT2, MkF, &workF, MkF, &workF2, Nk, &work, Nk, &work2…  in PetscLagNodeIndicesTensor()
719         workT[d] = val;  in PetscLagNodeIndicesTensor()
723         for (d = 0; d < MkT; d++) workT2[d] = workT[d];  in PetscLagNodeIndicesTensor()
724         PetscCall(PetscDTAltVStar(dim, PetscAbsInt(kT), 1, workT2, workT));  in PetscLagNodeIndicesTensor()
729         for (e = 0; e < MkT; e++) val += wedgeMat[d * MkT + e] * workT[e];  in PetscLagNodeIndicesTensor()
742   PetscCall(PetscFree6(workT, workT2, workF, workF2, work, work2));  in PetscLagNodeIndicesTensor()
1049   PetscReal   *workT, *workT2, *workF, *workF2, *work, *workstar;  in MatTensorAltV()  local
1098   PetscCall(PetscMalloc5(dT, &workT, dF, &workF, Nk, &work, Nk, &workstar, Nk, &workS));  in MatTensorAltV()
1137             workT[il] = val;  in MatTensorAltV()
1140             for (il = 0; il < dT; il++) workT2[il] = workT[il];  in MatTensorAltV()
1141             PetscCall(PetscDTAltVStar(dim, PetscAbsInt(kTrace), 1, workT2, workT));  in MatTensorAltV()
1146             for (jl = 0; jl < dT; jl++) val += sign * wedgeMat[il * dT + jl] * workT[jl];  in MatTensorAltV()
1175   PetscCall(PetscFree5(workT, workF, work, workstar, workS));  in MatTensorAltV()