rpl/lapack/lapack/dlasd7.f - diff

Return to dlasd7.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.17, 2018/05/29 07:18:00	version 1.19, 2023/08/07 08:38:59
Line 264	Line 264
*> \author Univ. of Colorado Denver	*> \author Univ. of Colorado Denver
*> \author NAG Ltd.	*> \author NAG Ltd.
*	*
*> \date December 2016
*
*> \ingroup OTHERauxiliary	*> \ingroup OTHERauxiliary
*	*
*> \par Contributors:	*> \par Contributors:
Line 280	Line 278
$ PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM,	$ PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM,
$ C, S, INFO )	$ C, S, 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..--
* December 2016
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
INTEGER GIVPTR, ICOMPQ, INFO, K, LDGCOL, LDGNUM, NL,	INTEGER GIVPTR, ICOMPQ, INFO, K, LDGCOL, LDGNUM, NL,
Line 400	Line 397
VL( I ) = VLW( IDXI )	VL( I ) = VLW( IDXI )
50 CONTINUE	50 CONTINUE
*	*
* Calculate the allowable deflation tolerence	* Calculate the allowable deflation tolerance
*	*
EPS = DLAMCH( 'Epsilon' )	EPS = DLAMCH( 'Epsilon' )
TOL = MAX( ABS( ALPHA ), ABS( BETA ) )	TOL = MAX( ABS( ALPHA ), ABS( BETA ) )