163 SUBROUTINE zgbsv( N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, INFO )
171 INTEGER INFO, KL, KU, LDAB, LDB, N, NRHS
175 COMPLEX*16 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(
'ZGBSV ', -info )
211 CALL
zgbtrf( n, n, kl, ku, ab, ldab, ipiv, info )
216 CALL
zgbtrs(
'No transpose', n, kl, ku, nrhs, ab, ldab, ipiv,
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine zgbtrs(TRANS, N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, INFO)
ZGBTRS
subroutine zgbsv(N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, INFO)
ZGBSV computes the solution to system of linear equations A * X = B for GB matrices (simple driver) ...
subroutine zgbtrf(M, N, KL, KU, AB, LDAB, IPIV, INFO)
ZGBTRF