Lines Matching refs:par
220 …PetscReal alpha, anorm, bnorm, parc, parf, parl, pars, par = *retpar, paru, prod, rxnorm, rznor… in gqt() local
269 par = PetscMax(par, parl); in gqt()
270 par = PetscMin(par, paru); in gqt()
280 if (par <= pars && paru > 0) par = PetscMax(p001, PetscSqrtScalar(parl / paru)) * paru; in gqt()
288 for (j = 0; j < n; j++) a[j + j * lda] = wa1[j] + par; in gqt()
297 parf = par; in gqt()
311 …if (PetscAbs(xnorm - delta) <= rtol * delta || (par == 0 && xnorm <= (1.0 + rtol) * delta)) info =… in gqt()
316 pars = PetscMax(pars, par - rznorm * rznorm); in gqt()
331 if ((rznorm * rznorm + par * xnorm * xnorm) / (delta2) <= par) rednc = 1; in gqt()
333 …if (p5 * rznorm * rznorm / delta2 <= rtol * (1.0 - p5 * rtol) * (par + rxnorm * rxnorm / delta2)) { in gqt()
335 } else if (info == 0 && (p5 * (par + rxnorm * rxnorm / delta2) <= atol / delta2)) { in gqt()
342 parc = -par; in gqt()
355 parl = PetscMax(parl, par); in gqt()
357 paru = PetscMin(paru, par); in gqt()
368 a[indef - 1 + (indef - 1) * lda] = wa1[indef - 1] + par; in gqt()
386 pars = PetscMax(pars, par + parc); in gqt()
410 par = parf; in gqt()
411 f = -p5 * (rxnorm * rxnorm + par * xnorm * xnorm); in gqt()
413 f = -p5 * (rxnorm * rxnorm + par * delta * delta - rznorm * rznorm); in gqt()
425 par = PetscMax(parl, par + parc); in gqt()
427 *retpar = par; in gqt()