Description: Fix bug in ZSTEMR for N=2 (upstream bug #117)
Origin: other, https://github.com/xianyi/OpenBLAS/commit/dc6b809f15fe297e40a73ec65833fa60ac954884
Bug: http://icl.utk.edu/lapack-forum/viewtopic.php?f=2&t=4331
Reviewed-by: Sébastien Villemot <sebastien@debian.org>
Last-Update: 2014-08-07
---
This patch header follows DEP-3: http://dep.debian.net/deps/dep3/
--- 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