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

trunk/SophyaExt/XephemAstroLib/sphcart.c

@@ -1 +1 @@
 #include <math.h>
-#include "P_.h"
+#include <stdio.h>
+
 #include "astro.h"
 
 /* transformation from spherical to cartesian coordinates */
 void
-sphcart (l, b, r, x, y, z)
-double l, b, r;         /* source: spherical coordinates */
-double *x, *y, *z;      /* result: rectangular coordinates */
+sphcart (
+double l, double b, double r,           /* source: spherical coordinates */
+double *x, double *y, double *z)        /* result: rectangular coordinates */
 {
         double rcb = r * cos(b);
@@ -18 +19 @@
 /* transformation from cartesian to spherical coordinates */
 void
-cartsph (x, y, z, l, b, r)
-double x, y, z;         /* source: rectangular coordinates */
-double *l, *b, *r;      /* result: spherical coordinates */
+cartsph (
+double x, double y, double z,           /* source: rectangular coordinates */
+double *l, double *b, double *r)        /* result: spherical coordinates */
 {
         double rho = x*x + y*y;
@@ -40 +41 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: sphcart.c,v $ $Date: 2001-10-22 12:08:28 $ $Revision: 1.2 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: sphcart.c,v $ $Date: 2004-06-15 16:52:40 $ $Revision: 1.3 $ $Name: not supported by cvs2svn $"};