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
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real b(3) integer i
logical function lsame(CA, CB)
LSAME
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 ...