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)

Chapter 3 Basic Matrix Operations 315