Changeset 7917 for trunk/Ohana/src/opihi/cmd.astro/getvel.c

Timestamp:

Jul 16, 2006, 10:58:49 PM (20 years ago)

Author:

eugene

Message:

major updates to use gprint for buffered / threaded printing

File:

• trunk/Ohana/src/opihi/cmd.astro/getvel.c (modified) (6 diffs)

trunk/Ohana/src/opihi/cmd.astro/getvel.c

@@ -13 +13 @@
 
   if (argc != 5) {
-    fprintf (stderr, "USAGE: rotcurve buf X Y curve.txt\n");
+    gprint (GP_ERR, "USAGE: rotcurve buf X Y curve.txt\n");
     return (FALSE);
   }
@@ -19 +19 @@
   f = fopen (argv[4], "r");
   if (f == (FILE *) NULL) {
-    fprintf (stderr, "can't find rotation curve data file %s\n", argv[4]);
+    gprint (GP_ERR, "can't find rotation curve data file %s\n", argv[4]);
     return (FALSE);
   }
@@ -45 +45 @@
   while (L >= 360) {L -= 360.0;}
   while (L < 0.0)  {L += 360.0;}
-  fprintf (stderr, "L: %f\n", L);
+  gprint (GP_ERR, "L: %f\n", L);
 
   cl = cos (L*RAD_DEG);
@@ -59 +59 @@
   for (n = 0; (n < Ncurve) && (wr < W[n]); n++);
   if ((n == 0) || (n == Ncurve)) {
-    fprintf (stderr, "velocity out of reasonable range\n");
-    fprintf (stderr, "%f %f %f %f\n", V, wr, W[0], W[Ncurve-1]);
+    gprint (GP_ERR, "velocity out of reasonable range\n");
+    gprint (GP_ERR, "%f %f %f %f\n", V, wr, W[0], W[Ncurve-1]);
     return (TRUE);
   }
@@ -66 +66 @@
   fr = (Ro/r);
   if (r < fabs(Rs)) { /* can't be on rotation curve */
-    fprintf (stderr, "velocity out of reasonable range\n");
-    fprintf (stderr, "%f %f %f %f %f %f %f\n", V, wr, W[0], W[Ncurve-1], r, fr, Rs);
+    gprint (GP_ERR, "velocity out of reasonable range\n");
+    gprint (GP_ERR, "%f %f %f %f %f %f %f\n", V, wr, W[0], W[Ncurve-1], r, fr, Rs);
     return (TRUE);
   }
@@ -75 +75 @@
     d = Ro*cl + sqrt(r*r - Rs*Rs);
   
-  fprintf (stderr, "dist: %f, vel: %f\n", d, V);
+  gprint (GP_ERR, "dist: %f, vel: %f\n", d, V);
 
   return (TRUE);