Lines Matching refs:PetscAbs

14   e = PetscAbs(r[0]);
22       if (z[i] >= 0.0) e = -PetscAbs(e);
23       else e = PetscAbs(e);
25       if (PetscAbs(e - z[i]) > PetscAbs(r[i + ldr * i])) {
26         temp = PetscMin(0.01, PetscAbs(r[i + ldr * i])) / PetscAbs(e - z[i]);
40       s  = PetscAbs(e - z[i]);
41       sm = PetscAbs(e + z[i]);
42       for (j = i + 1; j < n; j++) sm += PetscAbs(z[j] + wm * r[i + ldr * j]);
61       if (PetscAbs(z[j]) > PetscAbs(r[j + ldr * j])) {
62         temp = PetscMin(0.01, PetscAbs(r[j + ldr * j] / z[j]));
250   for (j = 0; j < n; j++) wa2[j] = wa2[j] - PetscAbs(wa1[j]);
311       if (PetscAbs(xnorm - delta) <= rtol * delta || (par == 0 && xnorm <= (1.0 + rtol) * delta)) info = 1;
325         alpha = temp / (PetscAbs(prod) + PetscSqrtScalar(prod * prod + temp / delta));
326         if (prod >= 0) alpha = PetscAbs(alpha);
327         else alpha = -PetscAbs(alpha);
330         rznorm = PetscAbs(alpha) * rznorm;