!     PROGRAM XTD2UT
!
!     EXERCISE DRIVER FOR FUNCTIONS TD2UT AND UT2TD
!
!     B. KNAPP, 96.01.24
!
C
C     RCS DATA
C     
C     $Header$
C     
C     $Log$
C
C
      IMPLICIT NONE
!
      REAL*8 TD,JD,TD2,TD2UT,UT2TD
      EXTERNAL TD2UT,UT2TD
!
    1 WRITE(*,'(/A$)') ' TD (JDN AND FRACTION)? '
      READ(*,*) TD
!
      JD  = TD2UT(TD)
      TD2 = UT2TD(JD)
      WRITE(*,10) TD, JD, TD2
      GOTO 1
   10 FORMAT(2F24.12/F24.12)
      END