Lines Matching refs:TAU
164 SUBROUTINE DLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) argument
176 DOUBLE PRECISION T( LDT, * ), TAU( * ), V( LDV, * ) local
206 IF( TAU( I ).EQ.ZERO ) THEN
223 T( J, I ) = -TAU( I ) * V( I , J )
229 CALL DGEMV( 'Transpose', J-I, I-1, -TAU( I ),
238 T( J, I ) = -TAU( I ) * V( J , I )
244 CALL DGEMV( '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 )
288 CALL DGEMV( 'Transpose', N-K+I-J, K-I, -TAU( I ),
297 T( J, I ) = -TAU( I ) * V( J, N-K+I )
304 $ -TAU( I ), V( I+1, J ), LDV, V( I, J ), LDV,
318 T( I, I ) = TAU( I )