subroutine orbsav
c
c-----------------------------------------------------------------------
c
c     Saves the orbit data from the current data record.
c     Data is saved in /hedsav/.
c
c-----------------------------------------------------------------------
c
      integer*2 idat(2812)
c
      integer*4 header(24)
c
      common    /hedsav/header,
     *          /maf1/idat
c
c-----------------------------------------------------------------------
c-----------------------------------------------------------------------
c
      do i = 1, 24
         header(i) = idat(i)
      end do
c
c-----------------------------------------------------------------------
c-----------------------------------------------------------------------
c
      return
      end