161 SUBROUTINE chpsv( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO )
169 INTEGER INFO, LDB, N, NRHS
173 COMPLEX AP( * ), B( LDB, * )
193 IF( .NOT.lsame( uplo,
'U' ) .AND. .NOT.lsame( uplo,
'L' ) )
THEN
195 ELSE IF( n.LT.0 )
THEN
197 ELSE IF( nrhs.LT.0 )
THEN
199 ELSE IF( ldb.LT.max( 1, n ) )
THEN
203 CALL xerbla(
'CHPSV ', -info )
209 CALL chptrf( uplo, n, ap, ipiv, info )
214 CALL chptrs( uplo, n, nrhs, ap, ipiv, b, ldb, info )
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine chptrs(UPLO, N, NRHS, AP, IPIV, B, LDB, INFO)
CHPTRS
subroutine chptrf(UPLO, N, AP, IPIV, INFO)
CHPTRF
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