Searched refs:kappa1 (Results 1 – 1 of 1) sorted by relevance
16 PetscReal kappa0, kappaA, kappa1; in KSPSolve_BCGSL() local237 kappa1 = PetscRealPart(BLASdot_(&ldMZ, AYlc, &ione, AYtc, &ione)); in KSPSolve_BCGSL()239 if (kappa1 < 0) kappa1 = -kappa1; in KSPSolve_BCGSL()240 kappa1 = PetscSqrtReal(kappa1); in KSPSolve_BCGSL()242 if (kappa0 != 0.0 && kappa1 != 0.0) { in KSPSolve_BCGSL()243 if (kappaA < 0.7 * kappa0 * kappa1) { in KSPSolve_BCGSL()244 ghat = (kappaA < 0.0) ? -0.7 * kappa0 / kappa1 : 0.7 * kappa0 / kappa1; in KSPSolve_BCGSL()246 ghat = kappaA / (kappa1 * kappa1); in KSPSolve_BCGSL()