--- rpl/lapack/lapack/dlarrf.f 2011/11/21 22:19:34 1.10 +++ rpl/lapack/lapack/dlarrf.f 2012/12/14 12:30:24 1.13 @@ -1,4 +1,4 @@ -*> \brief \b DLARRF +*> \brief \b DLARRF finds a new relatively robust representation such that at least one of the eigenvalues is relatively isolated. * * =========== DOCUMENTATION =========== * @@ -174,7 +174,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date September 2012 * *> \ingroup auxOTHERauxiliary * @@ -193,10 +193,10 @@ $ SPDIAM, CLGAPL, CLGAPR, PIVMIN, SIGMA, $ DPLUS, LPLUS, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* September 2012 * * .. Scalar Arguments .. INTEGER CLSTRT, CLEND, INFO, N @@ -210,10 +210,9 @@ * ===================================================================== * * .. Parameters .. - DOUBLE PRECISION FOUR, MAXGROWTH1, MAXGROWTH2, ONE, QUART, TWO, - $ ZERO - PARAMETER ( ZERO = 0.0D0, ONE = 1.0D0, TWO = 2.0D0, - $ FOUR = 4.0D0, QUART = 0.25D0, + DOUBLE PRECISION FOUR, MAXGROWTH1, MAXGROWTH2, ONE, QUART, TWO + PARAMETER ( ONE = 1.0D0, TWO = 2.0D0, FOUR = 4.0D0, + $ QUART = 0.25D0, $ MAXGROWTH1 = 8.D0, $ MAXGROWTH2 = 8.D0 ) * ..