Searched refs:SAFMIN (Results 1 - 4 of 4) sorted by relevance

/external/eigen/lapack/
H A Dclarfg.f130 REAL ALPHI, ALPHR, BETA, RSAFMN, SAFMIN, XNORM local in subroutine:CLARFG
164 SAFMIN = SLAMCH( 'S' ) / SLAMCH( 'E' )
165 RSAFMN = ONE / SAFMIN
168 IF( ABS( BETA ).LT.SAFMIN ) THEN
178 IF( ABS( BETA ).LT.SAFMIN )
181 * New BETA is at most 1, at least SAFMIN
194 BETA = BETA*SAFMIN
H A Ddlarfg.f130 DOUBLE PRECISION BETA, RSAFMN, SAFMIN, XNORM local in subroutine:DLARFG
161 SAFMIN = DLAMCH( 'S' ) / DLAMCH( 'E' )
163 IF( ABS( BETA ).LT.SAFMIN ) THEN
167 RSAFMN = ONE / SAFMIN
173 IF( ABS( BETA ).LT.SAFMIN )
176 * New BETA is at most 1, at least SAFMIN
187 BETA = BETA*SAFMIN
H A Dslarfg.f130 REAL BETA, RSAFMN, SAFMIN, XNORM local in subroutine:SLARFG
161 SAFMIN = SLAMCH( 'S' ) / SLAMCH( 'E' )
163 IF( ABS( BETA ).LT.SAFMIN ) THEN
167 RSAFMN = ONE / SAFMIN
173 IF( ABS( BETA ).LT.SAFMIN )
176 * New BETA is at most 1, at least SAFMIN
187 BETA = BETA*SAFMIN
H A Dzlarfg.f130 DOUBLE PRECISION ALPHI, ALPHR, BETA, RSAFMN, SAFMIN, XNORM local in subroutine:ZLARFG
164 SAFMIN = DLAMCH( 'S' ) / DLAMCH( 'E' )
165 RSAFMN = ONE / SAFMIN
168 IF( ABS( BETA ).LT.SAFMIN ) THEN
178 IF( ABS( BETA ).LT.SAFMIN )
181 * New BETA is at most 1, at least SAFMIN
194 BETA = BETA*SAFMIN

Completed in 76 milliseconds