Searched refs:ALPHI (Results 1 – 2 of 2) sorted by relevance
| /external/eigen/lapack/ |
| D | zlarfg.f | 130 DOUBLE PRECISION ALPHI, ALPHR, BETA, RSAFMN, SAFMIN, XNORM local
152 ALPHI = DIMAG( ALPHA )
154 IF( XNORM.EQ.ZERO .AND. ALPHI.EQ.ZERO ) THEN
163 BETA = -SIGN( DLAPY3( ALPHR, ALPHI, XNORM ), ALPHR )
176 ALPHI = ALPHI*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
152 ALPHI = AIMAG( ALPHA )
154 IF( XNORM.EQ.ZERO .AND. ALPHI.EQ.ZERO ) THEN
163 BETA = -SIGN( SLAPY3( ALPHR, ALPHI, XNORM ), ALPHR )
176 ALPHI = ALPHI*RSAFMN
184 ALPHA = CMPLX( ALPHR, ALPHI )
185 BETA = -SIGN( SLAPY3( ALPHR, ALPHI, XNORM ), ALPHR )
187 TAU = CMPLX( ( BETA-ALPHR ) / BETA, -ALPHI / BETA )
|