From 5dfdfeba7f3a6779ba2833bd27e052f0589b5db9 Mon Sep 17 00:00:00 2001 From: julie Date: Wed, 12 Oct 2011 12:04:02 +0000 Subject: [PATCH] fix undeclared variables introduced in rev1017:fix to Ming Gu's bug --- SRC/dlasq2.f | 5 +++-- SRC/slasq2.f | 2 +- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/SRC/dlasq2.f b/SRC/dlasq2.f index 5c45cc4..fc41423 100644 --- a/SRC/dlasq2.f +++ b/SRC/dlasq2.f @@ -129,8 +129,9 @@ * .. * .. Local Scalars .. LOGICAL IEEE - INTEGER I0, I4, IINFO, IPN4, ITER, IWHILA, IWHILB, K, - $ KMIN, N0, NBIG, NDIV, NFAIL, PP, SPLT, TTYPE + INTEGER I0, I1, I4, IINFO, IPN4, ITER, IWHILA, IWHILB, + $ K, KMIN, N0, N1, NBIG, NDIV, NFAIL, PP, SPLT, + $ TTYPE DOUBLE PRECISION D, DEE, DEEMIN, DESIG, DMIN, DMIN1, DMIN2, DN, $ DN1, DN2, E, EMAX, EMIN, EPS, G, OLDEMN, QMAX, $ QMIN, S, SAFMIN, SIGMA, T, TAU, TEMP, TOL, diff --git a/SRC/slasq2.f b/SRC/slasq2.f index c3a7559..5e2e4b0 100644 --- a/SRC/slasq2.f +++ b/SRC/slasq2.f @@ -516,7 +516,7 @@ * IF( I1.GT.1 ) THEN N1 = I1-1 - DO WHILE( ( I1.GE.2 ) .AND. ( Z(4*I-5).GE.ZERO ) ) + DO WHILE( ( I1.GE.2 ) .AND. ( Z(4*I1-5).GE.ZERO ) ) I1 = I1 - 1 END DO IF( I1.GE.1 ) THEN -- 2.7.4