124 …                            const CeedScalar nu, CeedScalar qn[], const StgShur14Context stg_ctx) {  in CalcSpectrum()  argument
133     qn[n]                   = Calc_qn(kappa[n], dkappa, keta, kcut, ke, 1.0);  in CalcSpectrum()
134     Ektot += qn[n];  in CalcSpectrum()
138   for (CeedInt n = 0; n < nmodes; n++) qn[n] /= Ektot;  in CalcSpectrum()
153 …                          const CeedScalar qn[], CeedScalar u[3], const StgShur14Context stg_ctx) {  in StgShur14Calc()  argument
167     vp[0] += sqrt(qn[n]) * sigma[0 * nmodes + n] * cos_kxdp;  in StgShur14Calc()
168     vp[1] += sqrt(qn[n]) * sigma[1 * nmodes + n] * cos_kxdp;  in StgShur14Calc()
169     vp[2] += sqrt(qn[n]) * sigma[2 * nmodes + n] * cos_kxdp;  in StgShur14Calc()
213     const CeedScalar qn       = Calc_qn(kappa[n], dkappa, keta, kcut, ke, Ektot);  in StgShur14Calc_PrecompEktot()  local
214     vp[0] += sqrt(qn) * sigma[0 * nmodes + n] * cos_kxdp;  in StgShur14Calc_PrecompEktot()
215     vp[1] += sqrt(qn) * sigma[1 * nmodes + n] * cos_kxdp;  in StgShur14Calc_PrecompEktot()
216     vp[2] += sqrt(qn) * sigma[2 * nmodes + n] * cos_kxdp;  in StgShur14Calc_PrecompEktot()
291   CeedScalar                     qn[STG_NMODES_MAX], u[3], ubar[3], cij[6], eps, lt;  in ICsStg()  local
310       CalcSpectrum(x_i[1], eps, lt, h_node_sep, nu, qn, stg_ctx);  in ICsStg()
311       StgShur14Calc(x_i, time, ubar, cij, qn, u, stg_ctx);  in ICsStg()
342   CeedScalar                  qn[STG_NMODES_MAX], u[3], ubar[3], cij[6], eps, lt;  in StgShur14Inflow()  local
369       CalcSpectrum(X[1][i], eps, lt, h_node_sep, mu / rho, qn, stg_ctx);  in StgShur14Inflow()
370       StgShur14Calc(x, time, ubar, cij, qn, u, stg_ctx);  in StgShur14Inflow()
501         CeedScalar qn[STG_NMODES_MAX];  in StgShur14InflowStrongQF()  local
502         CalcSpectrum(coords[1][i], eps, lt, h_node_sep, nu, qn, stg_ctx);  in StgShur14InflowStrongQF()
503         StgShur14Calc(x, time, ubar, cij, qn, u, stg_ctx);  in StgShur14InflowStrongQF()