159 SUBROUTINE sgbsv( N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB,
167 INTEGER INFO, KL, KU, LDAB, LDB, N, NRHS
171 REAL 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(
'SGBSV ', -info )
207 CALL sgbtrf( n, n, kl, ku, ab, ldab, ipiv, info )
212 CALL sgbtrs(
'No transpose', n, kl, ku, nrhs, ab, ldab,
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 sgbtrf(m, n, kl, ku, ab, ldab, ipiv, info)
SGBTRF
subroutine sgbtrs(trans, n, kl, ku, nrhs, ab, ldab, ipiv, b, ldb, info)
SGBTRS