Lines Matching refs:t
268 dimension offd(npro), t(npro),
291 t = pt5 * (rlam(:,1) - rlam(:,5)) / offd
292 t = sign(one, t) / ( abs(t) + sqrt(one + t**2) )
296 Rcs = one / sqrt( one + t**2 )
297 Rsn = t * Rcs
299 rlam(:,1) = rlam(:,1) - t * offd
300 rlam(:,5) = rlam(:,5) + t * offd
304 t = Rcs * Q(:,1,1) - Rsn * Q(:,1,5)
306 Q(:,1,1) = t
308 t = Rcs * Q(:,2,1) - Rsn * Q(:,2,5)
310 Q(:,2,1) = t
312 t = Rcs * Q(:,3,1) - Rsn * Q(:,3,5)
314 Q(:,3,1) = t
316 t = Rcs * Q(:,4,1) - Rsn * Q(:,4,5)
318 Q(:,4,1) = t
320 t = Rcs * Q(:,5,1) - Rsn * Q(:,5,5)
322 Q(:,5,1) = t