SEARCH NEW RPMS DIRECTORIES ABOUT FAQ VARIOUS BLOG DONATE YUM REPOSITORY

MAN page from OpenSuSE blas-man-3.4.2-3.6.16.noarch.rpm

# cgeru.f

Section: LAPACK (3)
Updated: Thu Jun 23 2016
Index

cgeru.f -

## SYNOPSIS

### Functions/Subroutines

subroutine CGERU (M, N, ALPHA, X, INCX, Y, INCY, A, LDA)
CGERU

## Function/Subroutine Documentation

### subroutine CGERU (integer M, integer N, complex ALPHA, complex, dimension(*) X, integer INCX, complex, dimension(*) Y, integer INCY, complex, dimension(lda,*) A, integer LDA)

CGERU

Purpose:

` CGERU  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.`

Parameters:

M

`          M is INTEGER           On entry, M specifies the number of rows of the matrix A.           M must be at least zero.`

N

`          N is INTEGER           On entry, N specifies the number of columns of the matrix A.           N must be at least zero.`

ALPHA

`          ALPHA is COMPLEX           On entry, ALPHA specifies the scalar alpha.`

X

`          X is COMPLEX array of dimension at least           ( 1 + ( m - 1 )*abs( INCX ) ).           Before entry, the incremented array X must contain the m           element vector x.`

INCX

`          INCX is INTEGER           On entry, INCX specifies the increment for the elements of           X. INCX must not be zero.`

Y

`          Y is COMPLEX array of dimension at least           ( 1 + ( n - 1 )*abs( INCY ) ).           Before entry, the incremented array Y must contain the n           element vector y.`

INCY

`          INCY is INTEGER           On entry, INCY specifies the increment for the elements of           Y. INCY must not be zero.`

A

`          A is COMPLEX array of DIMENSION ( LDA, n ).           Before entry, the leading m by n part of the array A must           contain the matrix of coefficients. On exit, A is           overwritten by the updated matrix.`

LDA

`          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 ).`

Author:

Univ. of Tennessee

Univ. of California Berkeley

NAG Ltd.

Date:

November 2011

Further Details:

`  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.`

Definition at line 132 of file cgeru.f.

`132 *133 *  -- Reference BLAS level2 routine (version 3.4.0) --134 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --135 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--136 *     November 2011137 *138 *     .. Scalar Arguments ..139       COMPLEX alpha140       INTEGER incx,incy,lda,m,n141 *     ..142 *     .. Array Arguments ..143       COMPLEX a(lda,*),x(*),y(*)144 *     ..145 *146 *  =====================================================================147 *148 *     .. Parameters ..149       COMPLEX zero150       parameter(zero= (0.0e+0,0.0e+0))151 *     ..152 *     .. Local Scalars ..153       COMPLEX temp154       INTEGER i,info,ix,j,jy,kx155 *     ..156 *     .. External Subroutines ..157       EXTERNAL xerbla158 *     ..159 *     .. Intrinsic Functions ..160       INTRINSIC max161 *     ..162 *163 *     Test the input parameters.164 *165       info = 0166       IF (m.LT.0) THEN167           info = 1168       ELSE IF (n.LT.0) THEN169           info = 2170       ELSE IF (incx.EQ.0) THEN171           info = 5172       ELSE IF (incy.EQ.0) THEN173           info = 7174       ELSE IF (lda.LT.max(1,m)) THEN175           info = 9176       END IF177       IF (info.NE.0) THEN178           CALL xerbla('CGERU ',info)179           RETURN180       END IF181 *182 *     Quick return if possible.183 *184       IF ((m.EQ.0) .OR. (n.EQ.0) .OR. (alpha.EQ.zero)) RETURN185 *186 *     Start the operations. In this version the elements of A are187 *     accessed sequentially with one pass through A.188 *189       IF (incy.GT.0) THEN190           jy = 1191       ELSE192           jy = 1 - (n-1)*incy193       END IF194       IF (incx.EQ.1) THEN195           DO 20 j = 1,n196               IF (y(jy).NE.zero) THEN197                   temp = alpha*y(jy)198                   DO 10 i = 1,m199                       a(i,j) = a(i,j) + x(i)*temp200    10             CONTINUE201               END IF202               jy = jy + incy203    20     CONTINUE204       ELSE205           IF (incx.GT.0) THEN206               kx = 1207           ELSE208               kx = 1 - (m-1)*incx209           END IF210           DO 40 j = 1,n211               IF (y(jy).NE.zero) THEN212                   temp = alpha*y(jy)213                   ix = kx214                   DO 30 i = 1,m215                       a(i,j) = a(i,j) + x(ix)*temp216                       ix = ix + incx217    30             CONTINUE218               END IF219               jy = jy + incy220    40     CONTINUE221       END IF222 *223       RETURN224 *225 *     End of CGERU .226 *`

## Author

Generated automatically by Doxygen for LAPACK from the source code.

## Index

NAME
SYNOPSIS
Functions/Subroutines
Function/Subroutine Documentation
subroutine CGERU (integer M, integer N, complex ALPHA, complex, dimension(*) X, integer INCX, complex, dimension(*) Y, integer INCY, complex, dimension(lda,*) A, integer LDA)
Author

This document was created byman2html,using the manual pages.