--- rpl/lapack/lapack/zhbevx_2stage.f 2017/06/17 11:06:46 1.2 +++ rpl/lapack/lapack/zhbevx_2stage.f 2018/05/29 06:55:23 1.3 @@ -329,7 +329,7 @@ * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine (version 3.8.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * June 2016 @@ -369,9 +369,9 @@ * .. * .. External Functions .. LOGICAL LSAME - INTEGER ILAENV + INTEGER ILAENV2STAGE DOUBLE PRECISION DLAMCH, ZLANHB - EXTERNAL LSAME, DLAMCH, ZLANHB, ILAENV + EXTERNAL LSAME, DLAMCH, ZLANHB, ILAENV2STAGE * .. * .. External Subroutines .. EXTERNAL DCOPY, DSCAL, DSTEBZ, DSTERF, XERBLA, ZCOPY, @@ -429,9 +429,12 @@ LWMIN = 1 WORK( 1 ) = LWMIN ELSE - IB = ILAENV( 18, 'ZHETRD_HB2ST', JOBZ, N, KD, -1, -1 ) - LHTRD = ILAENV( 19, 'ZHETRD_HB2ST', JOBZ, N, KD, IB, -1 ) - LWTRD = ILAENV( 20, 'ZHETRD_HB2ST', JOBZ, N, KD, IB, -1 ) + IB = ILAENV2STAGE( 2, 'ZHETRD_HB2ST', JOBZ, + $ N, KD, -1, -1 ) + LHTRD = ILAENV2STAGE( 3, 'ZHETRD_HB2ST', JOBZ, + $ N, KD, IB, -1 ) + LWTRD = ILAENV2STAGE( 4, 'ZHETRD_HB2ST', JOBZ, + $ N, KD, IB, -1 ) LWMIN = LHTRD + LWTRD WORK( 1 ) = LWMIN ENDIF