PROGRAM XABERRAT
C
C     EXERCISE DRIVER FOR SUBROUTINE ABERRATION.FOR
C
C     B. KNAPP, 93.06.21
C
C
C     RCS DATA
C     
C     $Header$
C     
C     $Log$
C
C
      IMPLICIT NONE
      INTEGER*4 Y,M
      REAL*8 D,JD,RA,DEC,DRA,DDEC
      REAL*8 D2R
      PARAMETER (D2R=3.14159265358979324D0/180.D0)
C
C
    1 WRITE(*,'(/A$)') ' YEAR, MONTH, DAY '
      READ(*,*) Y,M,D
C
      WRITE(*,'(A$)') ' RA, DEC (DEG)? '
      READ(*,*) RA,DEC
C
      CALL YMD2JD(Y,M,D,JD)
      WRITE(*,*) ' JD =',JD
C
      CALL ABERRAT(JD,RA*D2R,DEC*D2R,DRA,DDEC)
C
      WRITE(*,10) DRA/D2R,DDEC/D2R
   10 FORMAT(' ==> DRA, DDEC: ',1P2E16.7)
      GOTO 1
      END