Home
last modified time | relevance | path

Searched refs:kInv (Results 1 – 1 of 1) sorted by relevance

/phasta/phSolver/common/
H A Delm3keps.f132 real*8 k, kInv, kq, eps, y, epsInv, epsP2, local
186 kInv = 0
194 kInv = 1. / k
196 kkInv = kInv*kInv
346 pk_k = kInv*pk2
355 srcRat(e,1) = -kInv*( pk - rho(e) * eps )