161 SUBROUTINE dgbsv( N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, INFO )
168 INTEGER INFO, KL, KU, LDAB, LDB, N, NRHS
172 DOUBLE PRECISION AB( LDAB, * ), B( LDB, * )
190 ELSE IF( kl.LT.0 )
THEN
192 ELSE IF( ku.LT.0 )
THEN
194 ELSE IF( nrhs.LT.0 )
THEN
196 ELSE IF( ldab.LT.2*kl+ku+1 )
THEN
198 ELSE IF( ldb.LT.max( n, 1 ) )
THEN
202 CALL xerbla(
'DGBSV ', -info )
208 CALL dgbtrf( n, n, kl, ku, ab, ldab, ipiv, info )
213 CALL dgbtrs(
'No transpose', n, kl, ku, nrhs, ab, ldab, ipiv,
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine dgbtrs(TRANS, N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, INFO)
DGBTRS
subroutine dgbtrf(M, N, KL, KU, AB, LDAB, IPIV, INFO)
DGBTRF
subroutine dgbsv(N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, INFO)
DGBSV computes the solution to system of linear equations A * X = B for GB matrices (simple driver)