Lines Matching refs:Q
4 & dxidx, u, Q)
47 & u(npro), Q(npro,nflow,nflow)
175 Q(:,1,5) = fact * ((c + u) * c - eb1 * gamb)
176 Q(:,2,5) = -fact * (c + u * gamb) * Rcs(:,1,1)
177 Q(:,3,5) = -fact * (c + u * gamb) * Rcs(:,1,2)
178 Q(:,4,5) = -fact * (c + u * gamb) * Rcs(:,1,3)
179 Q(:,5,5) = fact * gamb
181 Q(:,1,1) = fact * ((c - u) * c - eb1 * gamb)
182 Q(:,2,1) = fact * (c - u * gamb) * Rcs(:,1,1)
183 Q(:,3,1) = fact * (c - u * gamb) * Rcs(:,1,2)
184 Q(:,4,1) = fact * (c - u * gamb) * Rcs(:,1,3)
185 Q(:,5,1) = fact * gamb
187 Q(:,1,3) = zero
188 Q(:,2,3) = -fact * c * sqt2 * Rcs(:,2,1) ! + in original Jo/Sh code
189 Q(:,3,3) = -fact * c * sqt2 * Rcs(:,2,2) ! could be error here,
190 Q(:,4,3) = -fact * c * sqt2 * Rcs(:,2,3) ! but unlikely
191 Q(:,5,3) = zero
193 Q(:,1,2) = zero
194 Q(:,2,2) = fact * c * sqt2 * Rcs(:,3,1)
195 Q(:,3,2) = fact * c * sqt2 * Rcs(:,3,2)
196 Q(:,4,2) = fact * c * sqt2 * Rcs(:,3,3)
197 Q(:,5,2) = zero
201 Q(:,1,4) = fact * eb1
202 Q(:,2,4) = fact * u * Rcs(:,1,1)
203 Q(:,3,4) = fact * u * Rcs(:,1,2)
204 Q(:,4,4) = fact * u * Rcs(:,1,3)
205 Q(:,5,4) = -fact
225 & rlam, Q, eigmax)
266 & Q(npro,nflow,nflow), eigmax(npro,nflow)
304 t = Rcs * Q(:,1,1) - Rsn * Q(:,1,5)
305 Q(:,1,5) = Rsn * Q(:,1,1) + Rcs * Q(:,1,5)
306 Q(:,1,1) = t
308 t = Rcs * Q(:,2,1) - Rsn * Q(:,2,5)
309 Q(:,2,5) = Rsn * Q(:,2,1) + Rcs * Q(:,2,5)
310 Q(:,2,1) = t
312 t = Rcs * Q(:,3,1) - Rsn * Q(:,3,5)
313 Q(:,3,5) = Rsn * Q(:,3,1) + Rcs * Q(:,3,5)
314 Q(:,3,1) = t
316 t = Rcs * Q(:,4,1) - Rsn * Q(:,4,5)
317 Q(:,4,5) = Rsn * Q(:,4,1) + Rcs * Q(:,4,5)
318 Q(:,4,1) = t
320 t = Rcs * Q(:,5,1) - Rsn * Q(:,5,5)
321 Q(:,5,5) = Rsn * Q(:,5,1) + Rcs * Q(:,5,5)
322 Q(:,5,1) = t