146 SUBROUTINE ztbtrs( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B,
155 CHARACTER DIAG, TRANS, UPLO
156 INTEGER INFO, KD, LDAB, LDB, N, NRHS
159 COMPLEX*16 AB( ldab, * ), B( ldb, * )
166 parameter ( zero = ( 0.0d+0, 0.0d+0 ) )
169 LOGICAL NOUNIT, UPPER
187 nounit = lsame( diag,
'N' )
188 upper = lsame( uplo,
'U' )
189 IF( .NOT.upper .AND. .NOT.lsame( uplo,
'L' ) )
THEN
191 ELSE IF( .NOT.lsame( trans,
'N' ) .AND. .NOT.
192 $ lsame( trans,
'T' ) .AND. .NOT.lsame( trans,
'C' ) )
THEN
194 ELSE IF( .NOT.nounit .AND. .NOT.lsame( diag,
'U' ) )
THEN
196 ELSE IF( n.LT.0 )
THEN
198 ELSE IF( kd.LT.0 )
THEN
200 ELSE IF( nrhs.LT.0 )
THEN
202 ELSE IF( ldab.LT.kd+1 )
THEN
204 ELSE IF( ldb.LT.max( 1, n ) )
THEN
208 CALL xerbla(
'ZTBTRS', -info )
222 IF( ab( kd+1, info ).EQ.zero )
227 IF( ab( 1, info ).EQ.zero )
237 CALL ztbsv( uplo, trans, diag, n, kd, ab, ldab, b( 1, j ), 1 )
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine ztbsv(UPLO, TRANS, DIAG, N, K, A, LDA, X, INCX)
ZTBSV
subroutine ztbtrs(UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, LDB, INFO)
ZTBTRS