rpl/lapack/lapack/dsbevx_2stage.f - diff

Return to dsbevx_2stage.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.2, 2017/06/17 11:06:32	version 1.3, 2018/05/29 06:55:20
Line 324	Line 324
*	*
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 359	Line 359
* ..	* ..
* .. External Functions ..	* .. External Functions ..
LOGICAL LSAME	LOGICAL LSAME
INTEGER ILAENV	INTEGER ILAENV2STAGE
DOUBLE PRECISION DLAMCH, DLANSB	DOUBLE PRECISION DLAMCH, DLANSB
EXTERNAL LSAME, DLAMCH, DLANSB, ILAENV	EXTERNAL LSAME, DLAMCH, DLANSB, ILAENV2STAGE
* ..	* ..
* .. External Subroutines ..	* .. External Subroutines ..
EXTERNAL DCOPY, DGEMV, DLACPY, DLASCL, DSCAL,	EXTERNAL DCOPY, DGEMV, DLACPY, DLASCL, DSCAL,
Line 419	Line 419
LWMIN = 1	LWMIN = 1
WORK( 1 ) = LWMIN	WORK( 1 ) = LWMIN
ELSE	ELSE
IB = ILAENV( 18, 'DSYTRD_SB2ST', JOBZ, N, KD, -1, -1 )	IB = ILAENV2STAGE( 2, 'DSYTRD_SB2ST', JOBZ,
LHTRD = ILAENV( 19, 'DSYTRD_SB2ST', JOBZ, N, KD, IB, -1 )	$ N, KD, -1, -1 )
LWTRD = ILAENV( 20, 'DSYTRD_SB2ST', JOBZ, N, KD, IB, -1 )	LHTRD = ILAENV2STAGE( 3, 'DSYTRD_SB2ST', JOBZ,
	$ N, KD, IB, -1 )
	LWTRD = ILAENV2STAGE( 4, 'DSYTRD_SB2ST', JOBZ,
	$ N, KD, IB, -1 )
LWMIN = 2*N + LHTRD + LWTRD	LWMIN = 2*N + LHTRD + LWTRD
WORK( 1 ) = LWMIN	WORK( 1 ) = LWMIN
ENDIF	ENDIF