129 …                            const CeedScalar nu, CeedScalar qn[], const StgShur14Context stg_ctx) {  in CalcSpectrum()  argument
138     qn[n]                   = Calc_qn(kappa[n], dkappa, keta, kcut, ke, 1.0);  in CalcSpectrum()
139     Ektot += qn[n];  in CalcSpectrum()
143   for (CeedInt n = 0; n < nmodes; n++) qn[n] /= Ektot;  in CalcSpectrum()
158 …                          const CeedScalar qn[], CeedScalar u[3], const StgShur14Context stg_ctx) {  in StgShur14Calc()  argument
172     vp[0] += sqrt(qn[n]) * sigma[0 * nmodes + n] * cos_kxdp;  in StgShur14Calc()
173     vp[1] += sqrt(qn[n]) * sigma[1 * nmodes + n] * cos_kxdp;  in StgShur14Calc()
174     vp[2] += sqrt(qn[n]) * sigma[2 * nmodes + n] * cos_kxdp;  in StgShur14Calc()
218     const CeedScalar qn       = Calc_qn(kappa[n], dkappa, keta, kcut, ke, Ektot);  in StgShur14Calc_PrecompEktot()  local
219     vp[0] += sqrt(qn) * sigma[0 * nmodes + n] * cos_kxdp;  in StgShur14Calc_PrecompEktot()
220     vp[1] += sqrt(qn) * sigma[1 * nmodes + n] * cos_kxdp;  in StgShur14Calc_PrecompEktot()
221     vp[2] += sqrt(qn) * sigma[2 * nmodes + n] * cos_kxdp;  in StgShur14Calc_PrecompEktot()
288   CeedScalar                     qn[STG_NMODES_MAX], u[3], ubar[3], cij[6], eps, lt;  in ICsStg()  local
307       CalcSpectrum(x_i[1], eps, lt, h_node_sep, nu, qn, stg_ctx);  in ICsStg()
308       StgShur14Calc(x_i, time, ubar, cij, qn, u, stg_ctx);  in ICsStg()
338   CeedScalar             qn[STG_NMODES_MAX], u[3], ubar[3], cij[6], eps, lt;  in StgShur14Inflow()  local
365       CalcSpectrum(X[1][i], eps, lt, h_node_sep, mu / rho, qn, stg_ctx);  in StgShur14Inflow()
366       StgShur14Calc(x, time, ubar, cij, qn, u, stg_ctx);  in StgShur14Inflow()
503         CeedScalar qn[STG_NMODES_MAX];  in StgShur14InflowStrongQF()  local
504         CalcSpectrum(coords[1][i], eps, lt, h_node_sep, nu, qn, stg_ctx);  in StgShur14InflowStrongQF()
505         StgShur14Calc(x, time, ubar, cij, qn, u, stg_ctx);  in StgShur14InflowStrongQF()