Multiple matrix-vector multiply, rank 2 update

F_SGEMVER/F_DGEMVER/F_CGEMVER/F_ZGEMVER

 

INTEGER*4

INCW, INCX, INCY, INCZ, LDA, M, N

 

COMPLEX*16

A( LDA, * ), W( * ), X( * ), Y( * ), Z( * )

 

COMPLEX*16

ALPHA, BETA

 

COMPLEX*16

U1( * ), V1( * ), U2( * ), V2( * )

 

SUBROUTINE F_ZGEMVER (M, N, A, LDA, U1, V1, U2, V2, ALPHA, X,

 

INCX, Y, INCY, BETA, W, INCW, Z, INCZ)

 

VECLIB8

 

 

INTEGER*8

INCW, INCX, INCY, INCZ, LDA, M, N

 

REAL*4

A( LDA, * ), W( * ), X( * ), Y( * ), Z( * )

 

REAL*4

ALPHA, BETA

 

REAL*4

U1( * ), V1( * ), U2( * ), V2( * )

 

SUBROUTINE F_SGEMVER (M, N, A, LDA, U1, V1, U2, V2, ALPHA, X,

 

INCX, Y, INCY, BETA, W, INCW, Z, INCZ)

 

INTEGER*8

INCW, INCX, INCY, INCZ, LDA, M, N

 

REAL*8

A( LDA, * ), W( * ), X( * ), Y( * ), Z( * )

 

REAL*8

ALPHA, BETA

 

REAL*8

U1( * ), V1( * ), U2( * ), V2( * )

 

SUBROUTINE F_DGEMVER (M, N, A, LDA, U1, V1, U2, V2, ALPHA, X,

 

INCX, Y, INCY, BETA, W, INCW, Z, INCZ)

 

INTEGER*8

INCW, INCX, INCY, INCZ, LDA, M, N

 

COMPLEX*8

A( LDA, * ), W( * ), X( * ), Y( * ), Z( * )

 

COMPLEX*8

ALPHA, BETA

 

COMPLEX*8

U1( * ), V1( * ), U2( * ), V2( * )

 

SUBROUTINE F_CGEMVER (M, N, A, LDA, U1, V1, U2, V2, ALPHA, X,

 

INCX, Y, INCY, BETA, W, INCW, Z, INCZ)

 

INTEGER*8

INCW, INCX, INCY, INCZ, LDA, M, N

 

COMPLEX*16

A( LDA, * ), W( * ), X( * ), Y( * ), Z( * )

 

COMPLEX*16

ALPHA, BETA

 

COMPLEX*16

U1( * ), V1( * ), U2( * ), V2( * )

 

SUBROUTINE F_ZGEMVER (M, N, A, LDA, U1, V1, U2, V2, ALPHA, X,

 

INCX, Y, INCY, BETA, W, INCW, Z, INCZ)

Input

M

Number of rows in matrix A, m > 0. If m 0 , the

 

 

subprograms do not reference A, X, or Y.

 

N

Number of columns in matrix A, n > 0. If n 0 , the

 

 

subprograms do not reference A, X, or Y.

 

A

REAL or COMPLEX array, dimension (LDA, N).

 

LDA

Leading dimension of array A. If lda < 1 or lda < m, an

 

 

error flag is set and passed to the error handler.

Chapter 3 Basic Matrix Operations 369