LAPACK  3.5.0
LAPACK: Linear Algebra PACKage
 All Files Functions Typedefs Macros
zstemr-n2.patch
Go to the documentation of this file.
1 Description: Fix bug in ZSTEMR for N=2 (upstream bug #117)
2 Origin: other, https://github.com/xianyi/OpenBLAS/commit/dc6b809f15fe297e40a73ec65833fa60ac954884
3 Bug: http://icl.utk.edu/lapack-forum/viewtopic.php?f=2&t=4331
4 Reviewed-by: Sébastien Villemot <sebastien@debian.org>
5 Last-Update: 2014-08-07
6 ---
7 This patch header follows DEP-3: http://dep.debian.net/deps/dep3/
8 --- a/src/zstemr.f
9 +++ b/src/zstemr.f
10 @@ -526,10 +526,10 @@
11  IF (SN.NE.ZERO) THEN
12  IF (CS.NE.ZERO) THEN
13  ISUPPZ(2*M-1) = 1
14 - ISUPPZ(2*M-1) = 2
15 + ISUPPZ(2*M) = 2
16  ELSE
17  ISUPPZ(2*M-1) = 1
18 - ISUPPZ(2*M-1) = 1
19 + ISUPPZ(2*M) = 1
20  END IF
21  ELSE
22  ISUPPZ(2*M-1) = 2
23 @@ -550,10 +550,10 @@
24  IF (SN.NE.ZERO) THEN
25  IF (CS.NE.ZERO) THEN
26  ISUPPZ(2*M-1) = 1
27 - ISUPPZ(2*M-1) = 2
28 + ISUPPZ(2*M) = 2
29  ELSE
30  ISUPPZ(2*M-1) = 1
31 - ISUPPZ(2*M-1) = 1
32 + ISUPPZ(2*M) = 1
33  END IF
34  ELSE
35  ISUPPZ(2*M-1) = 2