163 SUBROUTINE dspsv( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO )
172 INTEGER INFO, LDB, N, NRHS
176 DOUBLE PRECISION 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(
'DSPSV ', -info )
212 CALL
dsptrf( uplo, n, ap, ipiv, info )
217 CALL
dsptrs( uplo, n, nrhs, ap, ipiv, b, ldb, info )
subroutine dsptrs(UPLO, N, NRHS, AP, IPIV, B, LDB, INFO)
DSPTRS
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine dsptrf(UPLO, N, AP, IPIV, INFO)
DSPTRF
subroutine dspsv(UPLO, N, NRHS, AP, IPIV, B, LDB, INFO)
DSPSV computes the solution to system of linear equations A * X = B for OTHER matrices ...