Changeset 1719 in Sophya for trunk/SophyaExt/XephemAstroLib/ap_as.c

Timestamp:

Oct 22, 2001, 2:08:28 PM (24 years ago)

Author:

cmv

Message:

Adapted to version 3.5 xephem cmv 22/10/2001

File:

• trunk/SophyaExt/XephemAstroLib/ap_as.c (modified) (2 diffs)

trunk/SophyaExt/XephemAstroLib/ap_as.c

@@ -28 +28 @@
         obj_cir (&n, &o);
         *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);
-        *decp -= o.s_dec - *decp;
-        if (*decp >  PI/2) *decp =  PI - *decp;
-        if (*decp < -PI/2) *decp = -PI - *decp;
         precess (mjd, Mjd, rap, decp);
 }
@@ -60 +60 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: ap_as.c,v $ $Date: 2001-04-10 14:40:45 $ $Revision: 1.1.1.1 $ $Name: not supported by cvs2svn $"};
+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 $"};