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()
705       workF[d] = val;  in PetscLagNodeIndicesTensor()
709       for (d = 0; d < MkF; d++) workF2[d] = workF[d];  in PetscLagNodeIndicesTensor()
710       PetscCall(PetscDTAltVStar(dim, PetscAbsInt(kF), 1, workF2, workF));  in PetscLagNodeIndicesTensor()
713     PetscCall(PetscDTAltVWedgeMatrix(dim, PetscAbsInt(kF), PetscAbsInt(kT), workF, wedgeMat));  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()
1122           workF[il] = val;  in MatTensorAltV()
1125           for (il = 0; il < dF; il++) workF2[il] = workF[il];  in MatTensorAltV()
1126           PetscCall(PetscDTAltVStar(dim, PetscAbsInt(kFiber), 1, workF2, workF));  in MatTensorAltV()
1128 … PetscCall(PetscDTAltVWedgeMatrix(dim, PetscAbsInt(kFiber), PetscAbsInt(kTrace), workF, wedgeMat));  in MatTensorAltV()
1175   PetscCall(PetscFree5(workT, workF, work, workstar, workS));  in MatTensorAltV()