![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dlaed8.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 dlaed8.f CVS log | Up to [local] / rpl / lapack / lapack |
| version 1.17, 2017/06/17 11:06:22 | version 1.19, 2020/05/21 21:45:58 |
|---|---|
| Line 353 | Line 353 |
| Z( I ) = W( INDX( I ) ) | Z( I ) = W( INDX( I ) ) |
| 40 CONTINUE | 40 CONTINUE |
| * | * |
| * Calculate the allowable deflation tolerence | * Calculate the allowable deflation tolerance |
| * | * |
| IMAX = IDAMAX( N, Z, 1 ) | IMAX = IDAMAX( N, Z, 1 ) |
| JMAX = IDAMAX( N, D, 1 ) | JMAX = IDAMAX( N, D, 1 ) |