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 |
| (forward elimination) |
’U’ or ’u’ | Solve |
| substitution) |
Chapter 3 Basic Matrix Operations 315