subroutine tsls(a,x,r,m)
integer m
real a(1),x(m),r(1)
c
c tsls calls tsls1 to solve the real linear system
c a * x = b
c with the t - matrix a .
c
c on entry
c
c a real(2*m - 1)
c the first row of the t - matrix followed by its
c first column beginning with the second element .
c on return a is unaltered .
c
c x real(m)
c the right hand side vector b .
c
c r real(2*m - 2)
c a work vector .
c
c m integer
c the order of the matrix a .
c
c on return
c
c x the solution vector .
c
c toeplitz package. this version dated 07/23/82 .
c
c subroutines and functions
c
c toeplitz package ... tsls1
c
c call subroutine tsls1
c
call tsls1(a,a(m+1),x,x,r,r(m),m)
c
return
end