480     PetscReal radius = 1;  in TSSetFromOptions_Alpha()  local
481 …ius", "Spectral radius (high-frequency dissipation)", "TSAlpha2SetRadius", radius, &radius, &flg));  in TSSetFromOptions_Alpha()
482     if (flg) PetscCall(TSAlpha2SetRadius(ts, radius));  in TSSetFromOptions_Alpha()
504 static PetscErrorCode TSAlpha2SetRadius_Alpha(TS ts, PetscReal radius)  in TSAlpha2SetRadius_Alpha()  argument
509 …tscCheck(radius >= 0 && radius <= 1, PetscObjectComm((PetscObject)ts), PETSC_ERR_ARG_OUTOFRANGE, "…  in TSAlpha2SetRadius_Alpha()
510   alpha_m = (2 - radius) / (1 + radius);  in TSAlpha2SetRadius_Alpha()
511   alpha_f = 1 / (1 + radius);  in TSAlpha2SetRadius_Alpha()
621 PetscErrorCode TSAlpha2SetRadius(TS ts, PetscReal radius)  in TSAlpha2SetRadius()  argument
625   PetscValidLogicalCollectiveReal(ts, radius, 2);  in TSAlpha2SetRadius()
626 …PetscCheck(radius >= 0 && radius <= 1, ((PetscObject)ts)->comm, PETSC_ERR_ARG_OUTOFRANGE, "Radius …  in TSAlpha2SetRadius()
627   PetscTryMethod(ts, "TSAlpha2SetRadius_C", (TS, PetscReal), (ts, radius));  in TSAlpha2SetRadius()