Changeset 2551 in Sophya for trunk/SophyaExt/XephemAstroLib/mooncolong.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/mooncolong.c (modified) (7 diffs)

trunk/SophyaExt/XephemAstroLib/mooncolong.c

@@ -3 +3 @@
 
 #include <stdio.h>
+#include <stdlib.h>
 #include <math.h>
-#if defined(__STDC__)
-#include <stdlib.h>
-#endif
-
-#include "P_.h"
+
 #include "astro.h"
 
-static void Librations P_((double RAD, double LAMH, double BH, double OM,
-    double F, double L, double L1, double *L0, double *B0));
-static void Moon P_((double RAD, double T, double T2, double LAM0, double R,
+static void Librations (double RAD, double LAMH, double BH, double OM,
+    double F, double L, double L1, double *L0, double *B0);
+static void Moon (double RAD, double T, double T2, double LAM0, double R,
     double M, double *F, double *L1, double *OM, double *LAM, double *B,
-    double *DR, double *LAMH, double *BH));
-static void Sun P_((double RAD, double T, double T2, double *L, double *M,
-    double *R, double *LAM0));
+    double *DR, double *LAMH, double *BH);
+static void Sun (double RAD, double T, double T2, double *L, double *M,
+    double *R, double *LAM0);
 
 /* given a Julian date and a lunar location, find selenographic colongitude of
@@ -26 +23 @@
  */
 void
-moon_colong (jd, lt, lg, cp, kp, ap, sp)
-double jd;      /* jd */
-double lt, lg;  /* lat/long of location on moon, rads +N +E */
-double *cp;     /* selenographic colongitude (-lng of rising sun), rads */
-double *kp;     /* illuminated fraction of surface from Earth */
-double *ap;     /* sun altitude at location, rads */
-double *sp;     /* lunar latitude of subsolar point, rads */
+moon_colong (
+double jd,      /* jd */
+double lt,      /* lat of location on moon, rads +N +E */
+double lg,      /* long of location on moon, rads +N +E */
+double *cp,     /* selenographic colongitude (-lng of rising sun), rads */
+double *kp,     /* illuminated fraction of surface from Earth */
+double *ap,     /* sun altitude at location, rads */
+double *sp)     /* lunar latitude of subsolar point, rads */
 {
         double RAD = .0174533;
@@ -89 +87 @@
 
 static void
-Librations (RAD, LAMH, BH, OM, F, L, L1, L0, B0)
-double RAD;
-double LAMH;
-double BH;
-double OM;
-double F;
-double L;
-double L1;
-double *L0;
-double *B0;
+Librations (double RAD, double LAMH, double BH, double OM, double F,
+double L, double L1, double *L0, double *B0)
 { 
         double I, PSI, W, NUM, DEN, A, TEMP;
@@ -123 +113 @@
 
 static void
-Moon (RAD, T, T2, LAM0, R, M, F, L1, OM, LAM, B, DR, LAMH, BH)
-double RAD;
-double T;
-double T2;
-double LAM0;
-double R;
-double M;
-double *F;
-double *L1;
-double *OM;
-double *LAM;
-double *B;
-double *DR;
-double *LAMH;
-double *BH;
+Moon (double RAD, double T, double T2, double LAM0, double R, double M,
+double *F, double *L1, double *OM, double *LAM, double *B, double *DR,
+double *LAMH, double *BH)
 {
         double T3, M1, D2, SUMR, SUML, DIST;
@@ -175 +153 @@
 
 static void
-Sun (RAD, T, T2, L, M, R, LAM0)
-double RAD;
-double T;
-double T2;
-double *L;
-double *M;
-double *R;
-double *LAM0;
+Sun (double RAD, double T, double T2, double *L, double *M, double *R,
+double *LAM0)
 {
         double T3, C, V, E, THETA, OM;
@@ -238 +210 @@
         if (ac != 2) {
             fprintf (stderr, "%s: JD\n", av[0]);
-            exit (1);
+            abort();
         }
 
@@ -262 +234 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: mooncolong.c,v $ $Date: 2001-10-22 12:08:27 $ $Revision: 1.2 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: mooncolong.c,v $ $Date: 2004-06-15 16:52:39 $ $Revision: 1.3 $ $Name: not supported by cvs2svn $"};