Lines Matching refs:u2
1 subroutine e3stab (rho, u1, u2, argument
31 & u2(npro), u3(npro),
79 4 + gijd(:,4) * u2
81 6 + u2 * ( gijd(:,4) * u1
82 7 + gijd(:,2) * u2
85 a + gijd(:,5) * u2
121 2 + two * (gijd(:,5)*gijd(:,6)-gijd(:,4)*gijd(:,3)) * u2
123 1 + u2 * ( (gijd(:,1)*gijd(:,3)-gijd(:,6)*gijd(:,6)) * u2
143 4 + gijd(:,4) * u2
145 6 + u2 * ( gijd(:,4) * u1
146 7 + gijd(:,2) * u2
149 a + gijd(:,5) * u2
156 unorm = (u1*u1+u2*u2+u3*u3)/velsq
184 unorm = (u1*u1+u2*u2+u3*u3)
203 4 + gijd(:,4) * u2
205 6 + u2 * ( gijd(:,4) * u1
206 7 + gijd(:,2) * u2
209 a + gijd(:,5) * u2
261 2 + two * (gijd(:,5)*gijd(:,6)-gijd(:,4)*gijd(:,3)) * u2
263 1 + u2 * ( (gijd(:,1)*gijd(:,3)-gijd(:,6)*gijd(:,6)) * u2
281 4 + gijd(:,4) * u2
283 6 + u2 * ( gijd(:,4) * u1
284 7 + gijd(:,2) * u2
287 a + gijd(:,5) * u2
291 unorm = (u1*u1+u2*u2+u3*u3)
316 uBar(:,2) = u2 - tauM * rLui(:,2)*rhoinv