From dc6b809f15fe297e40a73ec65833fa60ac954884 Mon Sep 17 00:00:00 2001 From: wernsaar Date: Tue, 8 Jul 2014 10:08:34 +0200 Subject: [PATCH] Lapack bug117: replaced zstemr.f --- lapack-netlib/SRC/zstemr.f | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lapack-netlib/SRC/zstemr.f b/lapack-netlib/SRC/zstemr.f index 770706e58..33f0038bf 100644 --- a/lapack-netlib/SRC/zstemr.f +++ b/lapack-netlib/SRC/zstemr.f @@ -526,10 +526,10 @@ IF (SN.NE.ZERO) THEN IF (CS.NE.ZERO) THEN ISUPPZ(2*M-1) = 1 - ISUPPZ(2*M-1) = 2 + ISUPPZ(2*M) = 2 ELSE ISUPPZ(2*M-1) = 1 - ISUPPZ(2*M-1) = 1 + ISUPPZ(2*M) = 1 END IF ELSE ISUPPZ(2*M-1) = 2 @@ -550,10 +550,10 @@ IF (SN.NE.ZERO) THEN IF (CS.NE.ZERO) THEN ISUPPZ(2*M-1) = 1 - ISUPPZ(2*M-1) = 2 + ISUPPZ(2*M) = 2 ELSE ISUPPZ(2*M-1) = 1 - ISUPPZ(2*M-1) = 1 + ISUPPZ(2*M) = 1 END IF ELSE ISUPPZ(2*M-1) = 2