109 SUBROUTINE zpptrs( UPLO, N, NRHS, AP, B, LDB, INFO )
118 INTEGER INFO, LDB, N, NRHS
121 COMPLEX*16 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(
'ZPPTRS', -info )
162 IF( n.EQ.0 .OR. nrhs.EQ.0 )
173 CALL ztpsv(
'Upper',
'Conjugate transpose',
'Non-unit', n,
178 CALL ztpsv(
'Upper',
'No transpose',
'Non-unit', n, ap,
189 CALL ztpsv(
'Lower',
'No transpose',
'Non-unit', n, ap,
194 CALL ztpsv(
'Lower',
'Conjugate transpose',
'Non-unit', n,
subroutine zpptrs(UPLO, N, NRHS, AP, B, LDB, INFO)
ZPPTRS
subroutine ztpsv(UPLO, TRANS, DIAG, N, AP, X, INCX)
ZTPSV
subroutine xerbla(SRNAME, INFO)
XERBLA