Lines Matching refs:TAU
164 SUBROUTINE CLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) argument
176 COMPLEX T( LDT, * ), TAU( * ), V( LDV, * ) local
207 IF( TAU( I ).EQ.ZERO ) THEN
224 T( J, I ) = -TAU( I ) * CONJG( V( I , J ) )
231 $ -TAU( I ), V( I+1, 1 ), LDV,
240 T( J, I ) = -TAU( I ) * V( J , I )
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 ) )
291 $ -TAU( I ), V( J, I+1 ), LDV, V( J, I ),
299 T( J, I ) = -TAU( I ) * V( J, N-K+I )
305 CALL CGEMM( 'N', 'C', K-I, 1, N-K+I-J, -TAU( I ),
320 T( I, I ) = TAU( I )