rpl/lapack/blas/drotm.f - diff

Return to drotm.f CVS log

Up to [local] / rpl / lapack / blas

Diff for /rpl/lapack/blas/drotm.f between versions 1.8 and 1.17

-version 1.8, 2011/07/22 07:38:01
+version 1.17, 2023/08/07 08:38:43
  Line 1
-       SUBROUTINE DROTM(N,DX,INCX,DY,INCY,DPARAM)
+ *> \brief \b DROTM
- *     .. Scalar Arguments ..
-       INTEGER INCX,INCY,N
- *     ..
- *     .. Array Arguments ..
-       DOUBLE PRECISION DPARAM(5),DX(*),DY(*)
- *     ..
- *
- *  Purpose
- *  =======
- *
- *     APPLY THE MODIFIED GIVENS TRANSFORMATION, H, TO THE 2 BY N MATRIX
- *
- *     (DX**T) , WHERE **T INDICATES TRANSPOSE. THE ELEMENTS OF DX ARE IN
- *     (DY**T)
- *
- *     DX(LX+I*INCX), I = 0 TO N-1, WHERE LX = 1 IF INCX .GE. 0, ELSE
- *     LX = (-INCX)*N, AND SIMILARLY FOR SY USING LY AND INCY.
- *     WITH DPARAM(1)=DFLAG, H HAS ONE OF THE FOLLOWING FORMS..
- *
- *     DFLAG=-1.D0     DFLAG=0.D0        DFLAG=1.D0     DFLAG=-2.D0
  *
- *       (DH11  DH12)    (1.D0  DH12)    (DH11  1.D0)    (1.D0  0.D0)
+ *  =========== DOCUMENTATION ===========
- *     H=(          )    (          )    (          )    (          )
- *       (DH21  DH22),   (DH21  1.D0),   (-1.D0 DH22),   (0.D0  1.D0).
- *     SEE DROTMG FOR A DESCRIPTION OF DATA STORAGE IN DPARAM.
  *
- *  Arguments
+ * Online html documentation available at
- *  =========
+ *            http://www.netlib.org/lapack/explore-html/
  *
- *  N      (input) INTEGER
+ *  Definition:
- *         number of elements in input vector(s)
+ *  ===========
+ *
+ *       SUBROUTINE DROTM(N,DX,INCX,DY,INCY,DPARAM)
+ *
+ *       .. Scalar Arguments ..
+ *       INTEGER INCX,INCY,N
+ *       ..
+ *       .. Array Arguments ..
+ *       DOUBLE PRECISION DPARAM(5),DX(*),DY(*)
+ *       ..
+ *
+ *
+ *> \par Purpose:
+ *  =============
+ *>
+ *> \verbatim
+ *>
+ *>    APPLY THE MODIFIED GIVENS TRANSFORMATION, H, TO THE 2 BY N MATRIX
+ *>
+ *>    (DX**T) , WHERE **T INDICATES TRANSPOSE. THE ELEMENTS OF DX ARE IN
+ *>    (DY**T)
+ *>
+ *>    DX(LX+I*INCX), I = 0 TO N-1, WHERE LX = 1 IF INCX .GE. 0, ELSE
+ *>    LX = (-INCX)*N, AND SIMILARLY FOR SY USING LY AND INCY.
+ *>    WITH DPARAM(1)=DFLAG, H HAS ONE OF THE FOLLOWING FORMS..
+ *>
+ *>    DFLAG=-1.D0     DFLAG=0.D0        DFLAG=1.D0     DFLAG=-2.D0
+ *>
+ *>      (DH11  DH12)    (1.D0  DH12)    (DH11  1.D0)    (1.D0  0.D0)
+ *>    H=(          )    (          )    (          )    (          )
+ *>      (DH21  DH22),   (DH21  1.D0),   (-1.D0 DH22),   (0.D0  1.D0).
+ *>    SEE DROTMG FOR A DESCRIPTION OF DATA STORAGE IN DPARAM.
+ *> \endverbatim
+ *
+ *  Arguments:
+ *  ==========
+ *
+ *> \param[in] N
+ *> \verbatim
+ *>          N is INTEGER
+ *>         number of elements in input vector(s)
+ *> \endverbatim
+ *>
+ *> \param[in,out] DX
+ *> \verbatim
+ *>          DX is DOUBLE PRECISION array, dimension ( 1 + ( N - 1 )*abs( INCX ) )
+ *> \endverbatim
+ *>
+ *> \param[in] INCX
+ *> \verbatim
+ *>          INCX is INTEGER
+ *>         storage spacing between elements of DX
+ *> \endverbatim
+ *>
+ *> \param[in,out] DY
+ *> \verbatim
+ *>          DY is DOUBLE PRECISION array, dimension ( 1 + ( N - 1 )*abs( INCY ) )
+ *> \endverbatim
+ *>
+ *> \param[in] INCY
+ *> \verbatim
+ *>          INCY is INTEGER
+ *>         storage spacing between elements of DY
+ *> \endverbatim
+ *>
+ *> \param[in] DPARAM
+ *> \verbatim
+ *>          DPARAM is DOUBLE PRECISION array, dimension (5)
+ *>     DPARAM(1)=DFLAG
+ *>     DPARAM(2)=DH11
+ *>     DPARAM(3)=DH21
+ *>     DPARAM(4)=DH12
+ *>     DPARAM(5)=DH22
+ *> \endverbatim
+ *
+ *  Authors:
+ *  ========
+ *
+ *> \author Univ. of Tennessee
+ *> \author Univ. of California Berkeley
+ *> \author Univ. of Colorado Denver
+ *> \author NAG Ltd.
  *
- *  DX     (input/output) DOUBLE PRECISION array, dimension N
+ *> \ingroup double_blas_level1
- *         double precision vector with N elements
  *
- *  INCX   (input) INTEGER
+ *  =====================================================================
- *         storage spacing between elements of DX
+       SUBROUTINE DROTM(N,DX,INCX,DY,INCY,DPARAM)
- *
- *  DY     (input/output) DOUBLE PRECISION array, dimension N
- *         double precision vector with N elements
  *
- *  INCY   (input) INTEGER
+ *  -- Reference BLAS level1 routine --
- *         storage spacing between elements of DY
+ *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --
+ *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
  *
- *  DPARAM (input/output)  DOUBLE PRECISION array, dimension 5
+ *     .. Scalar Arguments ..
- *     DPARAM(1)=DFLAG
+       INTEGER INCX,INCY,N
- *     DPARAM(2)=DH11
+ *     ..
- *     DPARAM(3)=DH21
+ *     .. Array Arguments ..
- *     DPARAM(4)=DH12
+       DOUBLE PRECISION DPARAM(5),DX(*),DY(*)
- *     DPARAM(5)=DH22
+ *     ..
  *
  *  =====================================================================
  *
- Line 139
+ Line 194
           END IF
        END IF
        RETURN
+ *
+ *     End of DROTM
+ *
        END

CVSweb interface <joel.bertrand@systella.fr>

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