69   Vec          u, v, d, Hu; /* Work vectors for the GKB algorithm                     */  member
1046     PetscCall(VecDuplicate(ilink->x, &jac->Hu));  in PCSetUp_FieldSplit()
1864   Vec               u, v, Hu, d, work1, work2;  in PCApply_FieldSplit_GKB()  local
1877   Hu    = jac->Hu;  in PCApply_FieldSplit_GKB()
1913   PetscCall(MatMult(jac->H, u, Hu)); /* alpha = u'*H*u      */  in PCApply_FieldSplit_GKB()
1914   PetscCall(VecDot(Hu, u, &alpha));  in PCApply_FieldSplit_GKB()
1941     PetscCall(MatMult(jac->H, u, Hu));  in PCApply_FieldSplit_GKB()
1942     PetscCall(VecAXPY(work2, -beta, Hu));  in PCApply_FieldSplit_GKB()
1947     PetscCall(MatMult(jac->H, u, Hu)); /* alpha = u'*H*u            */  in PCApply_FieldSplit_GKB()
1948     PetscCall(VecDot(Hu, u, &alpha));  in PCApply_FieldSplit_GKB()
1961     PetscCall(MatMult(jac->H, ilinkA->y, Hu));             /* ||u||_H = u'*H*u     */  in PCApply_FieldSplit_GKB()
1962     PetscCall(VecDot(Hu, ilinkA->y, &nrmz2));  in PCApply_FieldSplit_GKB()
2102   PetscCall(VecDestroy(&jac->Hu));  in PCReset_FieldSplit()