NAME

zgerc - perform the rank 1 operation A := alpha*x*conjg( y' ) + A


SYNOPSIS

  SUBROUTINE ZGERC( M, N, ALPHA, X, INCX, Y, INCY, A, LDA)
  DOUBLE COMPLEX ALPHA
  DOUBLE COMPLEX X(*), Y(*), A(LDA,*)
  INTEGER M, N, INCX, INCY, LDA
  SUBROUTINE ZGERC_64( M, N, ALPHA, X, INCX, Y, INCY, A, LDA)
  DOUBLE COMPLEX ALPHA
  DOUBLE COMPLEX X(*), Y(*), A(LDA,*)
  INTEGER*8 M, N, INCX, INCY, LDA

F95 INTERFACE

  SUBROUTINE GERC( [M], [N], ALPHA, X, [INCX], Y, [INCY], A, [LDA])
  COMPLEX(8) :: ALPHA
  COMPLEX(8), DIMENSION(:) :: X, Y
  COMPLEX(8), DIMENSION(:,:) :: A
  INTEGER :: M, N, INCX, INCY, LDA
  SUBROUTINE GERC_64( [M], [N], ALPHA, X, [INCX], Y, [INCY], A, [LDA])
  COMPLEX(8) :: ALPHA
  COMPLEX(8), DIMENSION(:) :: X, Y
  COMPLEX(8), DIMENSION(:,:) :: A
  INTEGER(8) :: M, N, INCX, INCY, LDA

C INTERFACE

#include <sunperf.h>

void zgerc(int m, int n, doublecomplex alpha, doublecomplex *x, int incx, doublecomplex *y, int incy, doublecomplex *a, int lda);

void zgerc_64(long m, long n, doublecomplex alpha, doublecomplex *x, long incx, doublecomplex *y, long incy, doublecomplex *a, long lda);


PURPOSE

zgerc performs the rank 1 operation A := alpha*x*conjg( y' ) + 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.


ARGUMENTS