Lines Matching refs:beta
122 PetscScalar dpi = 0.0, a = 1.0, beta, betaold = 1.0, b = 0, *e = NULL, *d = NULL, dpiold; in KSPSolve_CG() local
180 PetscCall(VecXDot(Z, R, &beta)); /* beta <- z'*r */ in KSPSolve_CG()
181 KSPCheckDot(ksp, beta); in KSPSolve_CG()
182 dp = PetscSqrtReal(PetscAbsScalar(beta)); /* dp <- r'*z = r'*B*r = e'*A'*B*A*e */ in KSPSolve_CG()
215 PetscCall(VecXDot(Z, R, &beta)); /* beta <- z'*r */ in KSPSolve_CG()
216 KSPCheckDot(ksp, beta); in KSPSolve_CG()
222 if (beta == 0.0) { in KSPSolve_CG()
227 } else if ((i > 0) && (beta * betaold < 0.0)) { in KSPSolve_CG()
228 …to indefinite preconditioner, beta %g, betaold %g", (double)PetscRealPart(beta), (double)PetscReal… in KSPSolve_CG()
244 b = beta / betaold; in KSPSolve_CG()
260 betaold = beta; in KSPSolve_CG()
289 a = beta / dpi; /* a = beta/p'w */ in KSPSolve_CG()
299 cg->obj += PetscRealPart(dp * (0.5 * dp * dpi - beta)); in KSPSolve_CG()
316 PetscCall(VecXDot(Z, R, &beta)); /* beta <- r'*z */ in KSPSolve_CG()
317 KSPCheckDot(ksp, beta); in KSPSolve_CG()
318 dp = PetscSqrtReal(PetscAbsScalar(beta)); in KSPSolve_CG()
344 PetscCall(VecXDot(Z, R, &beta)); /* beta <- z'*r */ in KSPSolve_CG()
345 KSPCheckDot(ksp, beta); in KSPSolve_CG()
367 …PetscScalar dpi = 0.0, a = 1.0, beta, betaold = 1.0, b = 0, *e = NULL, *d = NULL, delta, dpiold, t… in KSPSolve_CG_SingleReduction() local
418 PetscCall(VecXDot(Z, R, &beta)); /* beta <- z'*r */ in KSPSolve_CG_SingleReduction()
419 KSPCheckDot(ksp, beta); in KSPSolve_CG_SingleReduction()
420 dp = PetscSqrtReal(PetscAbsScalar(beta)); /* dp <- r'*z = r'*B*r = e'*A'*B*A*e */ in KSPSolve_CG_SingleReduction()
439 PetscCall(VecXDot(Z, R, &beta)); /* beta <- z'*r */ in KSPSolve_CG_SingleReduction()
440 KSPCheckDot(ksp, beta); in KSPSolve_CG_SingleReduction()
446 if (beta == 0.0) { in KSPSolve_CG_SingleReduction()
451 } else if ((i > 0) && (beta * betaold < 0.0)) { in KSPSolve_CG_SingleReduction()
462 b = beta / betaold; in KSPSolve_CG_SingleReduction()
474 …PetscCall(VecAYPX(W, beta / betaold, S)); /* w <- Ap … in KSPSolve_CG_SingleReduction()
475 …dpi = delta - beta * beta * dpiold / (betaold * betaold); /* dpi <- p'w … in KSPSolve_CG_SingleReduction()
477 betaold = beta; in KSPSolve_CG_SingleReduction()
478 KSPCheckDot(ksp, beta); in KSPSolve_CG_SingleReduction()
486 a = beta / dpi; /* a = beta/p'w */ in KSPSolve_CG_SingleReduction()
505 beta = tmp[1]; /* beta <- z'*r */ in KSPSolve_CG_SingleReduction()
506 KSPCheckDot(ksp, beta); in KSPSolve_CG_SingleReduction()
507 dp = PetscSqrtReal(PetscAbsScalar(beta)); /* dp <- r'*z = r'*B*r = e'*A'*B*A*e */ in KSPSolve_CG_SingleReduction()
526 beta = tmp[1]; /* delta <- z'*A*z = r'*B'*A*B*r */ in KSPSolve_CG_SingleReduction()
527 KSPCheckDot(ksp, beta); /* beta <- z'*r */ in KSPSolve_CG_SingleReduction()