diff options
| author | julie <julielangou@users.noreply.github.com> | 2011-03-03 21:02:22 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2011-03-03 21:02:22 +0000 |
| commit | c555ef8f8348620e259e07c0382e965f07ae45d8 (patch) | |
| tree | 7344afa77e59394b42a8e68047b8f8d5fae72895 /SRC/zheevx.f | |
| parent | c72cd03194c16c5c877e7d756fdabc54472d0fcb (diff) | |
| download | lapack-c555ef8f8348620e259e07c0382e965f07ae45d8.tar.gz lapack-c555ef8f8348620e259e07c0382e965f07ae45d8.tar.bz2 lapack-c555ef8f8348620e259e07c0382e965f07ae45d8.zip | |
Fix some workspace query problems found with the new interface
Diffstat (limited to 'SRC/zheevx.f')
| -rw-r--r-- | SRC/zheevx.f | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/SRC/zheevx.f b/SRC/zheevx.f index a200c31b..1b87c88d 100644 --- a/SRC/zheevx.f +++ b/SRC/zheevx.f @@ -6,6 +6,7 @@ * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * November 2006 +* @precisions normal z -> c * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO @@ -236,7 +237,7 @@ WORK( 1 ) = LWKOPT END IF * - IF( LWORK.LT.MAX( 1, 2*N ) .AND. .NOT.LQUERY ) + IF( LWORK.LT.LWKMIN .AND. .NOT.LQUERY ) $ INFO = -17 END IF * |