33   PetscReal x = 0.0, base = 0.0, eps;  in PetscADefTicks()  local
36   PetscCall(PetscAGetBase(low, high, num, &base, &power));  in PetscADefTicks()
37   PetscCall(PetscAGetNice(low, base, -1, &x));  in PetscADefTicks()
41   if (x < low) x += base;  in PetscADefTicks()
44   eps = base / 10;  in PetscADefTicks()
47     x += base;  in PetscADefTicks()
93 PetscErrorCode PetscAGetNice(PetscReal in, PetscReal base, int sign, PetscReal *result)  in PetscAGetNice()  argument
99   etmp = in / base + 0.5 + s;  in PetscAGetNice()
104   etmp    = base * (etmp - m);  in PetscAGetNice()
111   PetscReal        base, ftemp, e10;  in PetscAGetBase()  local
118   base = (vmax - vmin) / (double)(num + 1);  in PetscAGetBase()
121   if (base <= 0.0) {  in PetscAGetBase()
122     base = PetscAbsReal(vmin);  in PetscAGetBase()
123     if (base < 1.0) base = 1.0;  in PetscAGetBase()
125   ftemp = PetscLog10Real((1.0 + EPS) * base);  in PetscAGetBase()
129   base = base * e10;  in PetscAGetBase()
130   if (base < 1.0) base = 1.0;  in PetscAGetBase()
133     if (base >= base_try[i]) {  in PetscAGetBase()
135       base = base_try[i - 1] * e10;  in PetscAGetBase()
140   *Base = base;  in PetscAGetBase()