subroutine addtm2r (iyd1,it1,inc,iyd2,it2)
c
c adds a positive increment inc (in ms) to the time in iyd1, it1
c
c v1.0 jfe johnson 31 oct 81
c
c
c note no checks for leap years etc !!!
c
      real*8 iyd1,it1,iyd2,it2,inc
c
      it2=it1+inc
      iyd2=iyd1
      do while (it2 .ge. 86400000000.0d0)
         it2=it2-86400000000.0d0
         iyd2=iyd2+1.0d0
      end do
c
c
      return
      end