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