Lines Matching refs:ak
12 PetscReal gd, max, ak, bk, akold, bkold, lamnew, alpha, kktlam = 0.0, lam_ext; in solve() local
128 ak = 0.0; in solve()
129 for (i = 0; i < dim; i++) ak += d[i] * d[i]; in solve()
134 if (bk > EPS * ak && gd < 0.0) lamnew = -gd / bk; in solve()
178 ak = bk = 0.0; in solve()
180 ak += sk[i] * sk[i]; in solve()
184 if (bk <= EPS * ak) alpha = ALPHA_MAX; in solve()
186 if (bkold < EPS * akold) alpha = ak / bk; in solve()
187 else alpha = (akold + ak) / (bkold + bk); in solve()
193 akold = ak; in solve()
202 if (PetscSqrtReal(ak) < tol * 10 * PetscSqrtReal(bk)) { in solve()
217 if (it == 0 && PetscSqrtReal(ak) < tol * 0.5 * PetscSqrtReal(bk)) return PETSC_SUCCESS; in solve()