Changeset 2818 in Sophya for trunk/SophyaExt/XephemAstroLib/plmoon.c

Timestamp:

Aug 21, 2005, 12:02:40 PM (20 years ago)

Author:

cmv

Message:

Update de Xephem 3.7 cmv 21/08/2005

File:

• trunk/SophyaExt/XephemAstroLib/plmoon.c (modified) (3 diffs)

trunk/SophyaExt/XephemAstroLib/plmoon.c

@@ -23 +23 @@
 static void init1BI (int idx, int pl, int moon, char *name);
 static void initPlobj(void);
-static void initDir(void);
 static void rotate (double a, double *x, double *y);
 
@@ -111 +110 @@
 
         /* init plobj[] */
-        if (!((Obj *)&plobj[0])->o_type) {
+        if (!((Obj *)&plobj[0])->o_type)
             initPlobj();
-            initDir();
-        }
 
         /* get sun @ np */
@@ -226 +223 @@
             ((Obj*)&plobj[i])->pl_code = i;
         }
-}
-
-/* install a default if no moondir set yet */
-static void
-initDir()
-{
-        if (!moondir)
-            moondir = ".";
 }