rpl/lapack/lapack/zheevx_2stage.f - diff

Return to zheevx_2stage.f CVS log

Up to [local] / rpl / lapack / lapack

Diff for /rpl/lapack/lapack/zheevx_2stage.f between versions 1.2 and 1.3

version 1.2, 2017/06/17 11:06:47	version 1.3, 2018/05/29 06:55:23
Line 308	Line 308
*	*
IMPLICIT NONE	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, --	* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--	* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
* June 2016	* June 2016
Line 345	Line 345
* ..	* ..
* .. External Functions ..	* .. External Functions ..
LOGICAL LSAME	LOGICAL LSAME
INTEGER ILAENV	INTEGER ILAENV2STAGE
DOUBLE PRECISION DLAMCH, ZLANHE	DOUBLE PRECISION DLAMCH, ZLANHE
EXTERNAL LSAME, ILAENV, DLAMCH, ZLANHE	EXTERNAL LSAME, DLAMCH, ZLANHE, ILAENV2STAGE
* ..	* ..
* .. External Subroutines ..	* .. External Subroutines ..
EXTERNAL DCOPY, DSCAL, DSTEBZ, DSTERF, XERBLA, ZDSCAL,	EXTERNAL DCOPY, DSCAL, DSTEBZ, DSTERF, XERBLA, ZDSCAL,
Line 402	Line 402
LWMIN = 1	LWMIN = 1
WORK( 1 ) = LWMIN	WORK( 1 ) = LWMIN
ELSE	ELSE
KD = ILAENV( 17, 'ZHETRD_2STAGE', JOBZ, N, -1, -1, -1 )	KD = ILAENV2STAGE( 1, 'ZHETRD_2STAGE', JOBZ,
IB = ILAENV( 18, 'ZHETRD_2STAGE', JOBZ, N, KD, -1, -1 )	$ N, -1, -1, -1 )
LHTRD = ILAENV( 19, 'ZHETRD_2STAGE', JOBZ, N, KD, IB, -1 )	IB = ILAENV2STAGE( 2, 'ZHETRD_2STAGE', JOBZ,
LWTRD = ILAENV( 20, 'ZHETRD_2STAGE', JOBZ, N, KD, IB, -1 )	$ N, KD, -1, -1 )
	LHTRD = ILAENV2STAGE( 3, 'ZHETRD_2STAGE', JOBZ,
	$ N, KD, IB, -1 )
	LWTRD = ILAENV2STAGE( 4, 'ZHETRD_2STAGE', JOBZ,
	$ N, KD, IB, -1 )
LWMIN = N + LHTRD + LWTRD	LWMIN = N + LHTRD + LWTRD
WORK( 1 ) = LWMIN	WORK( 1 ) = LWMIN
END IF	END IF

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.2
changed lines
	Added in v.1.3