Searched refs:workF2 (Results 1 – 1 of 1) sorted by relevance
| /dports/science/PETSc/petsc-3.14.1/src/dm/dt/dualspace/impls/lagrange/ |
| H A D | dspacelagrange.c | 668 PetscReal *workF, *workF2, *workT, *workT2, *work, *work2; in PetscLagNodeIndicesTensor() local
703 …ierr = PetscMalloc6(MkT, &workT, MkT, &workT2, MkF, &workF, MkF, &workF2, Nk, &work, Nk, &work2);C… in PetscLagNodeIndicesTensor()
717 for (d = 0; d < MkF; d++) workF2[d] = workF[d]; in PetscLagNodeIndicesTensor()
718 ierr = PetscDTAltVStar(dim, PetscAbsInt(kF), 1, workF2, workF);CHKERRQ(ierr); in PetscLagNodeIndicesTensor()
750 ierr = PetscFree6(workT, workT2, workF, workF2, work, work2);CHKERRQ(ierr); in PetscLagNodeIndicesTensor()
1057 PetscReal *workT, *workT2, *workF, *workF2, *work, *workstar; in MatTensorAltV() local
1106 ierr = PetscMalloc2(dT, &workT2, dF, &workF2);CHKERRQ(ierr); in MatTensorAltV()
1132 for (il = 0; il < dF; il++) workF2[il] = workF[il]; in MatTensorAltV()
1133 ierr = PetscDTAltVStar(dim, PetscAbsInt(kFiber), 1, workF2, workF);CHKERRQ(ierr); in MatTensorAltV()
1183 ierr = PetscFree2(workT2, workF2);CHKERRQ(ierr); in MatTensorAltV()
|