159 SUBROUTINE zgbsv( N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB,
167 INTEGER INFO, KL, KU, LDAB, LDB, N, NRHS
171 COMPLEX*16 AB( LDAB, * ), B( LDB, * )
189 ELSE IF( kl.LT.0 )
THEN
191 ELSE IF( ku.LT.0 )
THEN
193 ELSE IF( nrhs.LT.0 )
THEN
195 ELSE IF( ldab.LT.2*kl+ku+1 )
THEN
197 ELSE IF( ldb.LT.max( n, 1 ) )
THEN
201 CALL xerbla(
'ZGBSV ', -info )
207 CALL zgbtrf( n, n, kl, ku, ab, ldab, ipiv, info )
212 CALL zgbtrs(
'No transpose', n, kl, ku, nrhs, ab, ldab,
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 zgbtrs(trans, n, kl, ku, nrhs, ab, ldab, ipiv, b, ldb, info)
ZGBTRS