subroutine deffrar (kode)
c
c routine updates the information in the /fratms/ common, to
c reflect the current frame time limits.   the start of the frame is
c taken to be the current start time in /comlim/.   the stop time
c is computed from this start time, +ndiv* duration in /comtms/.
c (the current subperiod would already be defined with a call to
c lmsnxt by the time this routine is called).
c
c v1.0 jfe johnson 23 jul 82
c
      logical*1 first
      integer*4 kode
      integer*4 iflag
      real*8 run_times(4),frame_times(4),strip_times(4),inc,dur,rndiv,
     *             temp
      common/comlim/strip_times
      common/comtms/run_times,inc,dur
      common/fratms/frame_times,ndiv
      data   first/.true./
c
      kode=1
      if (inc .le. 0) return
      rndiv=ndiv
      temp=rndiv*inc
      if (first) then
         kode=0
         call addtm2r (frame_times(1),frame_times(2),temp,
     *                   frame_times(3),frame_times(4))
         first=.false.
      else
         call cmptm2r (frame_times(3),frame_times(4),
     *                       run_times(3),run_times(4),iflag)
         if (iflag .ge. 0) return
         kode=0
         frame_times(1)=frame_times(3)
         frame_times(2)=frame_times(4)
         call addtm2r (frame_times(1),frame_times(2),temp,
     *                   frame_times(3),frame_times(4))
         strip_times(1)=frame_times(1)
         strip_times(2)=frame_times(2)
         call addtm2r (strip_times(1),strip_times(2),dur,
     *                   strip_times(3),strip_times(4))
      end if
c
      return
      end