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

Chapter 3 Basic Matrix Operations 297
Matrix-vector multiply STBMV/DTBMV/CTBMV/ZTBMV
Usage VECLIB:
CHARACTER*1 uplo, trans, diag
INTEGER*4 n, kd, ldab, incx
REAL*4 ab(ldab, n), x(lenx)
CALL STBMV(uplo, trans, diag, n, kd, ab, ldab, x, incx)
CHARACTER*1 uplo, trans, diag
INTEGER*4 n, kd, ldab, incx
REAL*8 ab(ldab, n), x(lenx)
CALL DTBMV(uplo, trans, diag, n, kd, ab, ldab, x, incx)
CHARACTER*1 uplo, trans, diag
INTEGER*4 n, kd, ldab, incx
COMPLEX*8 ab(ldab, n), x(lenx)
CALL CTBMV(uplo, trans, diag, n, kd, ab, ldab, x, incx)
CHARACTER*1 uplo, trans, diag
INTEGER*4 n, kd, ldab, incx
COMPLEX*16 ab(ldab, n), x(lenx)
CALL ZTBMV(uplo, trans, diag, n, kd, ab, ldab, x, incx)
VECLIB8:
CHARACTER*1 uplo, trans, diag
INTEGER*8 n, kd, ldab, incx
REAL*4 ab(ldab, n), x(lenx)
CALL STBMV(uplo, trans, diag, n, kd, ab, ldab, x, incx)
CHARACTER*1 uplo, trans, diag
INTEGER*8 n, kd, ldab, incx
REAL*8 ab(ldab, n), x(lenx)
CALL DTBMV(uplo, trans, diag, n, kd, ab, ldab, x, incx)
CHARACTER*1 uplo, trans, diag
INTEGER*8 n, kd, ldab, incx
COMPLEX*8 ab(ldab, n), x(lenx)
CALL CTBMV(uplo, trans, diag, n, kd, ab, ldab, x, incx)
CHARACTER*1 uplo, trans, diag
INTEGER*8 n, kd, ldab, incx
COMPLEX*16 ab(ldab, n), x(lenx)
CALL ZTBMV(uplo, trans, diag, n, kd, ab, ldab, x, incx)
Input uplo Upper/lower triangular option for A:
’L’ or ’l’ A is lower triangular