subroutine lmststr (kode)
c
c a lmstst routine for the d.e. data processing software
c v1.0 jfej      13 nov 81
c v1.1 jfej      26 feb 82 can use negative iyd1,it1 for record limits
c returns a kode value depending on time of current data
c block in /blktim/ and current start and stop time limits
c in /comlim/.   
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
      integer*4 iyd,it,iflag
c
      real*8 strip_times(4),ryds,rts,ryde,rte
c
      common/comlim/strip_times
      common/blktim/iyd,it
      common/mafblk/nrec
      common/idebug/idebug
c
      kode=-1
c
c-----------------------------------------------------------------------
c          get start and stop time of current record
c-----------------------------------------------------------------------
c
      ryds=iyd
      rts=float(it)*1000.0d0
      ryde=iyd
      rte=rts+8000000.0d0     ! actually start of next record
      if (rte .ge. 86400000000.0d0) then
         rte=rte-86400000000.0d0
         ryde=ryde+1.0d0            ! beware no check on years !
      end if
c
c-----------------------------------------------------------------------
c          see if record end time prior to strip start time
c                 if it is set to read next record
c-----------------------------------------------------------------------
c
      call cmptm2r (ryde,rte,strip_times(1),strip_times(2),iflag)
      if (iflag .lt. 1) return
      kode=1
c
c-----------------------------------------------------------------------
c         see if record start time after strip end time
c             if it is set to get next time limits
c-----------------------------------------------------------------------
c
      call cmptm2r (ryds,rts,strip_times(3),strip_times(4),iflag)
      if (iflag .eq. 1) return
      kode=0
c
c-----------------------------------------------------------------------
c-----------------------------------------------------------------------
c
      return
      end