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 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 ...
subroutine cpbtrf(UPLO, N, KD, AB, LDAB, INFO)
CPBTRF
subroutine cpbtrs(UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO)
CPBTRS