122 SUBROUTINE cpbtrs( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO )
131 INTEGER info, kd, ldab, ldb, n, nrhs
134 COMPLEX ab( ldab, * ),
b( ldb, * )
158 upper =
lsame( uplo,
'U' )
159 IF( .NOT.upper .AND. .NOT.
lsame( uplo,
'L' ) )
THEN
161 ELSE IF( n.LT.0 )
THEN
163 ELSE IF( kd.LT.0 )
THEN
165 ELSE IF( nrhs.LT.0 )
THEN
167 ELSE IF( ldab.LT.kd+1 )
THEN
169 ELSE IF( ldb.LT.max( 1, n ) )
THEN
173 CALL
xerbla(
'CPBTRS', -info )
179 IF( n.EQ.0 .OR. nrhs.EQ.0 )
190 CALL
ctbsv(
'Upper',
'Conjugate transpose',
'Non-unit', n,
191 $ kd, ab, ldab,
b( 1,
j ), 1 )
195 CALL
ctbsv(
'Upper',
'No transpose',
'Non-unit', n, kd, ab,
196 $ ldab,
b( 1,
j ), 1 )
206 CALL
ctbsv(
'Lower',
'No transpose',
'Non-unit', n, kd, ab,
207 $ ldab,
b( 1,
j ), 1 )
211 CALL
ctbsv(
'Lower',
'Conjugate transpose',
'Non-unit', n,
212 $ kd, ab, ldab,
b( 1,
j ), 1 )
LOGICAL function lsame(CA, CB)
LSAME
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine cpbtrs(UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO)
CPBTRS
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real b(3) integer i
subroutine ctbsv(UPLO, TRANS, DIAG, N, K, A, LDA, X, INCX)
CTBSV
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real j