Lines Matching defs:ALPHA
21 * SUBROUTINE SLARFG( N, ALPHA, X, INCX, TAU )
25 * REAL ALPHA, TAU
67 *> \param[in,out] ALPHA
69 *> ALPHA is REAL
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