Martin Kroeker
GitHub
3 years ago
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 4 additions and 4 deletions
Unified View
Diff Options
-
+1 -1lapack-netlib/SRC/cheevd.f
-
+1 -1lapack-netlib/SRC/dsyevd.f
-
+1 -1lapack-netlib/SRC/ssyevd.f
-
+1 -1lapack-netlib/SRC/zheevd.f
+ 1
- 1
lapack-netlib/SRC/cheevd.f
View File
| @@ -284,7 +284,7 @@ | |||||
| LIWMIN = 1 | LIWMIN = 1 | ||||
| END IF | END IF | ||||
| LOPT = MAX( LWMIN, N + | LOPT = MAX( LWMIN, N + | ||||
| $ ILAENV( 1, 'CHETRD', UPLO, N, -1, -1, -1 ) ) | |||||
| $ N*ILAENV( 1, 'CHETRD', UPLO, N, -1, -1, -1 ) ) | |||||
| LROPT = LRWMIN | LROPT = LRWMIN | ||||
| LIOPT = LIWMIN | LIOPT = LIWMIN | ||||
| END IF | END IF | ||||
+ 1
- 1
lapack-netlib/SRC/dsyevd.f
View File
| @@ -257,7 +257,7 @@ | |||||
| LWMIN = 2*N + 1 | LWMIN = 2*N + 1 | ||||
| END IF | END IF | ||||
| LOPT = MAX( LWMIN, 2*N + | LOPT = MAX( LWMIN, 2*N + | ||||
| $ ILAENV( 1, 'DSYTRD', UPLO, N, -1, -1, -1 ) ) | |||||
| $ N*ILAENV( 1, 'DSYTRD', UPLO, N, -1, -1, -1 ) ) | |||||
| LIOPT = LIWMIN | LIOPT = LIWMIN | ||||
| END IF | END IF | ||||
| WORK( 1 ) = LOPT | WORK( 1 ) = LOPT | ||||
+ 1
- 1
lapack-netlib/SRC/ssyevd.f
View File
| @@ -255,7 +255,7 @@ | |||||
| LWMIN = 2*N + 1 | LWMIN = 2*N + 1 | ||||
| END IF | END IF | ||||
| LOPT = MAX( LWMIN, 2*N + | LOPT = MAX( LWMIN, 2*N + | ||||
| $ ILAENV( 1, 'SSYTRD', UPLO, N, -1, -1, -1 ) ) | |||||
| $ N*ILAENV( 1, 'SSYTRD', UPLO, N, -1, -1, -1 ) ) | |||||
| LIOPT = LIWMIN | LIOPT = LIWMIN | ||||
| END IF | END IF | ||||
| WORK( 1 ) = LOPT | WORK( 1 ) = LOPT | ||||
+ 1
- 1
lapack-netlib/SRC/zheevd.f
View File
| @@ -284,7 +284,7 @@ | |||||
| LIWMIN = 1 | LIWMIN = 1 | ||||
| END IF | END IF | ||||
| LOPT = MAX( LWMIN, N + | LOPT = MAX( LWMIN, N + | ||||
| $ ILAENV( 1, 'ZHETRD', UPLO, N, -1, -1, -1 ) ) | |||||
| $ N*ILAENV( 1, 'ZHETRD', UPLO, N, -1, -1, -1 ) ) | |||||
| LROPT = LRWMIN | LROPT = LRWMIN | ||||
| LIOPT = LIWMIN | LIOPT = LIWMIN | ||||
| END IF | END IF | ||||