109 SUBROUTINE cpptrs( UPLO, N, NRHS, AP, B, LDB, INFO )
118 INTEGER info, ldb, n, nrhs
121 COMPLEX ap( * ),
b( ldb, * )
145 upper =
lsame( uplo,
'U' )
146 IF( .NOT.upper .AND. .NOT.
lsame( uplo,
'L' ) )
THEN
148 ELSE IF( n.LT.0 )
THEN
150 ELSE IF( nrhs.LT.0 )
THEN
152 ELSE IF( ldb.LT.max( 1, n ) )
THEN
156 CALL
xerbla(
'CPPTRS', -info )
162 IF( n.EQ.0 .OR. nrhs.EQ.0 )
173 CALL
ctpsv(
'Upper',
'Conjugate transpose',
'Non-unit', n,
178 CALL
ctpsv(
'Upper',
'No transpose',
'Non-unit', n, ap,
189 CALL
ctpsv(
'Lower',
'No transpose',
'Non-unit', n, ap,
194 CALL
ctpsv(
'Lower',
'Conjugate transpose',
'Non-unit', n,
subroutine cpptrs(UPLO, N, NRHS, AP, B, LDB, INFO)
CPPTRS
subroutine xerbla(SRNAME, INFO)
XERBLA
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real b(3) integer i
logical function lsame(CA, CB)
LSAME
subroutine ctpsv(UPLO, TRANS, DIAG, N, AP, X, INCX)
CTPSV