163 SUBROUTINE chpsv( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO )
172 INTEGER INFO, LDB, N, NRHS
176 COMPLEX AP( * ), B( ldb, * )
196 IF( .NOT.lsame( uplo,
'U' ) .AND. .NOT.lsame( uplo,
'L' ) )
THEN
198 ELSE IF( n.LT.0 )
THEN
200 ELSE IF( nrhs.LT.0 )
THEN
202 ELSE IF( ldb.LT.max( 1, n ) )
THEN
206 CALL xerbla(
'CHPSV ', -info )
212 CALL chptrf( uplo, n, ap, ipiv, info )
217 CALL chptrs( uplo, n, nrhs, ap, ipiv, b, ldb, info )
subroutine chptrf(UPLO, N, AP, IPIV, INFO)
CHPTRF
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine chptrs(UPLO, N, NRHS, AP, IPIV, B, LDB, INFO)
CHPTRS
subroutine chpsv(UPLO, N, NRHS, AP, IPIV, B, LDB, INFO)
CHPSV computes the solution to system of linear equations A * X = B for OTHER matrices ...