--- rpl/lapack/lapack/zheevx.f	2010/12/21 13:53:46	1.7
+++ rpl/lapack/lapack/zheevx.f	2011/07/22 07:38:15	1.8
@@ -2,10 +2,11 @@
      $                   ABSTOL, M, W, Z, LDZ, WORK, LWORK, RWORK,
      $                   IWORK, IFAIL, INFO )
 *
-*  -- LAPACK driver routine (version 3.2) --
+*  -- LAPACK driver routine (version 3.3.1) --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-*     November 2006
+*  -- April 2011                                                      --
+* @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
 *