Return to dlasd7.f CVS log | Up to [local] / rpl / lapack / lapack |
version 1.16, 2017/06/17 11:06:26 | version 1.18, 2020/05/21 21:46:00 |
---|---|
Line 400 | Line 400 |
VL( I ) = VLW( IDXI ) | VL( I ) = VLW( IDXI ) |
50 CONTINUE | 50 CONTINUE |
* | * |
* Calculate the allowable deflation tolerence | * Calculate the allowable deflation tolerance |
* | * |
EPS = DLAMCH( 'Epsilon' ) | EPS = DLAMCH( 'Epsilon' ) |
TOL = MAX( ABS( ALPHA ), ABS( BETA ) ) | TOL = MAX( ABS( ALPHA ), ABS( BETA ) ) |