subroutine is_between (irec_yd1, irec_ms1, iyd1, ims1, iyd2,
     *                       ims2, kode)
c
c-----------------------------------------------------------------------
c     checks to see if any part of a RIMS MF1 record is between time1
c     and time2
c
c     before  = -1
c     between =  0
c     after   =  1
c-----------------------------------------------------------------------
c
      integer*4 irec_yd1, irec_ms1, iyd1, ims1, iyd2, ims2, kode
      integer*4 irec_yd2, irec_ms2
c
c-----------------------------------------------------------------------
c     get the end time of the record
c-----------------------------------------------------------------------
c
      call addtm2 (irec_yd1, irec_ms1, 8000, irec_yd2, irec_ms2)
c
c-----------------------------------------------------------------------
c     check to see if record end time prior to start time, if after,
c     check to see if record start time after stop time
c-----------------------------------------------------------------------
c
      call cmptm2 (irec_yd2, irec_ms2, iyd1, ims1, kode)
      if (kode .eq. -1) then
         return
      else if (kode .eq. 1) then
         call cmptm2 (irec_yd1, irec_ms1, iyd2, ims2, kode)
         if (kode .eq. 1) return
      end if
      kode = 0
c
c-----------------------------------------------------------------------
c-----------------------------------------------------------------------
c
      return
      end