rpl/lapack/lapack/dlarrf.f - diff

Return to dlarrf.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.20, 2017/06/17 11:06:25	version 1.21, 2018/05/29 06:55:19
Line 193	Line 193
$ SPDIAM, CLGAPL, CLGAPR, PIVMIN, SIGMA,	$ SPDIAM, CLGAPL, CLGAPR, PIVMIN, SIGMA,
$ DPLUS, LPLUS, WORK, INFO )	$ DPLUS, LPLUS, WORK, 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 239	Line 239
* .. Executable Statements ..	* .. Executable Statements ..
*	*
INFO = 0	INFO = 0
	*
	* Quick return if possible
	*
	IF( N.LE.0 ) THEN
	RETURN
	END IF
	*
FACT = DBLE(2**KTRYMAX)	FACT = DBLE(2**KTRYMAX)
EPS = DLAMCH( 'Precision' )	EPS = DLAMCH( 'Precision' )
SHIFT = 0	SHIFT = 0