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
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real b(3) integer i
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