%N aberrate %F $MIR/src/subs/ephem.for
%D Convert RA,DEC from true to geocentric apparent coords.
%P rjs
%: utilities
%B
        subroutine aberrate(jday,ra,dec,rapp,dapp)

        implicit none
        double precision jday,ra,dec,rapp,dapp

  Account for the effect of annual aberration, to convert
  from a true (RA,DEC) to a geocentric apparent (RA,DEC).

  Input:
    jday       Julian date.
    ra,dec     True (RA,DEC).
  Output:
    rapp,dapp  Geocentric apparent (RA,DEC).
