Lines Matching refs:stsVelSqr
21 & stsVelSqr(:,:), stsVelReg(:,:), variable
62 allocate ( stsVelSqr(nshg,6) )
69 stsVelSqr = 0.0
288 stsVelSqr(i,1) = stsVelSqr(i,1)
290 stsVelSqr(i,2) = stsVelSqr(i,2)
292 stsVelSqr(i,3) = stsVelSqr(i,3)
295 stsVelSqr(i,4) = stsVelSqr(i,4) + t3
296 stsVelSqr(i,5) = stsVelSqr(i,5) + t4
297 stsVelSqr(i,6) = stsVelSqr(i,6) + t5
346 stsVelSqr(i,1) = stsVelSqr(i,1) + u1*u1
347 stsVelSqr(i,2) = stsVelSqr(i,2) + u2*u2
348 stsVelSqr(i,3) = stsVelSqr(i,3) + u3*u3
349 stsVelSqr(i,4) = stsVelSqr(i,4) + u1*u2
350 stsVelSqr(i,5) = stsVelSqr(i,5) + u2*u3
351 stsVelSqr(i,6) = stsVelSqr(i,6) + u3*u1
420 outvec(:,7:12) = stsVelSqr(:,:)