Lines Matching refs:ALPHA
21 * SUBROUTINE SLARFG( N, ALPHA, X, INCX, TAU )
25 * REAL ALPHA, TAU
40 *> H * ( alpha ) = ( beta ), H**T * H = I.
43 *> where alpha and beta are scalars, and x is an (n-1)-element real
67 *> \param[in,out] ALPHA
69 *> ALPHA is REAL
70 *> On entry, the value alpha.
107 SUBROUTINE SLARFG( N, ALPHA, X, INCX, TAU )
116 REAL ALPHA, TAU
160 BETA = -SIGN( SLAPY2( ALPHA, XNORM ), ALPHA )
172 ALPHA = ALPHA*RSAFMN
179 BETA = -SIGN( SLAPY2( ALPHA, XNORM ), ALPHA )
181 TAU = ( BETA-ALPHA ) / BETA
182 CALL SSCAL( N-1, ONE / ( ALPHA-BETA ), X, INCX )
184 * If ALPHA is subnormal, it may lose relative accuracy
189 ALPHA = BETA
