Lines Matching refs:alpha
21 * SUBROUTINE CLARFG( N, ALPHA, X, INCX, TAU )
25 * COMPLEX 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
70 *> On entry, the value alpha.
107 SUBROUTINE CLARFG( N, ALPHA, X, INCX, TAU )
116 COMPLEX ALPHA, TAU
151 ALPHR = REAL( ALPHA )
152 ALPHI = AIMAG( ALPHA )
184 ALPHA = CMPLX( ALPHR, ALPHI )
188 ALPHA = CLADIV( CMPLX( ONE ), ALPHA-BETA )
189 CALL CSCAL( N-1, ALPHA, X, INCX )
191 * If ALPHA is subnormal, it may lose relative accuracy
196 ALPHA = BETA
