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

Chapter 3 Basic Matrix Operations 251
Matrix-vector multiply SSPMV/DSPMV/CHPMV/ZHPMV
CHARACTER*1 uplo
INTEGER*8 n, incx, incy
REAL*8 alpha, beta, ap(lenap), x(lenx), y(leny)
CALL DSPMV(uplo, n, alpha, ap, x, incx, beta, y, incy)
CHARACTER*1 uplo
INTEGER*8 n, incx, incy
COMPLEX*8 alpha, beta, ap(lenap), x(lenx), y(leny)
CALL CHPMV(uplo, n, alpha, ap, x, incx, beta, y, incy)
CHARACTER*1 uplo
INTEGER*8 n, incx, incy
COMPLEX*16 alpha, beta, ap(lenap), x(lenx), y(leny)
CALL ZHPMV(uplo, n, alpha, ap, x, incx, beta, y, incy)