Lines Matching full:tau
21 * SUBROUTINE ZLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT )
28 * COMPLEX*16 T( LDT, * ), TAU( * ), V( LDV, * )
104 *> \param[in] TAU
106 *> TAU is COMPLEX*16 array, dimension (K)
107 *> TAU(i) must contain the scalar factor of the elementary
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 ) )
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,
239 T( J, I ) = -TAU( I ) * V( J , I )
243 * T(1:i-1,i) := - tau(i) * V(1:i-1,i:j) * V(i,i:j)**H
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 ) )
287 * T(i+1:k,i) = -tau(i) * V(j:n-k+i,i+1:k)**H * V(j:n-k+i,i)
290 $ -TAU( I ), V( J, I+1 ), LDV, V( J, I ),
298 T( J, I ) = -TAU( I ) * V( J, N-K+I )
302 * T(i+1:k,i) = -tau(i) * V(i+1:k,j:n-k+i) * V(i,j:n-k+i)**H
304 CALL ZGEMM( 'N', 'C', K-I, 1, N-K+I-J, -TAU( I ),
319 T( I, I ) = TAU( I )