Searched refs:ALPHR (Results 1 – 2 of 2) sorted by relevance
| /external/eigen/lapack/ |
| D | zlarfg.f | 130 DOUBLE PRECISION ALPHI, ALPHR, BETA, RSAFMN, SAFMIN, XNORM local
151 ALPHR = DBLE( ALPHA )
163 BETA = -SIGN( DLAPY3( ALPHR, ALPHI, XNORM ), ALPHR )
177 ALPHR = ALPHR*RSAFMN
184 ALPHA = DCMPLX( ALPHR, ALPHI )
185 BETA = -SIGN( DLAPY3( ALPHR, ALPHI, XNORM ), ALPHR )
187 TAU = DCMPLX( ( BETA-ALPHR ) / BETA, -ALPHI / BETA )
|
| D | clarfg.f | 130 REAL ALPHI, ALPHR, BETA, RSAFMN, SAFMIN, XNORM local
151 ALPHR = REAL( ALPHA )
163 BETA = -SIGN( SLAPY3( ALPHR, ALPHI, XNORM ), ALPHR )
177 ALPHR = ALPHR*RSAFMN
184 ALPHA = CMPLX( ALPHR, ALPHI )
185 BETA = -SIGN( SLAPY3( ALPHR, ALPHI, XNORM ), ALPHR )
187 TAU = CMPLX( ( BETA-ALPHR ) / BETA, -ALPHI / BETA )
|