HP MLIB User's Guide Vol. 1 7th Ed.

Chapter 3 Basic Matrix Operations 369
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 , the
subprograms do not reference A, X, or Y.
N Number of columns in matrix A, n > 0. If , 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.
m 0≤
n 0≤