9   PetscReal enorm = -1;  in TSAdaptChoose_Basic()  local
20     PetscCall(TSEvaluateWLTE(ts, adapt->wnormtype, &order, &enorm));  in TSAdaptChoose_Basic()
21 …PetscCheck(enorm < 0 || order >= 1, PetscObjectComm((PetscObject)adapt), PETSC_ERR_ARG_OUTOFRANGE,…  in TSAdaptChoose_Basic()
29     PetscCall(TSErrorWeightedNorm(ts, ts->vec_sol, Y, adapt->wnormtype, &enorm, &enorma, &enormr));  in TSAdaptChoose_Basic()
33   if (enorm < 0) {  in TSAdaptChoose_Basic()
41   if (enorm > 1) {  in TSAdaptChoose_Basic()
44 …l truncation error %g, accepting because step size %g is at minimum\n", (double)enorm, (double)h));  in TSAdaptChoose_Basic()
47 …on error %g, accepting step of size %g because always_accept is set\n", (double)enorm, (double)h));  in TSAdaptChoose_Basic()
50 …timated scaled local truncation error %g, rejecting step of size %g\n", (double)enorm, (double)h));  in TSAdaptChoose_Basic()
54 …timated scaled local truncation error %g, accepting step of size %g\n", (double)enorm, (double)h));  in TSAdaptChoose_Basic()
59   if (enorm > 0) hfac_lte = safety * PetscPowReal(enorm, ((PetscReal)-1) / order);  in TSAdaptChoose_Basic()
68   *wlte   = enorm;  in TSAdaptChoose_Basic()