Subroutine:   EPOCO

Purpose:      Transforms equatorial coordinates from one epoch
              to another epoch.

File:         skyco.c

Author:       K.G. Begeman

Use:          CALL EPOCO( RA1    ,   Input    double precision
                          DEC1   ,   Input    double precision
                          EPOCH1 ,   Input    double precision
                          RA2    ,   Output   double precision
                          DEC2   ,   Output   double precision
                          EPOCH2 )   Input    double precision

              RA1         Input R.A. in degrees at EPOCH1.
              DEC1        Input Dec. in degrees at EPOCH1.
              EPOCH1      EPOCH1 in years for RA1 and DEC1.
              RA2         Output R.A. in degrees at EPOCH2.
              DEC2        Output Dec. in degrees at EPOCH2
              EPOCH2      EPOCH2 in years for RA2 and DEC2.

Updates:      Feb  5, 1990: KGB, Document created.