163 SUBROUTINE cgbsv( N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, INFO )
171 INTEGER info, kl, ku, ldab, ldb, n, nrhs
175 COMPLEX 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(
'CGBSV ', -info )
211 CALL
cgbtrf( n, n, kl, ku, ab, ldab, ipiv, info )
216 CALL
cgbtrs(
'No transpose', n, kl, ku, nrhs, ab, ldab, ipiv,
subroutine xerbla(SRNAME, INFO)
XERBLA
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real b(3) integer i
subroutine cgbsv(N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, INFO)
CGBSV computes the solution to system of linear equations A * X = B for GB matrices (simple driver) ...
subroutine cgbtrs(TRANS, N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, INFO)
CGBTRS
subroutine cgbtrf(M, N, KL, KU, AB, LDAB, IPIV, INFO)
CGBTRF