Searched defs:elm3keps (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | elm3keps.f | 110 subroutine elm3keps (kay, epsilon, subroutine
117 real*8 kay(npro), epsilon(npro),
118 & dwi(npro)
119 real*8 gradV(npro,3,3)
121 real*8 rmu(npro),
122 & rho(npro)
123 real*8 srcRat(npro,2),
124 & src(npro,2), srcJac(npro,4),
125 & srcRat1(npro), src1(npro)
127 integer advdiff
[all …]
|