Museum

Home

Lab Overview

Retrotechnology Articles

⇒ Online Manual

Media Vault

Software Library

Restoration Projects

Artifacts Sought

sger(3P)

NAME

sger - perform the rank 1 operation   A := alpha∗x∗y’ + A

SYNOPSIS

SUBROUTINE SGER ( M, N, ALPHA, X, INCX, Y, INCY, A, LDA )

REAL ALPHA

INTEGER INCX, INCY, LDA, M, N

REAL A( LDA, ∗ ), X( ∗ ), Y( ∗ )

 

#include <sunperf.h>

void sger(int m, int n, float alpha, float ∗sx, int incx, float ∗sy, int incy, float ∗sa, int 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. 
 

PARAMETERS

M - INTEGER. 
On entry, M specifies the number of rows of the matrix A. M must be at least zero. Unchanged on exit.

N - INTEGER. 
On entry, N specifies the number of columns of the matrix A. N must be at least zero. Unchanged on exit.

ALPHA - REAL            . 
On entry, ALPHA specifies the scalar alpha. Unchanged on exit.

X - REAL             array of dimension at least
( 1 + ( m - 1 )∗abs( INCX ) ). Before entry, the incremented array X must contain the m element vector x. Unchanged on exit.

INCX - INTEGER. 
On entry, INCX specifies the increment for the elements of X. INCX must not be zero. Unchanged on exit.

Y - REAL             array of dimension at least
( 1 + ( n - 1 )∗abs( INCY ) ). Before entry, the incremented array Y must contain the n element vector y. Unchanged on exit.

INCY - INTEGER. 
On entry, INCY specifies the increment for the elements of Y. INCY must not be zero. Unchanged on exit.

A - REAL             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 - 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 ). Unchanged on exit.

SunOS WorkShop_5.0  —  Last change: 10 Dec 1998

Typewritten Software • bear@typewritten.org • Edmonds, WA 98026