      PROGRAM XCARR2UT
!
!     EXERCISE DRIVER FOR FUNCTIONS CARR2UT, UT2CARR
!
!     B. KNAPP, 1999-12-02, 2001-04-25 (ADD UT2CARR)
!
C
C     RCS DATA
C     
C     $Header$
C     
C     $Log$
C
C
      IMPLICIT NONE
!
!     LOCAL VARIABLES
      REAL*8 CARR, UT1, UT2
!
!     EXTERNAL FUNCTIONS
      REAL*8 CARR2UT, UT2CARR
      EXTERNAL CARR2UT, UT2CARR
!
!     GET JULIAN DAY NUMBER FROM STANDARD IN
 1    WRITE(*,'(/a$)') ' JULIAN DAY NUMBER (& FRACTION)? '
      READ(*,*) UT1
      CARR = UT2CARR( UT1 )
      UT2 = CARR2UT( CARR )
      WRITE(*,'(f20.8)') CARR
      WRITE(*,'(f20.8)') UT1
      WRITE(*,'(f20.8)') UT2
      GOTO 1
!
      end
