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

trunk/SophyaExt/XephemAstroLib/refract.c

@@ -2 +2 @@
 #include <math.h>
 
-#include "P_.h"
 #include "astro.h"
 
-static void unrefractLT15 P_((double pr, double tr, double aa, double *ta));
-static void unrefractGE15 P_((double pr, double tr, double aa, double *ta));
+static void unrefractLT15 (double pr, double tr, double aa, double *ta);
+static void unrefractGE15 (double pr, double tr, double aa, double *ta);
 
 void
-unrefract (pr, tr, aa, ta)
-double pr, tr;
-double aa;
-double *ta;
+unrefract (double pr, double tr, double aa, double *ta)
 {
 #define LTLIM   14.5
@@ -35 +31 @@
 
 static void
-unrefractGE15 (pr, tr, aa, ta)
-double pr, tr;
-double aa;
-double *ta;
+unrefractGE15 (double pr, double tr, double aa, double *ta)
 {
         double r;
@@ -47 +40 @@
 
 static void
-unrefractLT15 (pr, tr, aa, ta)
-double pr, tr;
-double aa;
-double *ta;
+unrefractLT15 (double pr, double tr, double aa, double *ta)
 {
         double aadeg = raddeg(aa);
@@ -67 +57 @@
  */
 void
-refract (pr, tr, ta, aa)
-double pr, tr;
-double ta;
-double *aa;
+refract (double pr, double tr, double ta, double *aa)
 {
 #define MAXRERR degrad(0.1/3600.)       /* desired accuracy, rads */
@@ -102 +89 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: refract.c,v $ $Date: 2002-02-07 09:27:06 $ $Revision: 1.3 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: refract.c,v $ $Date: 2004-06-15 16:52:40 $ $Revision: 1.4 $ $Name: not supported by cvs2svn $"};