145 SUBROUTINE cppsv( UPLO, N, NRHS, AP, B, LDB, INFO )
154 INTEGER INFO, LDB, N, NRHS
157 COMPLEX AP( * ), B( ldb, * )
177 IF( .NOT.lsame( uplo,
'U' ) .AND. .NOT.lsame( uplo,
'L' ) )
THEN
179 ELSE IF( n.LT.0 )
THEN
181 ELSE IF( nrhs.LT.0 )
THEN
183 ELSE IF( ldb.LT.max( 1, n ) )
THEN
187 CALL
xerbla(
'CPPSV ', -info )
193 CALL
cpptrf( uplo, n, ap, info )
198 CALL
cpptrs( uplo, n, nrhs, ap, b, ldb, info )
subroutine cpptrs(UPLO, N, NRHS, AP, B, LDB, INFO)
CPPTRS
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine cpptrf(UPLO, N, AP, INFO)
CPPTRF
subroutine cppsv(UPLO, N, NRHS, AP, B, LDB, INFO)
CPPSV computes the solution to system of linear equations A * X = B for OTHER matrices ...