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 x ← A–1x

 

 

’T’ or ’t’

Compute x ← A–Tx

 

 

’C’ or ’c’

Compute x ← A–*x

where A−T is the inverse of the transpose of A, and A–*is the inverse of the conjugate transpose. In the real

304HP MLIB User’s Guide