diff options
| -rw-r--r-- | SRC/dbdsdc.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/SRC/dbdsdc.f b/SRC/dbdsdc.f index af32bf34..1904a61a 100644 --- a/SRC/dbdsdc.f +++ b/SRC/dbdsdc.f @@ -287,7 +287,7 @@ CALL DLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, IERR ) CALL DLASCL( 'G', 0, 0, ORGNRM, ONE, NM1, 1, E, NM1, IERR ) * - EPS = DLAMCH( 'Epsilon' ) + EPS = (0.9D+0)*DLAMCH( 'Epsilon' ) * MLVL = INT( LOG( DBLE( N ) / DBLE( SMLSIZ+1 ) ) / LOG( TWO ) ) + 1 SMLSZP = SMLSIZ + 1 |