540   Vec             XX, YY, ZZ, XXwork, YYwork, ZZwork, UTwork;  in EllipticInitialize()  local
677   PetscCall(VecDuplicate(XX, &ZZwork));  in EllipticInitialize()
740   PetscCall(VecCopy(ZZ, ZZwork));  in EllipticInitialize()
744   PetscCall(VecShift(ZZwork, -0.25));  in EllipticInitialize()
748   PetscCall(VecPointwiseMult(ZZwork, ZZwork, ZZwork));  in EllipticInitialize()
752   PetscCall(VecAXPY(UTwork, 1.0, ZZwork));  in EllipticInitialize()
759   PetscCall(VecCopy(ZZ, ZZwork));  in EllipticInitialize()
763   PetscCall(VecShift(ZZwork, -0.75));  in EllipticInitialize()
767   PetscCall(VecPointwiseMult(ZZwork, ZZwork, ZZwork));  in EllipticInitialize()
771   PetscCall(VecAXPY(UTwork, 1.0, ZZwork));  in EllipticInitialize()
782   PetscCall(VecDestroy(&ZZwork));  in EllipticInitialize()