Lines Matching refs:xnorm

220   PetscReal    alpha, anorm, bnorm, parc, parf, parl, pars, par = *retpar, paru, prod, rxnorm, rznorm = 0.0, temp, xnorm;
227   xnorm  = 0.0;
307       PetscCallBLAS("BLASnrm2", xnorm = BLASnrm2_(&blasn, x, &blas1));
311       if (PetscAbs(xnorm - delta) <= rtol * delta || (par == 0 && xnorm <= (1.0 + rtol) * delta)) info = 1;
321       if (xnorm < delta) {
324         temp  = (delta - xnorm) * ((delta + xnorm) / delta);
331         if ((rznorm * rznorm + par * xnorm * xnorm) / (delta2) <= par) rednc = 1;
341       if (xnorm == 0) {
345         temp = 1.0 / xnorm;
350         parc = (xnorm - delta) / (delta * temp * temp);
354       if (xnorm > delta) {
356       } else if (xnorm < delta) {
411       f   = -p5 * (rxnorm * rxnorm + par * xnorm * xnorm);