rpl/lapack/lapack/dlarfx.f - diff

Return to dlarfx.f CVS log

Up to [local] / rpl / lapack / lapack

Diff for /rpl/lapack/lapack/dlarfx.f between versions 1.8 and 1.9

-version 1.8, 2011/07/22 07:38:07
+version 1.9, 2011/11/21 20:42:57
  Line 1
+ *> \brief \b DLARFX
+ *
+ *  =========== DOCUMENTATION ===========
+ *
+ * Online html documentation available at
+ *            http://www.netlib.org/lapack/explore-html/
+ *
+ *> \htmlonly
+ *> Download DLARFX + dependencies
+ *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dlarfx.f">
+ *> [TGZ]</a>
+ *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dlarfx.f">
+ *> [ZIP]</a>
+ *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dlarfx.f">
+ *> [TXT]</a>
+ *> \endhtmlonly
+ *
+ *  Definition:
+ *  ===========
+ *
+ *       SUBROUTINE DLARFX( SIDE, M, N, V, TAU, C, LDC, WORK )
+ *
+ *       .. Scalar Arguments ..
+ *       CHARACTER          SIDE
+ *       INTEGER            LDC, M, N
+ *       DOUBLE PRECISION   TAU
+ *       ..
+ *       .. Array Arguments ..
+ *       DOUBLE PRECISION   C( LDC, * ), V( * ), WORK( * )
+ *       ..
+ *
+ *
+ *> \par Purpose:
+ *  =============
+ *>
+ *> \verbatim
+ *>
+ *> DLARFX applies a real elementary reflector H to a real m by n
+ *> matrix C, from either the left or the right. H is represented in the
+ *> form
+ *>
+ *>       H = I - tau * v * v**T
+ *>
+ *> where tau is a real scalar and v is a real vector.
+ *>
+ *> If tau = 0, then H is taken to be the unit matrix
+ *>
+ *> This version uses inline code if H has order < 11.
+ *> \endverbatim
+ *
+ *  Arguments:
+ *  ==========
+ *
+ *> \param[in] SIDE
+ *> \verbatim
+ *>          SIDE is CHARACTER*1
+ *>          = 'L': form  H * C
+ *>          = 'R': form  C * H
+ *> \endverbatim
+ *>
+ *> \param[in] M
+ *> \verbatim
+ *>          M is INTEGER
+ *>          The number of rows of the matrix C.
+ *> \endverbatim
+ *>
+ *> \param[in] N
+ *> \verbatim
+ *>          N is INTEGER
+ *>          The number of columns of the matrix C.
+ *> \endverbatim
+ *>
+ *> \param[in] V
+ *> \verbatim
+ *>          V is DOUBLE PRECISION array, dimension (M) if SIDE = 'L'
+ *>                                     or (N) if SIDE = 'R'
+ *>          The vector v in the representation of H.
+ *> \endverbatim
+ *>
+ *> \param[in] TAU
+ *> \verbatim
+ *>          TAU is DOUBLE PRECISION
+ *>          The value tau in the representation of H.
+ *> \endverbatim
+ *>
+ *> \param[in,out] C
+ *> \verbatim
+ *>          C is DOUBLE PRECISION array, dimension (LDC,N)
+ *>          On entry, the m by n matrix C.
+ *>          On exit, C is overwritten by the matrix H * C if SIDE = 'L',
+ *>          or C * H if SIDE = 'R'.
+ *> \endverbatim
+ *>
+ *> \param[in] LDC
+ *> \verbatim
+ *>          LDC is INTEGER
+ *>          The leading dimension of the array C. LDA >= (1,M).
+ *> \endverbatim
+ *>
+ *> \param[out] WORK
+ *> \verbatim
+ *>          WORK is DOUBLE PRECISION array, dimension
+ *>                      (N) if SIDE = 'L'
+ *>                      or (M) if SIDE = 'R'
+ *>          WORK is not referenced if H has order < 11.
+ *> \endverbatim
+ *
+ *  Authors:
+ *  ========
+ *
+ *> \author Univ. of Tennessee
+ *> \author Univ. of California Berkeley
+ *> \author Univ. of Colorado Denver
+ *> \author NAG Ltd.
+ *
+ *> \date November 2011
+ *
+ *> \ingroup doubleOTHERauxiliary
+ *
+ *  =====================================================================
        SUBROUTINE DLARFX( SIDE, M, N, V, TAU, C, LDC, WORK )
-       IMPLICIT NONE
  *
- *  -- LAPACK auxiliary routine (version 3.3.1) --
+ *  -- 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..--
- *  -- April 2011                                                      --
+ *     November 2011
  *
  *     .. Scalar Arguments ..
        CHARACTER          SIDE
- Line 15
+ Line 134
        DOUBLE PRECISION   C( LDC, * ), V( * ), WORK( * )
  *     ..
  *
- *  Purpose
- *  =======
- *
- *  DLARFX applies a real elementary reflector H to a real m by n
- *  matrix C, from either the left or the right. H is represented in the
- *  form
- *
- *        H = I - tau * v * v**T
- *
- *  where tau is a real scalar and v is a real vector.
- *
- *  If tau = 0, then H is taken to be the unit matrix
- *
- *  This version uses inline code if H has order < 11.
- *
- *  Arguments
- *  =========
- *
- *  SIDE    (input) CHARACTER*1
- *          = 'L': form  H * C
- *          = 'R': form  C * H
- *
- *  M       (input) INTEGER
- *          The number of rows of the matrix C.
- *
- *  N       (input) INTEGER
- *          The number of columns of the matrix C.
- *
- *  V       (input) DOUBLE PRECISION array, dimension (M) if SIDE = 'L'
- *                                     or (N) if SIDE = 'R'
- *          The vector v in the representation of H.
- *
- *  TAU     (input) DOUBLE PRECISION
- *          The value tau in the representation of H.
- *
- *  C       (input/output) DOUBLE PRECISION array, dimension (LDC,N)
- *          On entry, the m by n matrix C.
- *          On exit, C is overwritten by the matrix H * C if SIDE = 'L',
- *          or C * H if SIDE = 'R'.
- *
- *  LDC     (input) INTEGER
- *          The leading dimension of the array C. LDA >= (1,M).
- *
- *  WORK    (workspace) DOUBLE PRECISION array, dimension
- *                      (N) if SIDE = 'L'
- *                      or (M) if SIDE = 'R'
- *          WORK is not referenced if H has order < 11.
- *
  *  =====================================================================
  *
  *     .. Parameters ..

CVSweb interface <joel.bertrand@systella.fr>

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