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

Fix workspace query corner cases to always return at least 1

This commit is contained in:
Martin Kroeker 2023-07-15 09:07:36 +02:00 committed by GitHub
parent ab550d4c9f
commit 6c103ca926
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lapack-netlib/SRC/ctrevc3.f
View File

@ -321,9 +321,9 @@
* *
INFO = 0 INFO = 0
NB = ILAENV( 1, 'CTREVC', SIDE // HOWMNY, N, -1, -1, -1 ) NB = ILAENV( 1, 'CTREVC', SIDE // HOWMNY, N, -1, -1, -1 )
MAXWRK = N + 2*N*NB MAXWRK = MAX( 1, N + 2*N*NB )
WORK(1) = MAXWRK WORK(1) = MAXWRK
RWORK(1) = N RWORK(1) = MAX( 1, N )
LQUERY = ( LWORK.EQ.-1 .OR. LRWORK.EQ.-1 ) LQUERY = ( LWORK.EQ.-1 .OR. LRWORK.EQ.-1 )
IF( .NOT.RIGHTV .AND. .NOT.LEFTV ) THEN IF( .NOT.RIGHTV .AND. .NOT.LEFTV ) THEN
INFO = -1 INFO = -1