540   Vec             XX, YY, ZZ, XXwork, YYwork, ZZwork, UTwork;  in EllipticInitialize()  local
676   PetscCall(VecDuplicate(XX, &YYwork));  in EllipticInitialize()
739   PetscCall(VecCopy(YY, YYwork));  in EllipticInitialize()
743   PetscCall(VecShift(YYwork, -0.25));  in EllipticInitialize()
747   PetscCall(VecPointwiseMult(YYwork, YYwork, YYwork));  in EllipticInitialize()
751   PetscCall(VecAXPY(UTwork, 1.0, YYwork));  in EllipticInitialize()
758   PetscCall(VecCopy(YY, YYwork));  in EllipticInitialize()
762   PetscCall(VecShift(YYwork, -0.75));  in EllipticInitialize()
766   PetscCall(VecPointwiseMult(YYwork, YYwork, YYwork));  in EllipticInitialize()
770   PetscCall(VecAXPY(UTwork, 1.0, YYwork));  in EllipticInitialize()
781   PetscCall(VecDestroy(&YYwork));  in EllipticInitialize()