rpl/lapack/lapack/dlasd4.f - diff

Return to dlasd4.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.6, 2010/08/13 21:03:52	version 1.7, 2010/12/21 13:48:05
Line 1	Line 1
SUBROUTINE DLASD4( N, I, D, Z, DELTA, RHO, SIGMA, WORK, INFO )	SUBROUTINE DLASD4( N, I, D, Z, DELTA, RHO, SIGMA, WORK, INFO )
*	*
* -- LAPACK auxiliary routine (version 3.2) --	* -- LAPACK auxiliary routine (version 3.3.0) --
* -- 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..--
* November 2006	* November 2010
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
INTEGER I, INFO, N	INTEGER I, INFO, N
Line 95	Line 95
*	*
* .. Parameters ..	* .. Parameters ..
INTEGER MAXIT	INTEGER MAXIT
PARAMETER ( MAXIT = 20 )	PARAMETER ( MAXIT = 200 )
DOUBLE PRECISION ZERO, ONE, TWO, THREE, FOUR, EIGHT, TEN	DOUBLE PRECISION ZERO, ONE, TWO, THREE, FOUR, EIGHT, TEN
PARAMETER ( ZERO = 0.0D+0, ONE = 1.0D+0, TWO = 2.0D+0,	PARAMETER ( ZERO = 0.0D+0, ONE = 1.0D+0, TWO = 2.0D+0,
$ THREE = 3.0D+0, FOUR = 4.0D+0, EIGHT = 8.0D+0,	$ THREE = 3.0D+0, FOUR = 4.0D+0, EIGHT = 8.0D+0,