wernsaar
12 years ago
1 changed files with 4 additions and 4 deletions
Unified View
Diff Options
+ 4
- 4
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 | ||||