--- rpl/lapack/lapack/dlarrr.f 2010/12/21 13:53:32 1.7 +++ rpl/lapack/lapack/dlarrr.f 2011/11/21 20:42:58 1.8 @@ -1,9 +1,103 @@ +*> \brief \b DLARRR +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download DLARRR + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE DLARRR( N, D, E, INFO ) +* +* .. Scalar Arguments .. +* INTEGER N, INFO +* .. +* .. Array Arguments .. +* DOUBLE PRECISION D( * ), E( * ) +* .. +* +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> Perform tests to decide whether the symmetric tridiagonal matrix T +*> warrants expensive computations which guarantee high relative accuracy +*> in the eigenvalues. +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> The order of the matrix. N > 0. +*> \endverbatim +*> +*> \param[in] D +*> \verbatim +*> D is DOUBLE PRECISION array, dimension (N) +*> The N diagonal elements of the tridiagonal matrix T. +*> \endverbatim +*> +*> \param[in,out] E +*> \verbatim +*> E is DOUBLE PRECISION array, dimension (N) +*> On entry, the first (N-1) entries contain the subdiagonal +*> elements of the tridiagonal matrix T; E(N) is set to ZERO. +*> \endverbatim +*> +*> \param[out] INFO +*> \verbatim +*> INFO is INTEGER +*> INFO = 0(default) : the matrix warrants computations preserving +*> relative accuracy. +*> INFO = 1 : the matrix warrants computations guaranteeing +*> only absolute accuracy. +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. +* +*> \date November 2011 +* +*> \ingroup auxOTHERauxiliary +* +*> \par Contributors: +* ================== +*> +*> Beresford Parlett, University of California, Berkeley, USA \n +*> Jim Demmel, University of California, Berkeley, USA \n +*> Inderjit Dhillon, University of Texas, Austin, USA \n +*> Osni Marques, LBNL/NERSC, USA \n +*> Christof Voemel, University of California, Berkeley, USA +* +* ===================================================================== SUBROUTINE DLARRR( N, D, E, INFO ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.4.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* November 2011 * * .. Scalar Arguments .. INTEGER N, INFO @@ -13,42 +107,6 @@ * .. * * -* Purpose -* ======= -* -* Perform tests to decide whether the symmetric tridiagonal matrix T -* warrants expensive computations which guarantee high relative accuracy -* in the eigenvalues. -* -* Arguments -* ========= -* -* N (input) INTEGER -* The order of the matrix. N > 0. -* -* D (input) DOUBLE PRECISION array, dimension (N) -* The N diagonal elements of the tridiagonal matrix T. -* -* E (input/output) DOUBLE PRECISION array, dimension (N) -* On entry, the first (N-1) entries contain the subdiagonal -* elements of the tridiagonal matrix T; E(N) is set to ZERO. -* -* INFO (output) INTEGER -* INFO = 0(default) : the matrix warrants computations preserving -* relative accuracy. -* INFO = 1 : the matrix warrants computations guaranteeing -* only absolute accuracy. -* -* Further Details -* =============== -* -* Based on contributions by -* Beresford Parlett, University of California, Berkeley, USA -* Jim Demmel, University of California, Berkeley, USA -* Inderjit Dhillon, University of Texas, Austin, USA -* Osni Marques, LBNL/NERSC, USA -* Christof Voemel, University of California, Berkeley, USA -* * ===================================================================== * * .. Parameters ..