%N nutate %F $MIR/src/subs/ephem.for
%D Convert from mean to true equatorial coordinates.
%P rjs
%: utilities
%B
        subroutine Nutate(jday,rmean,dmean,rtrue,dtrue)

        implicit none
        double precision jday,rmean,dmean,rtrue,dtrue

  Convert between mean and true equatorial coordinates, by
  accounting for nutation.

  Input:
    jday       Julian day.
    rmean,dmean Mean (RA,DEC) at jday.
  Output:
    rtrue,dtrue True (RA,DEC) at jday.
