=========================== ============================ IMCCE - Observatoire de Paris and UNIVERSITE DES SCIENCES ET TECHNOLOGIES DE LILLE /pub/misc/invited/satel_tass16 1996, march 19 =========================== ============================ TASS 1.6 FORTRAN source code for ephemerides issued from the new theory of high precision of the motion of the main Saturnian satellites TASS 1.6. (1995, A&A 297, 588-605) AUTHORS : Alain VIENNE et Luc DURIEZ E_MAIL: VIENNE@GAT.UNIV-LILLE1.FR DURIEZ@GAT.UNIV-LILLE1.FR ADDRESS : UNIVERSITE DES SCIENCES ET TECHNOLOGIES DE LILLE Laboratoire d'Astronomie 1 Impasse de l'Observatoire F-59000 LILLE FRANCE CONTENTS: exampl.f Example of a FORTRAN main programme posired.f FORTRAN subroutines tass16.dat Series ******************************************************************************** * EPHEMERIDES OF THE MAJOR SATURNIAN SATELLITES * TASS1.6 by A. Vienne and L. Duriez (1995, A&A 297, 588-605) ******************************************************************************** * e-mail: VIENNE@GAT.UNIV-LILLE1.FR * e-mail: DURIEZ@GAT.UNIV-LILLE1.FR * Positions and velocities of the satellites Mimas, Enceladus, Tethys, * Dione, Rhea, Titan and Iapetus referred to the center of Saturn and to * the mean ecliptic and mean equinox for J2000.0 epoch ******************************************************************************** * Installation of TASS * ==================== * from the ftp-anonymous server of Bureau des longitudes: * ftp://ftp.imcce.fr * and from the directory * /pub/misc/invited/satel_tass16 * get the following files: * exampl.f : examples of a main program which uses the subroutines and data * posired.f : contains the subroutines * tass16.dat: contains the series used by these subroutines ******************************************************************************** * Use of TASS: * =========== * Before any use, it is necessary to call one and only one time the * subroutine LECSER which fixes some parameters and read all the series * of TASS. The parameters of LECSER are: * * - the name of the file which contains the series * ( here:'tass16.dat') * - an integer*4 (0: to select all terms, 1: to select only the critical * terms). Here, for a correct use, this parameter MUST BE 0 (icrt=0). * So, it is now possible to compute the position of a satellite with * the subroutine POSIRED. * The input parameters of this subroutine are: * - a real*8 for the julian date (not corrected for light-time) * - an integer*4 for the number of the satellite (1: Mimas, 2: Enceladus, * 3: Tethys, 4: Dione, 5: Rhea, 6: Titan, 8: Japetus) * The output parameters of this subroutine are: * - an array of 3 real*8 for the 3 cartesian coordinates of the position * in astronomical unit (ua), referred to the center of Saturn and to the mean * Equinox and Ecliptic 2000 (E2000) * - an array of 3 real*8 for the 3 cartesian coordinates of the velocity * in astronomical unit per julian year of 365.25d (ua/y), in the same frame * of reference. ******************************************************************************** * The file exampl.f contains an example for the use of these ephemerides * and gives numerical values in order to compare your own results. ******************************************************************************** * The present version has been checked on a Work Station: * IBM RISC 6000 mod. 360 ( AIX 3.2.5 & X11R5 1.2.4 ) ================================================================================ User feed-back is encouraged. Unless otherwise specified, send comments and bug reports to: E-mail : comments@imcce.fr Fax : (33) 1 46 33 28 34 Postal mail: IMCCE - Observatoire de Paris 77 avenue Denfert Rochereau F-75014 PARIS ================================================================================