[BACK]Return to drotm.f CVS log [TXT] [DIR] Up to [local] / rpl / lapack / blas

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

version 1.8, 2011/07/22 07:38:01 version 1.9, 2011/11/21 20:37:07
Line 1 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  *  =========== DOCUMENTATION ===========
 *     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  * Online html documentation available at 
   *            http://www.netlib.org/lapack/explore-html/ 
 *  *
 *       (DH11  DH12)    (1.D0  DH12)    (DH11  1.D0)    (1.D0  0.D0)  *  Definition:
 *     H=(          )    (          )    (          )    (          )  *  ===========
 *       (DH21  DH22),   (DH21  1.D0),   (-1.D0 DH22),   (0.D0  1.D0).  *
 *     SEE DROTMG FOR A DESCRIPTION OF DATA STORAGE IN DPARAM.  *       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 N
   *>         double precision vector with N elements
   *> \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 N
   *>         double precision vector with N elements
   *> \endverbatim
   *>
   *> \param[in] INCY
   *> \verbatim
   *>          INCY is INTEGER
   *>         storage spacing between elements of DY
   *> \endverbatim
   *>
   *> \param[in,out] 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. 
 *  *
 *  Arguments  *> \date November 2011
 *  =========  
 *  *
 *  N      (input) INTEGER  *> \ingroup double_blas_level1
 *         number of elements in input vector(s)  
 *  *
 *  DX     (input/output) DOUBLE PRECISION array, dimension N  *  =====================================================================
 *         double precision vector with N elements        SUBROUTINE DROTM(N,DX,INCX,DY,INCY,DPARAM)
 *  
 *  INCX   (input) INTEGER  
 *         storage spacing between elements of DX  
 *  
 *  DY     (input/output) DOUBLE PRECISION array, dimension N  
 *         double precision vector with N elements  
 *  *
 *  INCY   (input) INTEGER  *  -- Reference BLAS level1 routine (version 3.4.0) --
 *         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..--
   *     November 2011
 *  *
 *  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  *     ..
 *  *
 *  =====================================================================  *  =====================================================================
 *  *
Removed from v.1.8  
changed lines
  Added in v.1.9

CVSweb interface <joel.bertrand@systella.fr>