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

Chapter 3 Basic Matrix Operations 233
Matrix-vector multiply SGEMV/DGEMV/CGEMV/ZGEMV
CHARACTER*1 trans
INTEGER*8 m, n, lda, incx, incy
REAL*8 alpha, beta, a(lda, n), x(lenx), y(leny)
CALL DGEMV(trans, m, n, alpha, a, lda, x, incx, beta, y, incy)
CHARACTER*1 trans
INTEGER*8 m, n, lda, incx, incy
COMPLEX*8 alpha, beta, a(lda, n), x(lenx), y(leny)
CALL CGEMV(trans, m, n, alpha, a, lda, x, incx, beta, y, incy)
CHARACTER*1 trans
INTEGER*8 m, n, lda, incx, incy
COMPLEX*16 alpha, beta, a(lda, n), x(lenx), y(leny)
CALL ZGEMV(trans, m, n, alpha, a, lda, x, incx, beta, y, incy)