rpl/lapack/lapack/dlarrc.f - diff

Return to dlarrc.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.17, 2017/06/17 11:06:25	version 1.18, 2018/05/29 06:55:19
Line 137	Line 137
SUBROUTINE DLARRC( JOBT, N, VL, VU, D, E, PIVMIN,	SUBROUTINE DLARRC( JOBT, N, VL, VU, D, E, PIVMIN,
$ EIGCNT, LCNT, RCNT, INFO )	$ EIGCNT, LCNT, RCNT, 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 170	Line 170
* .. Executable Statements ..	* .. Executable Statements ..
*	*
INFO = 0	INFO = 0
	*
	* Quick return if possible
	*
	IF( N.LE.0 ) THEN
	RETURN
	END IF
	*
LCNT = 0	LCNT = 0
RCNT = 0	RCNT = 0
EIGCNT = 0	EIGCNT = 0