      REAL*8 FUNCTION UT2TD(JD)
!
!     GIVEN JULIAN DAY NUMBER AND FRACTION IN UNIVERSAL TIME (UT)
!     RETURN DYNAMICAL (EPHEMERIS) TIME (TD).
!
!     B. KNAPP, 1996-01-26
!
C
C     RCS DATA
C     
C     $Header$
C     
C     $Log$
C
C
      IMPLICIT NONE
!
!     INPUT
      REAL*8 JD
!
!     LOCAL
      REAL*8 YR8
!
!     FUNCTIONS, SUBROUTINES
      REAL*8 DELTAT
      EXTERNAL DELTAT
!
      YR8 = 2000.0D0+(JD-2451545.0D0)/365.25D0
      UT2TD = JD + DELTAT( YR8 )/86400.D0
!
      RETURN
      END
