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