subroutine lmsnxtr (kode)
c
c update new current processing limits
c update jfej 9 dec 81 uses deluns
c corrections jfej 23 jan 81
c
      real*8    run_times(4),inc,idur,strip_times(4),itsav,iydsav,
     *                frame_times(4)
      integer*4 iflag
      common/comtms/run_times,idur,inc
      common/fratms/frame_times
      common/comlim/strip_times
      common/deluns/lundat,luni,luno
c
      kode=1
c
c are subperiods defined ?
c
      if(inc.le.0.and.idur.le.0)return
c
c is the current one the last ?
c
      call cmptm2r (strip_times(3),strip_times(4),frame_times(3),
     *                frame_times(4),iflag)
      if(iflag.ge.0)return
c
c update current limits to new sub-period
c
      kode=0
      iydsav=strip_times(1)
      itsav=strip_times(2)
      call addtm2r (iydsav,itsav,inc,strip_times(1),strip_times(2))
      call addtm2r (strip_times(1),strip_times(2),idur,strip_times(3),
     *                strip_times(4))
      return
      end