![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dlasd7.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [local] / rpl / lapack / lapack|
Return to dlasd7.f CVS log | Up to [local] / rpl / lapack / lapack |
| version 1.17, 2018/05/29 07:18:00 | 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 ) ) |