subroutine tslc(a,x,r,m)
      integer m
      complex a(1),x(m),r(1)
c
c     tslc calls tslc1 to solve the complex linear system
c     a * x = b
c     with the t - matrix a .
c
c     on entry
c
c        a       complex(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       complex(m)
c                the right hand side vector b .
c
c        r       complex(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 ... tslc1
c
c     call subroutine tslc1
c
      call tslc1(a,a(m+1),x,x,r,r(m),m)
c
      return
      end