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

Fix workspace query for ?SYEVD and ?HEEVD (Reference-LAPACK PR691)

This commit is contained in:
Martin Kroeker 2022-11-20 13:25:21 +01:00 committed by GitHub
parent eea1636380
commit 60af35bfab
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
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

2
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

2
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

2
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