Lines Matching refs:BETA
40 *> H**H * ( alpha ) = ( beta ), H**H * H = I.
43 *> where alpha and beta are scalars, with beta real, and x is an
71 *> On exit, it is overwritten with the value beta.
130 REAL ALPHI, ALPHR, BETA, RSAFMN, SAFMIN, XNORM
163 BETA = -SIGN( SLAPY3( ALPHR, ALPHI, XNORM ), ALPHR )
168 IF( ABS( BETA ).LT.SAFMIN ) THEN
170 * XNORM, BETA may be inaccurate; scale X and recompute them
175 BETA = BETA*RSAFMN
178 IF( ABS( BETA ).LT.SAFMIN )
181 * New BETA is at most 1, at least SAFMIN
185 BETA = -SIGN( SLAPY3( ALPHR, ALPHI, XNORM ), ALPHR )
187 TAU = CMPLX( ( BETA-ALPHR ) / BETA, -ALPHI / BETA )
188 ALPHA = CLADIV( CMPLX( ONE ), ALPHA-BETA )
194 BETA = BETA*SAFMIN
196 ALPHA = BETA
