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

Chapter 3 Basic Matrix Operations 315
Solve triangular system STPSV/DTPSV/CTPSV/ZTPSV
CHARACTER*1 uplo, trans, diag
INTEGER*8 n, incx
REAL*8 ap(lenap), x(lenx)
CALL DTPSV(uplo, trans, diag, n, ap, x, incx)
CHARACTER*1 uplo, trans, diag
INTEGER*8 n, incx
COMPLEX*8 ap(lenap), x(lenx)
CALL CTPSV(uplo, trans, diag, n, ap, x, incx)
CHARACTER*1 uplo, trans, diag
INTEGER*8 n, incx
COMPLEX*16 ap(lenap), x(lenx)
CALL ZTPSV(uplo, trans, diag, n, ap, x, incx)
Input uplo Upper/lower triangular option for A:
’L’ or ’l’ Solve lower-triangular system
(forward elimination)
’U’ or ’u’ Solve upper-triangular system (back
substitution)