subroutine cmptm2r (yd1,t1,yd2,t2,iflag)
c
c----------------------------------------------------------------------|
c     iflag = -1  time1 < time2                                        |
c     iflag =  0  time1 = time2                                        |
c     iflag = +1  time1 > times                                        |
c----------------------------------------------------------------------|
c
      integer*4 iflag
c
      real*8    yd1,t1,yd2,t2
c
c-----------------------------------------------------------------------
c
      if (yd1 .lt. yd2) then
         iflag=-1
      else if (yd1 .gt. yd2) then
         iflag=1
      else if (t1 .lt. t2) then
         iflag=-1
      else if (t1 .gt. t2) then
         iflag=1
      else
         iflag=0
      end if
c
c-----------------------------------------------------------------------
c
      return
      end