Lines Matching refs:ALPHA
21 * SUBROUTINE ZLARFG( N, ALPHA, X, INCX, TAU )
25 * COMPLEX*16 ALPHA, TAU
40 *> H**H * ( alpha ) = ( beta ), H**H * H = I.
43 *> where alpha and beta are scalars, with beta real, and x is an
52 *> If the elements of x are all zero and alpha is real, then tau = 0
67 *> \param[in,out] ALPHA
69 *> ALPHA is COMPLEX*16
70 *> On entry, the value alpha.
107 SUBROUTINE ZLARFG( N, ALPHA, X, INCX, TAU )
116 COMPLEX*16 ALPHA, TAU
151 ALPHR = DBLE( ALPHA )
152 ALPHI = DIMAG( ALPHA )
184 ALPHA = DCMPLX( ALPHR, ALPHI )
188 ALPHA = ZLADIV( DCMPLX( ONE ), ALPHA-BETA )
189 CALL ZSCAL( N-1, ALPHA, X, INCX )
191 * If ALPHA is subnormal, it may lose relative accuracy
196 ALPHA = BETA
