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 ...