rpl/lapack/lapack/zlarrv.f - diff

Return to zlarrv.f CVS log

Up to [local] / rpl / lapack / lapack

Diff for /rpl/lapack/lapack/zlarrv.f between versions 1.19 and 1.24

version 1.19, 2017/06/17 10:54:22	version 1.24, 2023/08/07 08:39:31
Line 143	Line 143
*> RTOL2 is DOUBLE PRECISION	*> RTOL2 is DOUBLE PRECISION
*> Parameters for bisection.	*> Parameters for bisection.
*> An interval [LEFT,RIGHT] has converged if	*> An interval [LEFT,RIGHT] has converged if
> RIGHT-LEFT.LT.MAX( RTOL1GAP, RTOL2*MAX(\|LEFT\|,\|RIGHT\|) )	> RIGHT-LEFT < MAX( RTOL1GAP, RTOL2*MAX(\|LEFT\|,\|RIGHT\|) )
*> \endverbatim	*> \endverbatim
*>	*>
*> \param[in,out] W	*> \param[in,out] W
Line 266	Line 266
*> \author Univ. of Colorado Denver	*> \author Univ. of Colorado Denver
*> \author NAG Ltd.	*> \author NAG Ltd.
*	*
*> \date June 2016
*
*> \ingroup complex16OTHERauxiliary	*> \ingroup complex16OTHERauxiliary
*	*
*> \par Contributors:	*> \par Contributors:
Line 286	Line 284
$ IBLOCK, INDEXW, GERS, Z, LDZ, ISUPPZ,	$ IBLOCK, INDEXW, GERS, Z, LDZ, ISUPPZ,
$ WORK, IWORK, INFO )	$ WORK, IWORK, INFO )
*	*
* -- LAPACK auxiliary routine (version 3.7.0) --	* -- LAPACK auxiliary routine --
* -- 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
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
INTEGER DOL, DOU, INFO, LDZ, M, N	INTEGER DOL, DOU, INFO, LDZ, M, N
Line 348	Line 345
* ..	* ..

INFO = 0	INFO = 0
	*
	* Quick return if possible
	*
	IF( (N.LE.0).OR.(M.LE.0) ) THEN
	RETURN
	END IF
	*
* The first N entries of WORK are reserved for the eigenvalues	* The first N entries of WORK are reserved for the eigenvalues
INDLD = N+1	INDLD = N+1
INDLLD= 2*N+1	INDLLD= 2*N+1

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.19
changed lines
	Added in v.1.24