Lines Matching refs:eps
132 real*8 k, kInv, kq, eps, y, epsInv, epsP2, local
177 eps = abs(epsilon(e))
201 epsP2 = eps * eps
208 if ( eps .gt.1.e-32) then
209 epsInv = 1. / eps
351 src(e,1) = pk - rho(e) * eps
353 & -rho(e)* Ce2 * f2 * eps * Tinv
355 srcRat(e,1) = -kInv*( pk - rho(e) * eps )
358 & -rho(e)* Ce2 * f2 * eps * Tinv
367 & -rho(e) * Ce2 * f2_k * eps * Tinv
368 & +rho(e) * Ce2 * f2 * eps * Tscale_k * Tinv**2 ! do not touch
374 & -rho(e) * Ce2 * f2_eps * eps * Tinv
376 & +rho(e) * Ce2 * f2* eps * Tscale_eps * Tinv**2