Searched refs:AR1 (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | e3eig1.f | 224 subroutine e3eig2 (u, c, AR1, AR2, AR3, argument
264 & AR1(npro), AR2(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
|