NAME

sger - perform the rank 1 operation A := alpha*x*y' + A


SYNOPSIS

  SUBROUTINE SGER( M, N, ALPHA, X, INCX, Y, INCY, A, LDA)
  INTEGER M, N, INCX, INCY, LDA
  REAL ALPHA
  REAL X(*), Y(*), A(LDA,*)
  SUBROUTINE SGER_64( M, N, ALPHA, X, INCX, Y, INCY, A, LDA)
  INTEGER*8 M, N, INCX, INCY, LDA
  REAL ALPHA
  REAL X(*), Y(*), A(LDA,*)

F95 INTERFACE

  SUBROUTINE GER( [M], [N], ALPHA, X, [INCX], Y, [INCY], A, [LDA])
  INTEGER :: M, N, INCX, INCY, LDA
  REAL :: ALPHA
  REAL, DIMENSION(:) :: X, Y
  REAL, DIMENSION(:,:) :: A
  SUBROUTINE GER_64( [M], [N], ALPHA, X, [INCX], Y, [INCY], A, [LDA])
  INTEGER(8) :: M, N, INCX, INCY, LDA
  REAL :: ALPHA
  REAL, DIMENSION(:) :: X, Y
  REAL, DIMENSION(:,:) :: A

C INTERFACE

#include <sunperf.h>

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

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


PURPOSE

sger performs the rank 1 operation A := alpha*x*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