Lines Matching refs:u1
217 real*8 u1, u2, u3, r0, r1, r2, r3, r4, r5, t3, t4, t5 local
250 u1 = yAlpha(i,1)
257 r0 = res(1) + reg * u1
268 stsVelReg(i,1) = stsVelReg(i,1) + u1
272 r0 = res(1) * u1 + reg * u1 * u1
275 r3 = res(1) * u2 + res(2) * u1 + reg * u2 * u1
277 r5 = res(3) * u1 + res(1) * u3 + reg * u1 * u3
335 u1 = stsVec(i,1)
342 stsVel(i,1) = stsVel(i,1) + u1
346 stsVelSqr(i,1) = stsVelSqr(i,1) + u1*u1
349 stsVelSqr(i,4) = stsVelSqr(i,4) + u1*u2
351 stsVelSqr(i,6) = stsVelSqr(i,6) + u3*u1