CHAPTER 9    ASTRONOMY MODULES





            9.1 ANGSEP SUBROUTINE



                 This subroutine  computes  the  angular  separation  on  the

            celestial sphere between two given positions.



            Call:



                  CALL ANGSEP(RIGHTASC1,DECLINA1,RIGHTASC2,DECLINA2,SEP)



            where:



            NAME      I/O  TYPE         DESCRIPTION

            NAME      I/O  TYPE         DESCRIPTION

            RIGHTASC1  C    R8    The right ascension of the  first  position

                                  in decimal hours.



            DECLINA1   C    R8    The declination of the  first  position  in

                                  decimal degrees.



            RIGHTASC2  C    R8    The right ascension of the second  position

                                  in decimal hours.



            DECLINA2   C    R8    The declination of the second  position  in

                                  decimal degrees.



            SEP        R    R8    The angular separation in decimal degrees.











            9.2 BESSYRJULCENT



            9.3 DATEJD



            9.4 DHHMS



            9.5 EARTH



            9.6 ECLIPTEQ



            9.7 ECLIPTEQMAIN



            9.8 EQECL



            9.9 EQECLMAIN



            9.10 EQECLIPT



            9.11 EQHOR



            9.12 EQSTANDRD


                                                                Page 2





            9.13 ETDATEJCBY



            9.14 GSTGMT



            9.15 HMSDH



            9.16 KEPLER



            9.17 MARS



            9.18 NUTATION



            9.19 OBLIQUITY



            9.20 PARALLAXFACTORS



            9.21 PLANETS



            9.22 STANDARDEQ



            9.23 UTGST



            9.24 XYZECEQ



            9.25 XYZXYZ