Lines Matching refs:TAU
164 SUBROUTINE ZLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) argument
176 COMPLEX*16 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,
239 T( J, I ) = -TAU( I ) * V( J , I )
245 CALL ZGEMM( 'N', 'C', I-1, 1, J-I, -TAU( I ),
254 T( I, I ) = TAU( I )
265 IF( TAU( I ).EQ.ZERO ) THEN
283 T( J, I ) = -TAU( I ) * CONJG( V( N-K+I , J ) )
290 $ -TAU( I ), V( J, I+1 ), LDV, V( J, I ),
298 T( J, I ) = -TAU( I ) * V( J, N-K+I )
304 CALL ZGEMM( 'N', 'C', K-I, 1, N-K+I-J, -TAU( I ),
319 T( I, I ) = TAU( I )