163 SUBROUTINE sgbsv( N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, INFO )
171 INTEGER INFO, KL, KU, LDAB, LDB, N, NRHS
175 REAL AB( ldab, * ), B( ldb, * )
193 ELSE IF( kl.LT.0 )
THEN
195 ELSE IF( ku.LT.0 )
THEN
197 ELSE IF( nrhs.LT.0 )
THEN
199 ELSE IF( ldab.LT.2*kl+ku+1 )
THEN
201 ELSE IF( ldb.LT.max( n, 1 ) )
THEN
205 CALL
xerbla(
'SGBSV ', -info )
211 CALL
sgbtrf( n, n, kl, ku, ab, ldab, ipiv, info )
216 CALL
sgbtrs(
'No transpose', n, kl, ku, nrhs, ab, ldab, ipiv,
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine sgbtrf(M, N, KL, KU, AB, LDAB, IPIV, INFO)
SGBTRF
subroutine sgbsv(N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, INFO)
SGBSV computes the solution to system of linear equations A * X = B for GB matrices (simple driver) ...
subroutine sgbtrs(TRANS, N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, INFO)
SGBTRS