Lines Matching refs:fact
38 dimension gijd(npro,6), fact(npro), rnu(npro),
97 fact = sqrt(tauM)
100 tauC =rho* pt125*fact/(gijd(:,1)+gijd(:,2)+gijd(:,3))*ff
101 tauM = one/fact
107 fact = gijd(:,1) * gijd(:,2) * gijd(:,3)
126 tauM=fact/taum ! here we have (u_i g^{ij} u^j)^{-1} approx 4/u^2h^2
141 fact =
159 taubar= dtsfsq/( dt*dt + .01*unorm/fact) ! never gets above (C_1 20*u_inf/h)^2
168 1 * ( four*taubar + fact
178 fact=sqrt(tauM)
181 tauM=one/fact ! turn it right side up.
201 fact =
219 taubar= dtsfsq/( dt*dt + .01*unorm/fact) ! never gets above (C_1 20*u_inf/h)^2
228 1 * ( four*taubar + fact
238 fact=sqrt(tauM)
241 tauM=one/fact ! turn it right side up.
247 fact = gijd(:,1) * gijd(:,2) * gijd(:,3)
269 tauM=sqrt(tauM/fact)*two
279 fact =
289 fact=one/sqrt(fact)
294 tauM =min(dts,min(fact,fact*fact*unorm*pt33/rmu))
502 & tmp3(npro), fact(npro), local
565 fact = one/(gijd(:,1) * gijd(:,2) * gijd(:,3)
574 giju(:,1) = fact * (gijd(:,2)*gijd(:,3)
576 giju(:,2) = fact * (gijd(:,1)*gijd(:,3)
578 giju(:,3) = fact * (gijd(:,1)*gijd(:,2)
580 giju(:,4) = fact * (gijd(:,5)*gijd(:,6)
582 giju(:,5) = fact * (gijd(:,4)*gijd(:,6)
584 giju(:,6) = fact * (gijd(:,4)*gijd(:,5)