Index: trunk/Ohana/src/opihi/cmd.astro/getvel.c
===================================================================
--- trunk/Ohana/src/opihi/cmd.astro/getvel.c	(revision 7080)
+++ trunk/Ohana/src/opihi/cmd.astro/getvel.c	(revision 7917)
@@ -13,5 +13,5 @@
 
   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,5 +19,5 @@
   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,5 +45,5 @@
   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,6 +59,6 @@
   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,6 +66,6 @@
   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,5 +75,5 @@
     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);