12   PetscReal     enorm, enorma, enormr, hfac_lte, hfac_ltea, hfac_lter, h_lte, safety;  in TSAdaptChoose_GLEE()  local
37     PetscCall(TSErrorWeightedENorm(ts, E, X, X, adapt->wnormtype, &enorm, &enorma, &enormr));  in TSAdaptChoose_GLEE()
45     PetscCall(TSErrorWeightedNorm(ts, X, Y, adapt->wnormtype, &enorm, &enorma, &enormr));  in TSAdaptChoose_GLEE()
57   if (enorm > 1. || enorma > 1. || enormr > 1.) {  in TSAdaptChoose_GLEE()
60 … because step size %g is at minimum\n", (double)enorm, (double)enorma, (double)enormr, (double)h));  in TSAdaptChoose_GLEE()
63 …ize %g because always_accept is set\n", (double)enorm, (double)enorma, (double)enormr, (double)h));  in TSAdaptChoose_GLEE()
66 … %g, %g], rejecting step of size %g\n", (double)enorm, (double)enorma, (double)enormr, (double)h));  in TSAdaptChoose_GLEE()
70 … %g, %g], accepting step of size %g\n", (double)enorm, (double)enorma, (double)enormr, (double)h));  in TSAdaptChoose_GLEE()
86       hfac_lter = safety * PetscPowReal(1. / enormr, ((PetscReal)1) / (order + 1));  in TSAdaptChoose_GLEE()
100       hfac_lter = safety * PetscPowReal(enormr, ((PetscReal)-1) / order);  in TSAdaptChoose_GLEE()
111   *wlter = enormr;  in TSAdaptChoose_GLEE()