165 SUBROUTINE cpbsv( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO )
174 INTEGER INFO, KD, LDAB, LDB, N, NRHS
177 COMPLEX AB( ldab, * ), B( ldb, * )
197 IF( .NOT.lsame( uplo,
'U' ) .AND. .NOT.lsame( uplo,
'L' ) )
THEN
199 ELSE IF( n.LT.0 )
THEN
201 ELSE IF( kd.LT.0 )
THEN
203 ELSE IF( nrhs.LT.0 )
THEN
205 ELSE IF( ldab.LT.kd+1 )
THEN
207 ELSE IF( ldb.LT.max( 1, n ) )
THEN
211 CALL
xerbla(
'CPBSV ', -info )
217 CALL
cpbtrf( uplo, n, kd, ab, ldab, info )
222 CALL
cpbtrs( uplo, n, kd, nrhs, ab, ldab, b, ldb, info )
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine cpbtrs(UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO)
CPBTRS
subroutine cpbtrf(UPLO, N, KD, AB, LDAB, INFO)
CPBTRF
subroutine cpbsv(UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO)
CPBSV computes the solution to system of linear equations A * X = B for OTHER matrices ...