159 SUBROUTINE dgbsv( N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB,
167 INTEGER INFO, KL, KU, LDAB, LDB, N, NRHS
171 DOUBLE PRECISION AB( LDAB, * ), B( LDB, * )
189 ELSE IF( kl.LT.0 )
THEN
191 ELSE IF( ku.LT.0 )
THEN
193 ELSE IF( nrhs.LT.0 )
THEN
195 ELSE IF( ldab.LT.2*kl+ku+1 )
THEN
197 ELSE IF( ldb.LT.max( n, 1 ) )
THEN
201 CALL xerbla(
'DGBSV ', -info )
207 CALL dgbtrf( n, n, kl, ku, ab, ldab, ipiv, info )
212 CALL dgbtrs(
'No transpose', n, kl, ku, nrhs, ab, ldab,
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)
subroutine dgbtrf(m, n, kl, ku, ab, ldab, ipiv, info)
DGBTRF
subroutine dgbtrs(trans, n, kl, ku, nrhs, ab, ldab, ipiv, b, ldb, info)
DGBTRS