Lines Matching refs:TAU
21 * SUBROUTINE ZLARFG( N, ALPHA, X, INCX, TAU )
25 * COMPLEX*16 ALPHA, TAU
46 *> H = I - tau * ( 1 ) * ( 1 v**H ) ,
49 *> where tau is a complex scalar and v is a complex (n-1)-element
52 *> If the elements of x are all zero and alpha is real, then tau = 0
55 *> Otherwise 1 <= real(tau) <= 2 and abs(tau-1) <= 1 .
88 *> \param[out] TAU
90 *> TAU is COMPLEX*16
91 *> The value tau.
107 SUBROUTINE ZLARFG( N, ALPHA, X, INCX, TAU )
116 COMPLEX*16 ALPHA, TAU
146 TAU = ZERO
158 TAU = ZERO
187 TAU = DCMPLX( ( BETA-ALPHR ) / BETA, -ALPHI / BETA )
