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

trunk/SophyaExt/XephemAstroLib/sdp4.c

@@ -96 +96 @@
 
 void
-sdp4 (sat, pos, dpos, TSINCE)
-SatData *sat;
-Vec3 *pos;
-Vec3 *dpos;
-double TSINCE;
+sdp4 (SatData *sat, Vec3 *pos, Vec3 *dpos, double TSINCE)
 {
     int i;
@@ -109 +105 @@
 
     /* private temporary variables */
-    double A,AXN,AYN,AYNL,BETA,BETAL,CAPU,COS2U,COSEPW,
+    double A,AXN,AYN,AYNL,BETA,BETAL,CAPU,COS2U,COSEPW=0,
         COSIK,COSNOK,COSU,COSUK,E,ECOSE,ELSQ,EM=0,EPW,ESINE,OMGADF,PL,
-        R,RDOT,RDOTK,RFDOT,RFDOTK,RK,SIN2U,SINEPW,SINIK,SINNOK,
-        SINU,SINUK,TEMP,TEMP1,TEMP2,TEMP3,TEMP4,TEMP5,TEMP6,TEMPA,
+        R,RDOT,RDOTK,RFDOT,RFDOTK,RK,SIN2U,SINEPW=0,SINIK,SINNOK,
+        SINU,SINUK,TEMP,TEMP1,TEMP2,TEMP3=0,TEMP4=0,TEMP5=0,TEMP6=0,TEMPA,
         TEMPE,TEMPL,TSQ,U,UK,UX,UY,UZ,VX,VY,VZ,XINC=0,XINCK,XL,XLL,XLT,
         XMAM,XMDF,XMX,XMY,XN,XNODDF,XNODE,XNODEK;
@@ -432 +428 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: sdp4.c,v $ $Date: 2001-10-22 12:08:28 $ $Revision: 1.2 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: sdp4.c,v $ $Date: 2004-06-15 16:52:40 $ $Revision: 1.3 $ $Name: not supported by cvs2svn $"};