dger - perform the rank 1 operation A := alpha*x*y' + A
SUBROUTINE DGER( M, N, ALPHA, X, INCX, Y, INCY, A, LDA) INTEGER M, N, INCX, INCY, LDA DOUBLE PRECISION ALPHA DOUBLE PRECISION X(*), Y(*), A(LDA,*)
SUBROUTINE DGER_64( M, N, ALPHA, X, INCX, Y, INCY, A, LDA) INTEGER*8 M, N, INCX, INCY, LDA DOUBLE PRECISION ALPHA DOUBLE PRECISION X(*), Y(*), A(LDA,*)
SUBROUTINE GER( [M], [N], ALPHA, X, [INCX], Y, [INCY], A, [LDA]) INTEGER :: M, N, INCX, INCY, LDA REAL(8) :: ALPHA REAL(8), DIMENSION(:) :: X, Y REAL(8), DIMENSION(:,:) :: A
SUBROUTINE GER_64( [M], [N], ALPHA, X, [INCX], Y, [INCY], A, [LDA]) INTEGER(8) :: M, N, INCX, INCY, LDA REAL(8) :: ALPHA REAL(8), DIMENSION(:) :: X, Y REAL(8), DIMENSION(:,:) :: A
#include <sunperf.h>
void dger(int m, int n, double alpha, double *x, int incx, double *y, int incy, double *a, int lda);
void dger_64(long m, long n, double alpha, double *x, long incx, double *y, long incy, double *a, long lda);
dger 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.