projects / platform / upstream / lapack.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 1039d78)
fix to bug report 4331
authorlawrence.mulholland <lawrence.mulholland@8a072113-8704-0410-8d35-dd094bca7971>
Fri, 29 Nov 2013 16:08:47 +0000 (16:08 +0000)
committerlawrence.mulholland <lawrence.mulholland@8a072113-8704-0410-8d35-dd094bca7971>
Fri, 29 Nov 2013 16:08:47 +0000 (16:08 +0000)
SRC/cstemr.f patch | blob | history
SRC/zstemr.f patch | blob | history

diff --git a/SRC/cstemr.f b/SRC/cstemr.f
index 0089343..a62b88d 100644 (file)
--- a/SRC/cstemr.f
+++ b/SRC/cstemr.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
diff --git a/SRC/zstemr.f b/SRC/zstemr.f
index 770706e..33f0038 100644 (file)
--- a/SRC/zstemr.f
+++ b/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
Domain: System / Base;