Lines Matching refs:TAU
21 * SUBROUTINE CLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT )
28 * COMPLEX T( LDT, * ), TAU( * ), V( LDV, * )
104 *> \param[in] TAU
106 *> TAU is COMPLEX array, dimension (K)
107 *> TAU(i) must contain the scalar factor of the elementary
164 SUBROUTINE CLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT )
176 COMPLEX T( LDT, * ), TAU( * ), V( LDV, * )
207 IF( TAU( I ).EQ.ZERO ) THEN
224 T( J, I ) = -TAU( I ) * CONJG( V( I , J ) )
228 * T(1:i-1,i) := - tau(i) * V(i:j,1:i-1)**H * V(i:j,i)
231 $ -TAU( I ), V( I+1, 1 ), LDV,
240 T( J, I ) = -TAU( I ) * V( J , I )
244 * T(1:i-1,i) := - tau(i) * V(1:i-1,i:j) * V(i,i:j)**H
246 CALL CGEMM( 'N', 'C', I-1, 1, J-I, -TAU( I ),
255 T( I, I ) = TAU( I )
266 IF( TAU( I ).EQ.ZERO ) THEN
284 T( J, I ) = -TAU( I ) * CONJG( V( N-K+I , J ) )
288 * T(i+1:k,i) = -tau(i) * V(j:n-k+i,i+1:k)**H * V(j:n-k+i,i)
291 $ -TAU( I ), V( J, I+1 ), LDV, V( J, I ),
299 T( J, I ) = -TAU( I ) * V( J, N-K+I )
303 * T(i+1:k,i) = -tau(i) * V(i+1:k,j:n-k+i) * V(i,j:n-k+i)**H
305 CALL CGEMM( 'N', 'C', K-I, 1, N-K+I-J, -TAU( I ),
320 T( I, I ) = TAU( I )
