165 SUBROUTINE zpbsv( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO )
174 INTEGER INFO, KD, LDAB, LDB, N, NRHS
177 COMPLEX*16 AB( ldab, * ), B( ldb, * )
197 IF( .NOT.lsame( uplo,
'U' ) .AND. .NOT.lsame( uplo,
'L' ) )
THEN
199 ELSE IF( n.LT.0 )
THEN
201 ELSE IF( kd.LT.0 )
THEN
203 ELSE IF( nrhs.LT.0 )
THEN
205 ELSE IF( ldab.LT.kd+1 )
THEN
207 ELSE IF( ldb.LT.max( 1, n ) )
THEN
211 CALL xerbla(
'ZPBSV ', -info )
217 CALL zpbtrf( uplo, n, kd, ab, ldab, info )
222 CALL zpbtrs( uplo, n, kd, nrhs, ab, ldab, b, ldb, info )
subroutine zpbtrs(UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO)
ZPBTRS
subroutine zpbtrf(UPLO, N, KD, AB, LDAB, INFO)
ZPBTRF
subroutine zpbsv(UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO)
ZPBSV computes the solution to system of linear equations A * X = B for OTHER matrices ...
subroutine xerbla(SRNAME, INFO)
XERBLA