115 SUBROUTINE dptsv( N, NRHS, D, E, B, LDB, INFO )
123 INTEGER INFO, LDB, N, NRHS
126 DOUBLE PRECISION B( ldb, * ), D( * ), E( * )
144 ELSE IF( nrhs.LT.0 )
THEN
146 ELSE IF( ldb.LT.max( 1, n ) )
THEN
150 CALL
xerbla(
'DPTSV ', -info )
156 CALL
dpttrf( n, d, e, info )
161 CALL
dpttrs( n, nrhs, d, e, b, ldb, info )
subroutine dpttrf(N, D, E, INFO)
DPTTRF
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine dpttrs(N, NRHS, D, E, B, LDB, INFO)
DPTTRS
subroutine dptsv(N, NRHS, D, E, B, LDB, INFO)
DPTSV computes the solution to system of linear equations A * X = B for PT matrices ...