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

trunk/SophyaExt/XephemAstroLib/rings.c

@@ -1 +1 @@
 #include <stdio.h>
 #include <math.h>
-#if defined(__STDC__)
 #include <stdlib.h>
-#endif
 
-#include "P_.h"
 #include "astro.h"
-#include "circum.h"
 
 /*  RINGS OF SATURN by Olson, et al, BASIC Code from Sky & Telescope, May 1995.
@@ -14 +10 @@
  */
 void
-satrings (sb, sl, sr, el, er, JD, etiltp, stiltp)
-double sb, sl, sr;              /* Saturn hlat, hlong, sun dist */
-double el, er;                  /* Earth hlong, sun dist */
-double JD;                      /* Julian date */
-double *etiltp, *stiltp;        /* tilt from earth and sun, rads southward */
+satrings (
+double sb, double sl, double sr,        /* Saturn hlat, hlong, sun dist */
+double el, double er,                   /* Earth hlong, sun dist */
+double JD,                              /* Julian date */
+double *etiltp, double *stiltp)         /* tilt from earth and sun, rads south*/
 {
         double t, i, om;
@@ -45 +41 @@
         *stiltp = bp;
 }
+
+/* For RCS Only -- Do Not Edit */
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: rings.c,v $ $Date: 2004-06-15 16:52:40 $ $Revision: 1.2 $ $Name: not supported by cvs2svn $"};