Searched refs:epsM (Results 1 – 25 of 26) sorted by relevance
12
83 epsA = (epsM**2) * sqrt(summed)89 epsSD = sqrt(epsM)132 rtmp = (( rtmp - two * rmes ) / epsM)**2220 epsA = (epsM**2) * sqrt(summed)226 epsSD = sqrt(epsM)256 rtmp = (( rtmp - two * rmes ) / epsM)**2
273 & + epsM )295 & + epsM )320 & + epsM )588 & + epsM )610 & + epsM )635 & + epsM )
57 eps = epsM**pt66 / sqrt(summed)
136 if (unorm .lt. 100.*epsM**2) goto 3000 515 if (unorm .lt. 100.*epsM**2) goto 3000 866 if (unorm .lt. 100.*epsM**2) goto 3000
202 tmpl = zero+epsM ! alfap for nearly incompressible liquid
157 if (unorm .lt. 100.*epsM**2) goto 3000
77 where (fact .gt. epsM)
390 where (rlam .gt. ((epsM**2) * eigmax))852 where (rlam .gt. ((epsM**2) * eigmax))
28 epsM = sqrt(epsilon(one))
524 3 + epsM
405 if (st .gt. epsM ) then
30 epsM = sqrt(epsilon(one))290 write (23,*)epsM, iabres, npro,resfrt
115 v_lambda = v_lambda1/(v_lambda2+epsM**2)
509 double epsM; member
241 common /precis/ epsM, iabres
432 double epsM; member
200 common /precis/ epsM, iabres
431 double epsM; member
199 common /precis/ epsM, iabres
367 if (st .gt. epsM ) then
381 if (st .gt. epsM ) then