163 SUBROUTINE dgbsv( N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, INFO )
171 INTEGER info, kl, ku, ldab, ldb, n, nrhs
175 DOUBLE PRECISION 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(
'DGBSV ', -info )
211 CALL
dgbtrf( n, n, kl, ku, ab, ldab, ipiv, info )
216 CALL
dgbtrs(
'No transpose', n, kl, ku, nrhs, ab, ldab, ipiv,
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 xerbla(SRNAME, INFO)
XERBLA
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real b(3) integer i
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