Lines Matching refs:u1
1 subroutine e3stab (rho, u1, u2, argument
30 dimension rho(npro), u1(npro),
78 3 + ( u1 * ( gijd(:,1) * u1
81 6 + u2 * ( gijd(:,4) * u1
84 9 + u3 * ( gijd(:,6) * u1
120 1 u1 * ( (gijd(:,2)*gijd(:,3)-gijd(:,5)*gijd(:,5)) * u1
142 3 u1 * ( gijd(:,1) * u1
145 6 + u2 * ( gijd(:,4) * u1
148 9 + u3 * ( gijd(:,6) * u1
156 unorm = (u1*u1+u2*u2+u3*u3)/velsq
184 unorm = (u1*u1+u2*u2+u3*u3)
202 3 u1 * ( gijd(:,1) * u1
205 6 + u2 * ( gijd(:,4) * u1
208 9 + u3 * ( gijd(:,6) * u1
260 1 u1 * ( (gijd(:,2)*gijd(:,3)-gijd(:,5)*gijd(:,5)) * u1
280 3 u1 * ( gijd(:,1) * u1
283 6 + u2 * ( gijd(:,4) * u1
286 9 + u3 * ( gijd(:,6) * u1
291 unorm = (u1*u1+u2*u2+u3*u3)
315 uBar(:,1) = u1 - tauM * rLui(:,1)*rhoinv