Lines Matching refs:work2
1864 Vec u, v, Hu, d, work1, work2; in PCApply_FieldSplit_GKB() local
1880 work2 = jac->w2; in PCApply_FieldSplit_GKB()
1908 PetscCall(MatMult(jac->B, v, work2)); /* u = H^{-1}*B*v */ in PCApply_FieldSplit_GKB()
1909 PetscCall(PetscLogEventBegin(ilinkA->event, ksp, work2, u, NULL)); in PCApply_FieldSplit_GKB()
1910 PetscCall(KSPSolve(ksp, work2, u)); in PCApply_FieldSplit_GKB()
1912 PetscCall(PetscLogEventEnd(ilinkA->event, ksp, work2, u, NULL)); in PCApply_FieldSplit_GKB()
1940 PetscCall(MatMult(jac->B, v, work2)); /* u <- H^{-1}*(B*v-beta*H*u) */ in PCApply_FieldSplit_GKB()
1942 PetscCall(VecAXPY(work2, -beta, Hu)); in PCApply_FieldSplit_GKB()
1943 PetscCall(PetscLogEventBegin(ilinkA->event, ksp, work2, u, NULL)); in PCApply_FieldSplit_GKB()
1944 PetscCall(KSPSolve(ksp, work2, u)); in PCApply_FieldSplit_GKB()
1946 PetscCall(PetscLogEventEnd(ilinkA->event, ksp, work2, u, NULL)); in PCApply_FieldSplit_GKB()