Lines Matching refs:u
4 & dxidx, u, Q)
47 & u(npro), Q(npro,nflow,nflow)
56 where (u .ne. zero)
57 fact = one / u
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)
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)
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)
224 subroutine e3eig2 (u, c, AR1, AR2, AR3, argument
263 dimension u(npro), c(npro),
275 rlam(:,1) = AR1 * (u + c)**2 + offd
276 rlam(:,2) = AR1 * u**2 + AR3 * c**2
277 rlam(:,3) = AR1 * u**2 + AR2 * c**2
278 rlam(:,4) = AR1 * u**2
279 rlam(:,5) = AR1 * (u - c)**2 + offd