rpl/lapack/lapack/dstevr.f - diff

Return to dstevr.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.12, 2014/01/27 09:28:27	version 1.13, 2015/11/26 11:44:20
Line 280	Line 280
*> \author Univ. of Colorado Denver	*> \author Univ. of Colorado Denver
*> \author NAG Ltd.	*> \author NAG Ltd.
*	*
*> \date November 2011	*> \date November 2015
*	*
*> \ingroup doubleOTHEReigen	*> \ingroup doubleOTHEReigen
*	*
Line 297	Line 297
$ M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK,	$ M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK,
$ LIWORK, INFO )	$ LIWORK, INFO )
*	*
* -- LAPACK driver routine (version 3.4.0) --	* -- LAPACK driver routine (version 3.6.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..--
* November 2011	* November 2015
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
CHARACTER JOBZ, RANGE	CHARACTER JOBZ, RANGE
Line 435	Line 435
* Scale matrix to allowable range, if necessary.	* Scale matrix to allowable range, if necessary.
*	*
ISCALE = 0	ISCALE = 0
VLL = VL	IF( VALEIG ) THEN
VUU = VU	VLL = VL
	VUU = VU
	END IF
*	*
TNRM = DLANST( 'M', N, D, E )	TNRM = DLANST( 'M', N, D, E )
IF( TNRM.GT.ZERO .AND. TNRM.LT.RMIN ) THEN	IF( TNRM.GT.ZERO .AND. TNRM.LT.RMIN ) THEN