165 SUBROUTINE dpbsv( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO )
174 INTEGER INFO, KD, LDAB, LDB, N, NRHS
177 DOUBLE PRECISION 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(
'DPBSV ', -info )
217 CALL dpbtrf( uplo, n, kd, ab, ldab, info )
222 CALL dpbtrs( uplo, n, kd, nrhs, ab, ldab, b, ldb, info )
subroutine dpbtrf(UPLO, N, KD, AB, LDAB, INFO)
DPBTRF
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine dpbtrs(UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO)
DPBTRS
subroutine dpbsv(UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO)
DPBSV computes the solution to system of linear equations A * X = B for OTHER matrices ...