95 CEED_QFUNCTION_HELPER CeedScalar Calc_qn(const CeedScalar kappa, const CeedScalar dkappa, const Cee…  in Calc_qn()  argument
97 …const CeedScalar feta_x_fcut = exp(-Square(12 * kappa / keta) - Cube(4 * Max(kappa - 0.9 * kcut, 0…  in Calc_qn()
98 …return pow(kappa / ke, 4.) * pow(1 + 2.4 * Square(kappa / ke), -17. / 6) * feta_x_fcut * dkappa * …  in Calc_qn()
126   const CeedScalar *kappa  = &stg_ctx->data[stg_ctx->offsets.kappa];  in CalcSpectrum()  local
132     const CeedScalar dkappa = n == 0 ? kappa[0] : kappa[n] - kappa[n - 1];  in CalcSpectrum()
133     qn[n]                   = Calc_qn(kappa[n], dkappa, keta, kcut, ke, 1.0);  in CalcSpectrum()
155   const CeedScalar *kappa  = &stg_ctx->data[stg_ctx->offsets.kappa];  in StgShur14Calc()  local
163     xhat[0] = (X[0] - stg_ctx->u0 * t) * Max(2 * kappa[0] / kappa[n], 0.1);  in StgShur14Calc()
166     const CeedScalar cos_kxdp = cos(kappa[n] * xdotd + phi[n]);  in StgShur14Calc()
198   const CeedScalar *kappa  = &stg_ctx->data[stg_ctx->offsets.kappa];  in StgShur14Calc_PrecompEktot()  local
208     xhat[0] = (X[0] - stg_ctx->u0 * t) * Max(2 * kappa[0] / kappa[n], 0.1);  in StgShur14Calc_PrecompEktot()
211     const CeedScalar cos_kxdp = cos(kappa[n] * xdotd + phi[n]);  in StgShur14Calc_PrecompEktot()
212     const CeedScalar dkappa   = n == 0 ? kappa[0] : kappa[n] - kappa[n - 1];  in StgShur14Calc_PrecompEktot()
213     const CeedScalar qn       = Calc_qn(kappa[n], dkappa, keta, kcut, ke, Ektot);  in StgShur14Calc_PrecompEktot()
258   const CeedScalar *kappa  = &stg_ctx->data[stg_ctx->offsets.kappa];  in StgShur14Preprocess()  local
273       const CeedScalar dkappa = n == 0 ? kappa[0] : kappa[n] - kappa[n - 1];  in StgShur14Preprocess()
274       Ek_tot += Calc_qn(kappa[n], dkappa, keta, kcut, ke, 1.0);  in StgShur14Preprocess()