Diff for /rpl/lapack/blas/zgeru.f between versions 1.1 and 1.14

version 1.1, 2010/01/26 15:22:45 version 1.14, 2018/05/29 06:55:15
Line 1 Line 1
       SUBROUTINE ZGERU(M,N,ALPHA,X,INCX,Y,INCY,A,LDA)  *> \brief \b ZGERU
 *     .. Scalar Arguments ..  
       DOUBLE COMPLEX ALPHA  
       INTEGER INCX,INCY,LDA,M,N  
 *     ..  
 *     .. Array Arguments ..  
       DOUBLE COMPLEX A(LDA,*),X(*),Y(*)  
 *     ..  
 *  *
 *  Purpose  *  =========== DOCUMENTATION ===========
 *  =======  
 *  *
 *  ZGERU  performs the rank 1 operation  * Online html documentation available at
   *            http://www.netlib.org/lapack/explore-html/
 *  *
 *     A := alpha*x*y' + A,  *  Definition:
   *  ===========
   *
   *       SUBROUTINE ZGERU(M,N,ALPHA,X,INCX,Y,INCY,A,LDA)
   *
   *       .. Scalar Arguments ..
   *       COMPLEX*16 ALPHA
   *       INTEGER INCX,INCY,LDA,M,N
   *       ..
   *       .. Array Arguments ..
   *       COMPLEX*16 A(LDA,*),X(*),Y(*)
   *       ..
   *
   *
   *> \par Purpose:
   *  =============
   *>
   *> \verbatim
   *>
   *> ZGERU  performs the rank 1 operation
   *>
   *>    A := alpha*x*y**T + A,
   *>
   *> where alpha is a scalar, x is an m element vector, y is an n element
   *> vector and A is an m by n matrix.
   *> \endverbatim
 *  *
 *  where alpha is a scalar, x is an m element vector, y is an n element  *  Arguments:
 *  vector and A is an m by n matrix.  
 *  
 *  Arguments  
 *  ==========  *  ==========
 *  *
 *  M      - INTEGER.  *> \param[in] M
 *           On entry, M specifies the number of rows of the matrix A.  *> \verbatim
 *           M must be at least zero.  *>          M is INTEGER
 *           Unchanged on exit.  *>           On entry, M specifies the number of rows of the matrix A.
 *  *>           M must be at least zero.
 *  N      - INTEGER.  *> \endverbatim
 *           On entry, N specifies the number of columns of the matrix A.  *>
 *           N must be at least zero.  *> \param[in] N
 *           Unchanged on exit.  *> \verbatim
 *  *>          N is INTEGER
 *  ALPHA  - COMPLEX*16      .  *>           On entry, N specifies the number of columns of the matrix A.
 *           On entry, ALPHA specifies the scalar alpha.  *>           N must be at least zero.
 *           Unchanged on exit.  *> \endverbatim
 *  *>
 *  X      - COMPLEX*16       array of dimension at least  *> \param[in] ALPHA
 *           ( 1 + ( m - 1 )*abs( INCX ) ).  *> \verbatim
 *           Before entry, the incremented array X must contain the m  *>          ALPHA is COMPLEX*16
 *           element vector x.  *>           On entry, ALPHA specifies the scalar alpha.
 *           Unchanged on exit.  *> \endverbatim
 *  *>
 *  INCX   - INTEGER.  *> \param[in] X
 *           On entry, INCX specifies the increment for the elements of  *> \verbatim
 *           X. INCX must not be zero.  *>          X is COMPLEX*16 array, dimension at least
 *           Unchanged on exit.  *>           ( 1 + ( m - 1 )*abs( INCX ) ).
 *  *>           Before entry, the incremented array X must contain the m
 *  Y      - COMPLEX*16       array of dimension at least  *>           element vector x.
 *           ( 1 + ( n - 1 )*abs( INCY ) ).  *> \endverbatim
 *           Before entry, the incremented array Y must contain the n  *>
 *           element vector y.  *> \param[in] INCX
 *           Unchanged on exit.  *> \verbatim
 *  *>          INCX is INTEGER
 *  INCY   - INTEGER.  *>           On entry, INCX specifies the increment for the elements of
 *           On entry, INCY specifies the increment for the elements of  *>           X. INCX must not be zero.
 *           Y. INCY must not be zero.  *> \endverbatim
 *           Unchanged on exit.  *>
 *  *> \param[in] Y
 *  A      - COMPLEX*16       array of DIMENSION ( LDA, n ).  *> \verbatim
 *           Before entry, the leading m by n part of the array A must  *>          Y is COMPLEX*16 array, dimension at least
 *           contain the matrix of coefficients. On exit, A is  *>           ( 1 + ( n - 1 )*abs( INCY ) ).
 *           overwritten by the updated matrix.  *>           Before entry, the incremented array Y must contain the n
 *  *>           element vector y.
 *  LDA    - INTEGER.  *> \endverbatim
 *           On entry, LDA specifies the first dimension of A as declared  *>
 *           in the calling (sub) program. LDA must be at least  *> \param[in] INCY
 *           max( 1, m ).  *> \verbatim
 *           Unchanged on exit.  *>          INCY is INTEGER
 *  *>           On entry, INCY specifies the increment for the elements of
 *  Further Details  *>           Y. INCY must not be zero.
 *  ===============  *> \endverbatim
 *  *>
 *  Level 2 Blas routine.  *> \param[in,out] A
 *  *> \verbatim
 *  -- Written on 22-October-1986.  *>          A is COMPLEX*16 array, dimension ( LDA, N )
 *     Jack Dongarra, Argonne National Lab.  *>           Before entry, the leading m by n part of the array A must
 *     Jeremy Du Croz, Nag Central Office.  *>           contain the matrix of coefficients. On exit, A is
 *     Sven Hammarling, Nag Central Office.  *>           overwritten by the updated matrix.
 *     Richard Hanson, Sandia National Labs.  *> \endverbatim
   *>
   *> \param[in] LDA
   *> \verbatim
   *>          LDA is INTEGER
   *>           On entry, LDA specifies the first dimension of A as declared
   *>           in the calling (sub) program. LDA must be at least
   *>           max( 1, m ).
   *> \endverbatim
   *
   *  Authors:
   *  ========
   *
   *> \author Univ. of Tennessee
   *> \author Univ. of California Berkeley
   *> \author Univ. of Colorado Denver
   *> \author NAG Ltd.
   *
   *> \date December 2016
   *
   *> \ingroup complex16_blas_level2
   *
   *> \par Further Details:
   *  =====================
   *>
   *> \verbatim
   *>
   *>  Level 2 Blas routine.
   *>
   *>  -- Written on 22-October-1986.
   *>     Jack Dongarra, Argonne National Lab.
   *>     Jeremy Du Croz, Nag Central Office.
   *>     Sven Hammarling, Nag Central Office.
   *>     Richard Hanson, Sandia National Labs.
   *> \endverbatim
   *>
   *  =====================================================================
         SUBROUTINE ZGERU(M,N,ALPHA,X,INCX,Y,INCY,A,LDA)
   *
   *  -- Reference BLAS level2 routine (version 3.7.0) --
   *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --
   *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
   *     December 2016
   *
   *     .. Scalar Arguments ..
         COMPLEX*16 ALPHA
         INTEGER INCX,INCY,LDA,M,N
   *     ..
   *     .. Array Arguments ..
         COMPLEX*16 A(LDA,*),X(*),Y(*)
   *     ..
 *  *
 *  =====================================================================  *  =====================================================================
 *  *
 *     .. Parameters ..  *     .. Parameters ..
       DOUBLE COMPLEX ZERO        COMPLEX*16 ZERO
       PARAMETER (ZERO= (0.0D+0,0.0D+0))        PARAMETER (ZERO= (0.0D+0,0.0D+0))
 *     ..  *     ..
 *     .. Local Scalars ..  *     .. Local Scalars ..
       DOUBLE COMPLEX TEMP        COMPLEX*16 TEMP
       INTEGER I,INFO,IX,J,JY,KX        INTEGER I,INFO,IX,J,JY,KX
 *     ..  *     ..
 *     .. External Subroutines ..  *     .. External Subroutines ..

Removed from v.1.1  
changed lines
  Added in v.1.14


CVSweb interface <joel.bertrand@systella.fr>