From 45a08305316d144c758f82040465137df03617dd Mon Sep 17 00:00:00 2001
From: lipshitz <lipshitz@8a072113-8704-0410-8d35-dd094bca7971>
Date: Tue, 20 Dec 2011 19:04:31 +0000
Subject: dqds, equivalent changes to single precision versions

---
 SRC/slasq3.f | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'SRC/slasq3.f')

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.
 *
-- 
cgit v1.2.3