subroutine Remove_Set( NSets, k, ClsLvl, IntlNo, EltSet, EphTyp,
     &   Orbit, Epoch, dNdT, d2NdT2, bStar, Incl, Node, E, Omega, M, N )
!
!     Remove TLE set k from the list of all TLE sets.
!
!     B. Knapp, 2000-05-02
!
      implicit none
!
!     Input
      integer NSets, k
!
!     Input/Output
      real*8 Epoch(NSets), dNdT(NSets), d2NdT2(NSets), bStar(NSets),
     &   Incl(NSets), Node(NSets), E(NSets), Omega(NSets), M(NSets),
     &   N(NSets)
      character*8 IntlNo(NSets)
      integer*4 EltSet(NSets), Orbit(NSets)
      character*1 ClsLvl(NSets), EphTyp(NSets)
!
!     Local
      integer j
!
!     write(*,*) ' Removing Set ', k, Epoch(k)
      do j=k,NSets-1
         ClsLvl(j) = ClsLvl(j+1)
         IntlNo(j) = IntlNo(j+1)
         EltSet(j) = EltSet(j+1)
         EphTyp(j) = EphTyp(j+1)
         Orbit(j) = Orbit(j+1)
         Epoch(j) = Epoch(j+1)
         dNdT(j) = dNdT(j+1)
         d2NdT2(j) = d2NdT2(j+1)
         bStar(j) = bStar(j+1)
         Incl(j) = Incl(j+1)
         Node(j) = Node(j+1)
         E(j) = E(j+1)
         Omega(j) = Omega(j+1)
         M(j) = M(j+1)
         N(j) = N(j+1)
      enddo
      return
      end