subroutine cmptm2 (iyd1, it1, iyd2, it2, iflag)
c
c-----------------------------------------------------------------------
c
c     Routine compares two times specified on the form ydoy and millisec
c
c-----------------------------------------------------------------------
c
c     iflag = -1 if t-1 < t-2
c           =  0        =
c           =  1        >
c
c-----------------------------------------------------------------------
c
      integer*4 iflag, it1, it2, iyd1, iyd2
c
c-----------------------------------------------------------------------
c-----------------------------------------------------------------------
c
      iflag = 0
      if (iyd1 .lt. iyd2) then
         iflag = -1
      else if (iyd1 .gt. iyd2) then
         iflag = 1
      else
         if (it1 .lt. it2) then
            iflag = -1
         else if (it1 .gt. it2) then
            iflag = 1
         end if
      end if
c
c-----------------------------------------------------------------------
c-----------------------------------------------------------------------
c
      return
      end