rpl/lapack/lapack/dlarrd.f - diff

Return to dlarrd.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.18, 2017/06/17 11:06:25	version 1.19, 2018/05/29 06:55:19
Line 329	Line 329
$ M, W, WERR, WL, WU, IBLOCK, INDEXW,	$ M, W, WERR, WL, WU, IBLOCK, INDEXW,
$ WORK, IWORK, INFO )	$ WORK, IWORK, INFO )
*	*
* -- LAPACK auxiliary routine (version 3.7.0) --	* -- LAPACK auxiliary routine (version 3.7.1) --
* -- 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 385	Line 385
*	*
INFO = 0	INFO = 0
*	*
	* Quick return if possible
	*
	IF( N.LE.0 ) THEN
	RETURN
	END IF
	*
* Decode RANGE	* Decode RANGE
*	*
IF( LSAME( RANGE, 'A' ) ) THEN	IF( LSAME( RANGE, 'A' ) ) THEN