540   Vec             XX, YY, ZZ, XXwork, YYwork, ZZwork, UTwork;  in EllipticInitialize()  local
675   PetscCall(VecDuplicate(XX, &XXwork));  in EllipticInitialize()
738   PetscCall(VecCopy(XX, XXwork));  in EllipticInitialize()
742   PetscCall(VecShift(XXwork, -0.25));  in EllipticInitialize()
746   PetscCall(VecPointwiseMult(XXwork, XXwork, XXwork));  in EllipticInitialize()
750   PetscCall(VecCopy(XXwork, UTwork));  in EllipticInitialize()
757   PetscCall(VecCopy(XX, XXwork));  in EllipticInitialize()
761   PetscCall(VecShift(XXwork, -0.75));  in EllipticInitialize()
765   PetscCall(VecPointwiseMult(XXwork, XXwork, XXwork));  in EllipticInitialize()
769   PetscCall(VecCopy(XXwork, UTwork));  in EllipticInitialize()
780   PetscCall(VecDestroy(&XXwork));  in EllipticInitialize()