Lines Matching defs:elm3keps
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
128 integer e local
129 real*8 fct1
130 real*8 tmp1, tmp2 , tmp0
132 real*8 k, kInv, kq, eps, y, epsInv, epsP2,
133 & ss, mut, mut_k, mut_eps, rat, jac
136 real*8 Ce1, Ce2, epsP2Inv, CmuKE, sigmaKE, nu,
137 & kk, kqInv, nuInv, Rey, Ret, Rey_k,
138 & Ret_k, Ret_eps, ff1, f2, kkInv,
139 & RetInv, fmukeInv, fmukeP2Inv
141 real*8 fmuke, fmuke_k, fmuke_eps
145 real*8 T1st, T2nd, T2ndInv, two3rdCmuInv, tri8thq,
146 & ssq, ssqInv, two3rdq, pk1, pk2,
147 & pk, pk_k, pk_eps, Tscale,Tinv,
148 & Tscale_k, Tscale_eps, ff1_k, ff1_eps, f2_k,f2_eps,
149 & ff1Inv, f2Inv