floraachy/OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Lapack bug117: replaced zstemr.f

Browse Source
This commit is contained in:
wernsaar
2014-07-08 10:08:34 +02:00
parent 0f08684649
commit dc6b809f15
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lapack-netlib/SRC/zstemr.f
View File

@@ -526,10 +526,10 @@
IF (SN.NE.ZERO) THEN IF (SN.NE.ZERO) THEN
IF (CS.NE.ZERO) THEN IF (CS.NE.ZERO) THEN
ISUPPZ(2*M-1) = 1 ISUPPZ(2*M-1) = 1
ISUPPZ(2*M-1) = 2 ISUPPZ(2*M) = 2
ELSE ELSE
ISUPPZ(2*M-1) = 1 ISUPPZ(2*M-1) = 1
ISUPPZ(2*M-1) = 1 ISUPPZ(2*M) = 1
END IF END IF
ELSE ELSE
ISUPPZ(2*M-1) = 2 ISUPPZ(2*M-1) = 2
@@ -550,10 +550,10 @@
IF (SN.NE.ZERO) THEN IF (SN.NE.ZERO) THEN
IF (CS.NE.ZERO) THEN IF (CS.NE.ZERO) THEN
ISUPPZ(2*M-1) = 1 ISUPPZ(2*M-1) = 1
ISUPPZ(2*M-1) = 2 ISUPPZ(2*M) = 2
ELSE ELSE
ISUPPZ(2*M-1) = 1 ISUPPZ(2*M-1) = 1
ISUPPZ(2*M-1) = 1 ISUPPZ(2*M) = 1
END IF END IF
ELSE ELSE
ISUPPZ(2*M-1) = 2 ISUPPZ(2*M-1) = 2