Changeset 2551 in Sophya for trunk/SophyaExt/XephemAstroLib/libration.c

Timestamp:

Jun 15, 2004, 6:54:12 PM (21 years ago)

Author:

cmv

Message:

nouvelle version de xephem/libastro (3.6) cmv 15/6/04

File:

• trunk/SophyaExt/XephemAstroLib/libration.c (modified) (6 diffs)

trunk/SophyaExt/XephemAstroLib/libration.c

@@ -35 +35 @@
 #include <math.h>
 
-#include "P_.h"
 #include "astro.h"
 
@@ -71 +70 @@
    answer in arc seconds.  */
 static double
-mods3600 (x)
-     double x;
+mods3600 (double x)
 {
   double y;
@@ -85 +83 @@
    n is the highest harmonic to compute.  */
 static int
-sscc (k, arg, n)
-     int k;
-     double arg;
-     int n;
+sscc (int k, double arg, int n)
 {
   double cu, su, cv, sv, s;
@@ -123 +118 @@
 
 static int
-dargs (J, plan)
-     double J;
-     struct plantbl *plan;
+dargs (double J, struct plantbl *plan)
 {
   double T2, w;
@@ -229 +222 @@
 
 static double
-gplan (J, plan)
-     double J;
-     struct plantbl *plan;
+gplan (double J, struct plantbl *plan)
 {
   double su, cu, sv, cv;
@@ -2213 +2204 @@
  */
 void
-llibration (JD, llatp, llonp)
-double JD;
-double *llatp;
-double *llonp;
+llibration (double JD, double *llatp, double *llonp)
 {
-        double lon, lat;        /* arc seconds */
+        double lg, lt;  /* arc seconds */
         
-        lon = gplan (JD, &liblon);
-        lat = gplan (JD, &liblat);
-
-        *llonp = degrad (lon/3600.0);
-        *llatp = degrad (lat/3600.0);
+        lg = gplan (JD, &liblon);
+        lt = gplan (JD, &liblat);
+
+        *llonp = degrad (lg/3600.0);
+        *llatp = degrad (lt/3600.0);
 }
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: libration.c,v $ $Date: 2001-10-22 12:08:27 $ $Revision: 1.2 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: libration.c,v $ $Date: 2004-06-15 16:52:39 $ $Revision: 1.3 $ $Name: not supported by cvs2svn $"};