Lines Matching full:tau

21 *       SUBROUTINE CLARFG( N, ALPHA, X, INCX, TAU )
25 *       COMPLEX            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
91 *>          The value tau.
107       SUBROUTINE CLARFG( N, ALPHA, X, INCX, TAU )  argument
116       COMPLEX            ALPHA, TAU  local
146          TAU = ZERO
158          TAU = ZERO
187          TAU = CMPLX( ( BETA-ALPHR ) / BETA, -ALPHI / BETA )