115 SUBROUTINE sptsv( N, NRHS, D, E, B, LDB, INFO )
123 INTEGER info, ldb, n, nrhs
126 REAL b( ldb, * ), d( * ), e( * )
144 ELSE IF( nrhs.LT.0 )
THEN
146 ELSE IF( ldb.LT.max( 1, n ) )
THEN
150 CALL
xerbla(
'SPTSV ', -info )
156 CALL
spttrf( n, d, e, info )
161 CALL
spttrs( n, nrhs, d, e,
b, ldb, info )
subroutine sptsv(N, NRHS, D, E, B, LDB, INFO)
SPTSV computes the solution to system of linear equations A * X = B for PT matrices ...
subroutine spttrs(N, NRHS, D, E, B, LDB, INFO)
SPTTRS
subroutine xerbla(SRNAME, INFO)
XERBLA
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real b(3) integer i
subroutine spttrf(N, D, E, INFO)
SPTTRF