Lines Matching refs:TAU
21 * SUBROUTINE SLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT )
28 * REAL T( LDT, * ), TAU( * ), V( LDV, * )
104 *> \param[in] TAU
106 *> TAU is REAL array, dimension (K)
107 *> TAU(i) must contain the scalar factor of the elementary
164 SUBROUTINE SLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT )
176 REAL T( LDT, * ), TAU( * ), V( LDV, * )
206 IF( TAU( I ).EQ.ZERO ) THEN
223 T( J, I ) = -TAU( I ) * V( I , J )
227 * T(1:i-1,i) := - tau(i) * V(i:j,1:i-1)**T * V(i:j,i)
229 CALL SGEMV( 'Transpose', J-I, I-1, -TAU( I ),
238 T( J, I ) = -TAU( I ) * V( J , I )
242 * T(1:i-1,i) := - tau(i) * V(1:i-1,i:j) * V(i,i:j)**T
244 CALL SGEMV( 'No transpose', I-1, J-I, -TAU( I ),
253 T( I, I ) = TAU( I )
264 IF( TAU( I ).EQ.ZERO ) THEN
282 T( J, I ) = -TAU( I ) * V( N-K+I , J )
286 * T(i+1:k,i) = -tau(i) * V(j:n-k+i,i+1:k)**T * V(j:n-k+i,i)
288 CALL SGEMV( 'Transpose', N-K+I-J, K-I, -TAU( I ),
297 T( J, I ) = -TAU( I ) * V( J, N-K+I )
301 * T(i+1:k,i) = -tau(i) * V(i+1:k,j:n-k+i) * V(i,j:n-k+i)**T
304 $ -TAU( I ), V( I+1, J ), LDV, V( I, J ), LDV,
318 T( I, I ) = TAU( I )
