rpl/lapack/lapack/dlasq5.f - diff

Return to dlasq5.f CVS log

Up to [local] / rpl / lapack / lapack

Diff for /rpl/lapack/lapack/dlasq5.f between versions 1.7 and 1.8

-version 1.7, 2010/12/21 13:53:33
+version 1.8, 2011/11/21 20:42:59
  Line 1
-       SUBROUTINE DLASQ5( I0, N0, Z, PP, TAU, DMIN, DMIN1, DMIN2, DN,
+ *> \brief \b DLASQ5
-      $                   DNM1, DNM2, IEEE )
+ *
+ *  =========== DOCUMENTATION ===========
+ *
+ * Online html documentation available at
+ *            http://www.netlib.org/lapack/explore-html/
+ *
+ *> \htmlonly
+ *> Download DLASQ5 + dependencies
+ *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dlasq5.f">
+ *> [TGZ]</a>
+ *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dlasq5.f">
+ *> [ZIP]</a>
+ *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dlasq5.f">
+ *> [TXT]</a>
+ *> \endhtmlonly
+ *
+ *  Definition:
+ *  ===========
+ *
+ *       SUBROUTINE DLASQ5( I0, N0, Z, PP, TAU, DMIN, DMIN1, DMIN2, DN,
+ *                          DNM1, DNM2, IEEE )
+ *
+ *       .. Scalar Arguments ..
+ *       LOGICAL            IEEE
+ *       INTEGER            I0, N0, PP
+ *       DOUBLE PRECISION   DMIN, DMIN1, DMIN2, DN, DNM1, DNM2, TAU
+ *       ..
+ *       .. Array Arguments ..
+ *       DOUBLE PRECISION   Z( * )
+ *       ..
+ *
+ *
+ *> \par Purpose:
+ *  =============
+ *>
+ *> \verbatim
+ *>
+ *> DLASQ5 computes one dqds transform in ping-pong form, one
+ *> version for IEEE machines another for non IEEE machines.
+ *> \endverbatim
+ *
+ *  Arguments:
+ *  ==========
+ *
+ *> \param[in] I0
+ *> \verbatim
+ *>          I0 is INTEGER
+ *>        First index.
+ *> \endverbatim
+ *>
+ *> \param[in] N0
+ *> \verbatim
+ *>          N0 is INTEGER
+ *>        Last index.
+ *> \endverbatim
+ *>
+ *> \param[in] Z
+ *> \verbatim
+ *>          Z is DOUBLE PRECISION array, dimension ( 4*N )
+ *>        Z holds the qd array. EMIN is stored in Z(4*N0) to avoid
+ *>        an extra argument.
+ *> \endverbatim
+ *>
+ *> \param[in] PP
+ *> \verbatim
+ *>          PP is INTEGER
+ *>        PP=0 for ping, PP=1 for pong.
+ *> \endverbatim
+ *>
+ *> \param[in] TAU
+ *> \verbatim
+ *>          TAU is DOUBLE PRECISION
+ *>        This is the shift.
+ *> \endverbatim
+ *>
+ *> \param[out] DMIN
+ *> \verbatim
+ *>          DMIN is DOUBLE PRECISION
+ *>        Minimum value of d.
+ *> \endverbatim
+ *>
+ *> \param[out] DMIN1
+ *> \verbatim
+ *>          DMIN1 is DOUBLE PRECISION
+ *>        Minimum value of d, excluding D( N0 ).
+ *> \endverbatim
+ *>
+ *> \param[out] DMIN2
+ *> \verbatim
+ *>          DMIN2 is DOUBLE PRECISION
+ *>        Minimum value of d, excluding D( N0 ) and D( N0-1 ).
+ *> \endverbatim
+ *>
+ *> \param[out] DN
+ *> \verbatim
+ *>          DN is DOUBLE PRECISION
+ *>        d(N0), the last value of d.
+ *> \endverbatim
+ *>
+ *> \param[out] DNM1
+ *> \verbatim
+ *>          DNM1 is DOUBLE PRECISION
+ *>        d(N0-1).
+ *> \endverbatim
+ *>
+ *> \param[out] DNM2
+ *> \verbatim
+ *>          DNM2 is DOUBLE PRECISION
+ *>        d(N0-2).
+ *> \endverbatim
+ *>
+ *> \param[in] IEEE
+ *> \verbatim
+ *>          IEEE is LOGICAL
+ *>        Flag for IEEE or non IEEE arithmetic.
+ *> \endverbatim
+ *
+ *  Authors:
+ *  ========
+ *
+ *> \author Univ. of Tennessee
+ *> \author Univ. of California Berkeley
+ *> \author Univ. of Colorado Denver
+ *> \author NAG Ltd.
+ *
+ *> \date November 2011
  *
- *  -- LAPACK routine (version 3.2)                                    --
+ *> \ingroup auxOTHERcomputational
  *
- *  -- Contributed by Osni Marques of the Lawrence Berkeley National   --
+ *  =====================================================================
- *  -- Laboratory and Beresford Parlett of the Univ. of California at  --
+       SUBROUTINE DLASQ5( I0, N0, Z, PP, TAU, DMIN, DMIN1, DMIN2, DN,
- *  -- Berkeley                                                        --
+      $                   DNM1, DNM2, IEEE )
- *  -- November 2008                                                   --
  *
+ *  -- LAPACK computational 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 2011
  *
  *     .. Scalar Arguments ..
        LOGICAL            IEEE
- Line 20
+ Line 146
        DOUBLE PRECISION   Z( * )
  *     ..
  *
- *  Purpose
- *  =======
- *
- *  DLASQ5 computes one dqds transform in ping-pong form, one
- *  version for IEEE machines another for non IEEE machines.
- *
- *  Arguments
- *  =========
- *
- *  I0    (input) INTEGER
- *        First index.
- *
- *  N0    (input) INTEGER
- *        Last index.
- *
- *  Z     (input) DOUBLE PRECISION array, dimension ( 4*N )
- *        Z holds the qd array. EMIN is stored in Z(4*N0) to avoid
- *        an extra argument.
- *
- *  PP    (input) INTEGER
- *        PP=0 for ping, PP=1 for pong.
- *
- *  TAU   (input) DOUBLE PRECISION
- *        This is the shift.
- *
- *  DMIN  (output) DOUBLE PRECISION
- *        Minimum value of d.
- *
- *  DMIN1 (output) DOUBLE PRECISION
- *        Minimum value of d, excluding D( N0 ).
- *
- *  DMIN2 (output) DOUBLE PRECISION
- *        Minimum value of d, excluding D( N0 ) and D( N0-1 ).
- *
- *  DN    (output) DOUBLE PRECISION
- *        d(N0), the last value of d.
- *
- *  DNM1  (output) DOUBLE PRECISION
- *        d(N0-1).
- *
- *  DNM2  (output) DOUBLE PRECISION
- *        d(N0-2).
- *
- *  IEEE  (input) LOGICAL
- *        Flag for IEEE or non IEEE arithmetic.
- *
  *  =====================================================================
  *
  *     .. Parameter ..

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.7
changed lines
	Added in v.1.8