Lines Matching refs:fact
50 & fact(npro), h2o2u(npro), giju(npro,6),
61 fact = gijd(:,1) * gijd(:,3) * gijd(:,6)
78 uh1= two * sqrt(uh1/fact)
101 fact=pt5*rho*uh1/rmu
106 tau(:,1)=pt5*uh1*min(one,fact)*taucfct
135 fact=h2o2u*h2o2u*rk*celt/rmu
137 tau(:,2)=min(tau(:,2),fact)
138 tau(:,3)=min(tau(:,3),fact*rmu/con)*temper
168 fact=sqrt(tau(:,2))
169 tau(:,1)=pt125*fact/(rho*(gijd(:,1)+gijd(:,3)+gijd(:,6)))*taucfct
170 tau(:,2)=one/fact
335 & fact(npro), giju(npro,6),
797 & fact(npro), giju(npro,6),
1259 & fact(npro), h2o2u(npro),
1272 fact = gijd(:,1) * gijd(:,3) * gijd(:,6)
1290 uh1= two * sqrt(uh1/fact)