163 SUBROUTINE zpbsv( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO )
171 INTEGER INFO, KD, LDAB, LDB, N, NRHS
174 COMPLEX*16 AB( LDAB, * ), B( LDB, * )
194 IF( .NOT.lsame( uplo,
'U' ) .AND. .NOT.lsame( uplo,
'L' ) )
THEN
196 ELSE IF( n.LT.0 )
THEN
198 ELSE IF( kd.LT.0 )
THEN
200 ELSE IF( nrhs.LT.0 )
THEN
202 ELSE IF( ldab.LT.kd+1 )
THEN
204 ELSE IF( ldb.LT.max( 1, n ) )
THEN
208 CALL xerbla(
'ZPBSV ', -info )
214 CALL zpbtrf( uplo, n, kd, ab, ldab, info )
219 CALL zpbtrs( uplo, n, kd, nrhs, ab, ldab, b, ldb, info )
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine zpbtrf(UPLO, N, KD, AB, LDAB, INFO)
ZPBTRF
subroutine zpbtrs(UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO)
ZPBTRS
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