36 CEED_QFUNCTION_HELPER void InterpolateProfile(const CeedScalar wall_dist, CeedScalar ubar[3], CeedS…  in InterpolateProfile()  argument
39   const CeedScalar *prof_wd   = &stg_ctx->data[stg_ctx->offsets.wall_dist];  in InterpolateProfile()
47     if (wall_dist < prof_wd[i]) {  in InterpolateProfile()
54     CeedScalar coeff = (wall_dist - prof_wd[idx - 1]) / (prof_wd[idx] - prof_wd[idx - 1]);  in InterpolateProfile()
102 CEED_QFUNCTION_HELPER void SpectrumConstants(const CeedScalar wall_dist, const CeedScalar eps, cons…  in SpectrumConstants()  argument
105   *ke   = wall_dist == 0 ? 1e16 : 2 * M_PI / Min(2 * wall_dist, 3 * lt);  in SpectrumConstants()
107   *kcut = M_PI / Min(Max(Max(hNodSep[1], hNodSep[2]), 0.3 * (*hmax)) + 0.1 * wall_dist, *hmax);  in SpectrumConstants()
123 CEED_QFUNCTION_HELPER void CalcSpectrum(const CeedScalar wall_dist, const CeedScalar eps, const Cee…  in CalcSpectrum()  argument
129   SpectrumConstants(wall_dist, eps, lt, h_node_sep, nu, &hmax, &ke, &keta, &kcut);  in CalcSpectrum()
194 …                const CeedScalar Ektot, const CeedScalar h_node_sep[3], const CeedScalar wall_dist,  in StgShur14Calc_PrecompEktot()  argument
203   SpectrumConstants(wall_dist, eps, lt, h_node_sep, nu, &hmax, &ke, &keta, &kcut);  in StgShur14Calc_PrecompEktot()
262     const CeedScalar wall_dist = x[1][i];  in StgShur14Preprocess()  local
267     InterpolateProfile(wall_dist, ubar, cij, &eps, &lt, stg_ctx);  in StgShur14Preprocess()
268     SpectrumConstants(wall_dist, eps, lt, h_node_sep, nu, &hmax, &ke, &keta, &kcut);  in StgShur14Preprocess()