REAL*8 FUNCTION MJD2JD(MJD, TIME)
C
      INTEGER*4  MJD
      REAL*8  TIME, JD, TWOPI
C
      TWOPI = 6.2831853071795865d0
      JD = DFLOAT(MJD) + 2400000.0D0
      TIME = DMOD(TIME,TWOPI)
      JD = JD + TIME / TWOPI + 0.5D0
C
      MJD2JD = JD
      RETURN
      END