diff options
| author | lipshitz <lipshitz@8a072113-8704-0410-8d35-dd094bca7971> | 2011-12-20 19:04:31 +0000 |
|---|---|---|
| committer | lipshitz <lipshitz@8a072113-8704-0410-8d35-dd094bca7971> | 2011-12-20 19:04:31 +0000 |
| commit | 45a08305316d144c758f82040465137df03617dd (patch) | |
| tree | dcdcd0509af4dc2ab8821d84ee20483f1d1dd793 /SRC/slasq3.f | |
| parent | 52abf911e298228e970a4ea0b5905995e22f5da5 (diff) | |
| download | lapack-45a08305316d144c758f82040465137df03617dd.tar.gz lapack-45a08305316d144c758f82040465137df03617dd.tar.bz2 lapack-45a08305316d144c758f82040465137df03617dd.zip | |
dqds, equivalent changes to single precision versions
Diffstat (limited to 'SRC/slasq3.f')
| -rw-r--r-- | SRC/slasq3.f | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/SRC/slasq3.f b/SRC/slasq3.f index 458d798e..4b7d8257 100644 --- a/SRC/slasq3.f +++ b/SRC/slasq3.f @@ -331,15 +331,15 @@ * 70 CONTINUE * - CALL SLASQ5( I0, N0, Z, PP, TAU, DMIN, DMIN1, DMIN2, DN, - $ DN1, DN2, IEEE ) + CALL SLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, DN, + $ DN1, DN2, IEEE, EPS ) * NDIV = NDIV + ( N0-I0+2 ) ITER = ITER + 1 * * Check status. * - IF( DMIN.GE.ZERO .AND. DMIN1.GT.ZERO ) THEN + IF( DMIN.GE.ZERO .AND. DMIN1.GE.ZERO ) THEN * * Success. * |