163 SUBROUTINE cspsv( 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(
'CSPSV ', -info )
212 CALL csptrf( uplo, n, ap, ipiv, info )
217 CALL csptrs( uplo, n, nrhs, ap, ipiv, b, ldb, info )
subroutine csptrs(UPLO, N, NRHS, AP, IPIV, B, LDB, INFO)
CSPTRS
subroutine csptrf(UPLO, N, AP, IPIV, INFO)
CSPTRF
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine cspsv(UPLO, N, NRHS, AP, IPIV, B, LDB, INFO)
CSPSV computes the solution to system of linear equations A * X = B for OTHER matrices ...