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

2022-11-20 13:25:21 +01:00
parent eea1636380
commit 60af35bfab
4 changed files with 4 additions and 4 deletions
--- a/lapack-netlib/SRC/zheevd.f
+++ b/lapack-netlib/SRC/zheevd.f
@@ -284,7 +284,7 @@
               LIWMIN = 1
            END IF
            LOPT = MAX( LWMIN, N +
-     $                  ILAENV( 1, 'ZHETRD', UPLO, N, -1, -1, -1 ) )
+     $                  N*ILAENV( 1, 'ZHETRD', UPLO, N, -1, -1, -1 ) )
            LROPT = LRWMIN
            LIOPT = LIWMIN
         END IF