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 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
subroutine xerbla(SRNAME, INFO)
XERBLA