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 xerbla(SRNAME, INFO)
XERBLA
subroutine dpbtrf(UPLO, N, KD, AB, LDAB, INFO)
DPBTRF
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 ...
subroutine dpbtrs(UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO)
DPBTRS