Vladimir Chalupecky
6 years ago
4 changed files with 4 additions and 4 deletions
Unified View
Diff Options
-
+1 -1lapack-netlib/SRC/clantr.f
-
+1 -1lapack-netlib/SRC/dlantr.f
-
+1 -1lapack-netlib/SRC/slantr.f
-
+1 -1lapack-netlib/SRC/zlantr.f
+ 1
- 1
lapack-netlib/SRC/clantr.f
View File
| @@ -283,7 +283,7 @@ | |||||
| END IF | END IF | ||||
| ELSE | ELSE | ||||
| IF( LSAME( DIAG, 'U' ) ) THEN | IF( LSAME( DIAG, 'U' ) ) THEN | ||||
| DO 210 I = 1, N | |||||
| DO 210 I = 1, MIN( M, N ) | |||||
| WORK( I ) = ONE | WORK( I ) = ONE | ||||
| 210 CONTINUE | 210 CONTINUE | ||||
| DO 220 I = N + 1, M | DO 220 I = N + 1, M | ||||
+ 1
- 1
lapack-netlib/SRC/dlantr.f
View File
| @@ -281,7 +281,7 @@ | |||||
| END IF | END IF | ||||
| ELSE | ELSE | ||||
| IF( LSAME( DIAG, 'U' ) ) THEN | IF( LSAME( DIAG, 'U' ) ) THEN | ||||
| DO 210 I = 1, N | |||||
| DO 210 I = 1, MIN( M, N ) | |||||
| WORK( I ) = ONE | WORK( I ) = ONE | ||||
| 210 CONTINUE | 210 CONTINUE | ||||
| DO 220 I = N + 1, M | DO 220 I = N + 1, M | ||||
+ 1
- 1
lapack-netlib/SRC/slantr.f
View File
| @@ -281,7 +281,7 @@ | |||||
| END IF | END IF | ||||
| ELSE | ELSE | ||||
| IF( LSAME( DIAG, 'U' ) ) THEN | IF( LSAME( DIAG, 'U' ) ) THEN | ||||
| DO 210 I = 1, N | |||||
| DO 210 I = 1, MIN( M, N ) | |||||
| WORK( I ) = ONE | WORK( I ) = ONE | ||||
| 210 CONTINUE | 210 CONTINUE | ||||
| DO 220 I = N + 1, M | DO 220 I = N + 1, M | ||||
+ 1
- 1
lapack-netlib/SRC/zlantr.f
View File
| @@ -283,7 +283,7 @@ | |||||
| END IF | END IF | ||||
| ELSE | ELSE | ||||
| IF( LSAME( DIAG, 'U' ) ) THEN | IF( LSAME( DIAG, 'U' ) ) THEN | ||||
| DO 210 I = 1, N | |||||
| DO 210 I = 1, MIN( M, N ) | |||||
| WORK( I ) = ONE | WORK( I ) = ONE | ||||
| 210 CONTINUE | 210 CONTINUE | ||||
| DO 220 I = N + 1, M | DO 220 I = N + 1, M | ||||