--- rpl/lapack/lapack/dla_wwaddw.f 2010/12/21 13:53:28 1.4 +++ rpl/lapack/lapack/dla_wwaddw.f 2011/11/21 20:42:54 1.5 @@ -1,15 +1,91 @@ - SUBROUTINE DLA_WWADDW( N, X, Y, W ) +*> \brief \b DLA_WWADDW * -* -- LAPACK routine (version 3.2.2) -- -* -- Contributed by James Demmel, Deaglan Halligan, Yozo Hida and -- -* -- Jason Riedy of Univ. of California Berkeley. -- -* -- June 2010 -- +* =========== DOCUMENTATION =========== * -* -- LAPACK is a software package provided by Univ. of Tennessee, -- -* -- Univ. of California Berkeley and NAG Ltd. -- +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download DLA_WWADDW + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE DLA_WWADDW( N, X, Y, W ) +* +* .. Scalar Arguments .. +* INTEGER N +* .. +* .. Array Arguments .. +* DOUBLE PRECISION X( * ), Y( * ), W( * ) +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> DLA_WWADDW adds a vector W into a doubled-single vector (X, Y). +*> +*> This works for all extant IBM's hex and binary floating point +*> arithmetics, but not for decimal. +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> The length of vectors X, Y, and W. +*> \endverbatim +*> +*> \param[in,out] X +*> \verbatim +*> X is DOUBLE PRECISION array, dimension (N) +*> The first part of the doubled-single accumulation vector. +*> \endverbatim +*> +*> \param[in,out] Y +*> \verbatim +*> Y is DOUBLE PRECISION array, dimension (N) +*> The second part of the doubled-single accumulation vector. +*> \endverbatim +*> +*> \param[in] W +*> \verbatim +*> W is DOUBLE PRECISION array, dimension (N) +*> The vector to be added. +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. +* +*> \date November 2011 +* +*> \ingroup doubleOTHERcomputational +* +* ===================================================================== + SUBROUTINE DLA_WWADDW( N, X, Y, W ) +* +* -- 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 * - IMPLICIT NONE -* .. * .. Scalar Arguments .. INTEGER N * .. @@ -17,29 +93,6 @@ DOUBLE PRECISION X( * ), Y( * ), W( * ) * .. * -* Purpose -* ======= -* -* DLA_WWADDW adds a vector W into a doubled-single vector (X, Y). -* -* This works for all extant IBM's hex and binary floating point -* arithmetics, but not for decimal. -* -* Arguments -* ========= -* -* N (input) INTEGER -* The length of vectors X, Y, and W. -* -* X (input/output) DOUBLE PRECISION array, dimension (N) -* The first part of the doubled-single accumulation vector. -* -* Y (input/output) DOUBLE PRECISION array, dimension (N) -* The second part of the doubled-single accumulation vector. -* -* W (input) DOUBLE PRECISION array, dimension (N) -* The vector to be added. -* * ===================================================================== * * .. Local Scalars ..