Changeset 19719

Timestamp:

Sep 23, 2008, 3:06:18 PM (18 years ago)

Author:

eugene

Message:

fix test messages

Location:

trunk/Ohana/src/skycalc/src

Files:

• sundata.c (modified) (3 diffs)
• sunmoon.c (modified) (4 diffs)

trunk/Ohana/src/skycalc/src/sundata.c

@@ -1 +1 @@
 # include <skycalc_internal.h>
 # include <ohana.h>
+# define VERBOSE 0
 
 void SC_set_site (double *longit, double *lat, double *elevsea, double *elev) {
@@ -42 +43 @@
   date.s  = (float) (stm->tm_sec);
 
-  /*
-  fprintf (stderr, "%4d/%02d/%02d %02d:%02d:%02f\n", date.y, date.mo, date.d, date.h, date.mn, date.s);
-  */
+  if (VERBOSE) fprintf (stderr, "%4d/%02d/%02d %02d:%02d:%02f\n", date.y, date.mo, date.d, date.h, date.mn, date.s);
 
   SC_set_site (&longit, &lat, &elevsea, &elev);
@@ -52 +51 @@
   sid = SC_lst(jdnow, longit);
   SC_lpsun (jdnow, &Rsun, &Dsun);
+
+  if (VERBOSE) fprintf (stderr, "jdnow: %lf, sid: $lf\n", jdnow, sid);
 
   /* dot product of unit vectors of (RAo,DECo) & (Rsun,Dsun) */

trunk/Ohana/src/skycalc/src/sunmoon.c

@@ -77 +77 @@
   sid = SC_lst(jdnow, longitude);
 
+  if (VERBOSE) fprintf (stderr, "jdnow: %lf, sid: $lf\n", jdnow, sid);
+
   // get the sun coordinates
   SC_lpsun (jdnow, &sun_ra, &sun_dec);
@@ -84 +86 @@
   sun_angle = angular_separation (sun_ra, sun_dec, RAo, DECo);
 
-  if (VERBOSE) fprintf (stdout, "sun @ ra,dec = %f %f : alt, az = %f %f\n", sun_ra, sun_dec, sun_alt, sun_az);
+  if (VERBOSE) fprintf (stderr, "sun @ ra,dec = %f %f : alt, az = %f %f\n", sun_ra, sun_dec, sun_alt, sun_az);
 
   // get the moon coordintes
@@ -93 +95 @@
   moon_angle = angular_separation (moon_ra, moon_dec, RAo, DECo);
 
-  if (VERBOSE) fprintf (stdout, "moon @ ra,dec = %f %f : alt, az = %f %f\n", moon_ra, moon_dec, moon_alt, moon_az);
+  if (VERBOSE) fprintf (stderr, "moon @ ra,dec = %f %f : alt, az = %f %f\n", moon_ra, moon_dec, moon_alt, moon_az);
 
   phase = (sun_ra - moon_ra - 180)/360.0;
@@ -99 +101 @@
   while (phase >  0.5) phase -= 1.0;
 
-  if (VERBOSE) fprintf (stdout, "sun @ %f %f dist %f\n", sun_ra, sun_dec, sun_angle);
-  if (VERBOSE) fprintf (stdout, "moon @ %f %f angle %f phase %f\n", moon_ra, moon_dec, moon_angle, phase);
+  if (VERBOSE) fprintf (stderr, "sun @ %f %f dist %f\n", sun_ra, sun_dec, sun_angle);
+  if (VERBOSE) fprintf (stderr, "moon @ %f %f angle %f phase %f\n", moon_ra, moon_dec, moon_angle, phase);
 
   fprintf (stdout, "-sun_alt %f -sun_angle %f -moon_alt %f -moon_angle %f -moon_phase %f\n", sun_alt, sun_angle, moon_alt, moon_angle, phase);