379     PetscReal radius = 1;  in TSSetFromOptions_Alpha()  local
380 …dius", "Spectral radius (high-frequency dissipation)", "TSAlphaSetRadius", radius, &radius, &flg));  in TSSetFromOptions_Alpha()
381     if (flg) PetscCall(TSAlphaSetRadius(ts, radius));  in TSSetFromOptions_Alpha()
402 static PetscErrorCode TSAlphaSetRadius_Alpha(TS ts, PetscReal radius)  in TSAlphaSetRadius_Alpha()  argument
407 …tscCheck(radius >= 0 && radius <= 1, PetscObjectComm((PetscObject)ts), PETSC_ERR_ARG_OUTOFRANGE, "…  in TSAlphaSetRadius_Alpha()
408   alpha_m = (PetscReal)0.5 * (3 - radius) / (1 + radius);  in TSAlphaSetRadius_Alpha()
409   alpha_f = 1 / (1 + radius);  in TSAlphaSetRadius_Alpha()
510 PetscErrorCode TSAlphaSetRadius(TS ts, PetscReal radius)  in TSAlphaSetRadius()  argument
514   PetscValidLogicalCollectiveReal(ts, radius, 2);  in TSAlphaSetRadius()
515 …PetscCheck(radius >= 0 && radius <= 1, ((PetscObject)ts)->comm, PETSC_ERR_ARG_OUTOFRANGE, "Radius …  in TSAlphaSetRadius()
516   PetscTryMethod(ts, "TSAlphaSetRadius_C", (TS, PetscReal), (ts, radius));  in TSAlphaSetRadius()