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