Searched refs:gammaNew (Results 1 – 1 of 1) sorted by relevance
26 PetscScalar alpha, beta = 0.0, gamma, gammaNew, t; in KSPSolve_GROPPCG() local109 PetscCall(VecDotBegin(r, z, &gammaNew)); in KSPSolve_GROPPCG()119 PetscCall(VecDotEnd(r, z, &gammaNew)); in KSPSolve_GROPPCG()122 KSPCheckDot(ksp, gammaNew); in KSPSolve_GROPPCG()123 dp = PetscSqrtReal(PetscAbsScalar(gammaNew)); /* dp <- r'*z = r'*B*r = e'*A'*B*A*e */ in KSPSolve_GROPPCG()133 beta = gammaNew / gamma; in KSPSolve_GROPPCG()134 gamma = gammaNew; in KSPSolve_GROPPCG()