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

trunk/SophyaExt/XephemAstroLib/ap_as.c

@@ -1 +1 @@
 #include <string.h>
 
-#include "P_.h"
 #include "astro.h"
-#include "circum.h"
 
 /* convert the given apparent RA/Dec to astrometric precessed to Mjd IN PLACE.
@@ -11 +9 @@
  */
 void
-ap_as (np, Mjd, rap, decp)
-Now *np;
-double Mjd;
-double *rap, *decp;
+ap_as (Now *np, double Mjd, double *rap, double *decp)
 {
         Obj o;
@@ -29 +24 @@
         *rap -= o.s_ra - *rap;
         *decp -= o.s_dec - *decp;
-        if (*decp >  PI/2) {*decp =  PI - *decp; *rap += PI; }
-        if (*decp < -PI/2) {*decp = -PI - *decp; *rap += PI; }
-        range (rap, 2*PI);
+        radecrange (rap, decp);
         precess (mjd, Mjd, rap, decp);
+        radecrange (rap, decp);
 }
 
@@ -39 +33 @@
  */
 void
-as_ap (np, Mjd, rap, decp)
-Now *np;
-double Mjd;
-double *rap, *decp;
+as_ap (Now *np, double Mjd, double *rap, double *decp)
 {
         Obj o;
@@ -60 +51 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: ap_as.c,v $ $Date: 2001-10-22 12:08:26 $ $Revision: 1.2 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: ap_as.c,v $ $Date: 2004-06-15 16:52:37 $ $Revision: 1.3 $ $Name: not supported by cvs2svn $"};