diff options
| author | lawrence.mulholland <lawrence.mulholland@8a072113-8704-0410-8d35-dd094bca7971> | 2013-11-29 16:08:47 +0000 |
|---|---|---|
| committer | lawrence.mulholland <lawrence.mulholland@8a072113-8704-0410-8d35-dd094bca7971> | 2013-11-29 16:08:47 +0000 |
| commit | 1e6ecf9157044867f61cb684520588354ddf6ff9 (patch) | |
| tree | 5a6c4b68af1fd17cca6cdee41ccec28e7a9ae6ad /SRC | |
| parent | 1039d785f63302baa4418a97655d933b6dc030ce (diff) | |
| download | lapack-1e6ecf9157044867f61cb684520588354ddf6ff9.tar.gz lapack-1e6ecf9157044867f61cb684520588354ddf6ff9.tar.bz2 lapack-1e6ecf9157044867f61cb684520588354ddf6ff9.zip | |
fix to bug report 4331
Diffstat (limited to 'SRC')
| -rw-r--r-- | SRC/cstemr.f | 8 | ||||
| -rw-r--r-- | SRC/zstemr.f | 8 |
2 files changed, 8 insertions, 8 deletions
diff --git a/SRC/cstemr.f b/SRC/cstemr.f index 0089343f..a62b88d7 100644 --- 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 770706e5..33f0038b 100644 --- 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 |