subroutine lmstst (kode)
c
c-----------------------------------------------------------------------
c
c     Checks to see if any of the record defined by the commom area
c     /blktim/ is within the current time limits defined by the common
c     area /com_times/.
c
c-----------------------------------------------------------------------
c
c     kode = -1 current time before start time
c     kode =  0 current time between start, stop times
c     kode =  1 current time after stop time
c
c-----------------------------------------------------------------------
c
      integer*4 icollect_times(4), idur, iflag, inc, irun_times(4), it, 
     *          iyd, kode, recipf
c
      common /blktim/iyd,it,
     *       /com_times/irun_times, icollect_times, idur, inc
c
      data   len,recipf/8000,15/
c
c-----------------------------------------------------------------------
c     *** calculate end time of record ***
c-----------------------------------------------------------------------
c
      iy = iyd
      itt  = it + len - recipf
      if (itt .ge. 86400000) then
         itt = itt - 86400000
         iy = iy + 1     ! no check for year crossing
      end if
c
c-----------------------------------------------------------------------
c     *** see if end of record prior to start time ***
c-----------------------------------------------------------------------
c
      kode = -1
      call cmptm2 (iy, itt, icollect_times(1), icollect_times(2), iflag)
      if (iflag .eq. -1) return
      kode = 1
c
c-----------------------------------------------------------------------
c     *** see if start of record ofter end time ***
c-----------------------------------------------------------------------
c
      call cmptm2 (iyd, it, icollect_times(3), icollect_times(4), iflag)
      if (iflag .eq. 1) return
      kode = 0
c
c-----------------------------------------------------------------------
c-----------------------------------------------------------------------
c
      return
      end