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

304 HP MLIB User’s Guide
STBSV/DTBSV/CTBSV/ZTBSV Solve triangular band system
CHARACTER*1 uplo, trans, diag
INTEGER*4 n, kd, ldab, incx
COMPLEX*8 ab(ldab, n), x(lenx)
CALL CTBSV(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 ZTBSV(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 STBSV(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 DTBSV(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 CTBSV(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 ZTBSV(uplo, trans, diag, n, kd, ab, ldab, x, incx)
Input uplo Upper/lower triangular option for A:
’L’ or ’l’ Solve lower-triangular band system
(forward elimination)
’U’ or ’u’ Solve upper-triangular band system
(back substitution)
trans Transposition option for A:
’N’ or ’n’ Compute
’T’ or ’t’ Compute
’C’ or ’c’ Compute
where A
−T
is the inverse of the transpose of A, and
is the inverse of the conjugate transpose. In the real
xA
1–
x←
xA
T–
x←
xA
*–
x←
A
*–