Changeset 7917 for trunk/Ohana/src/opihi/cmd.data/fit.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.data/fit.c (modified) (4 diffs)

trunk/Ohana/src/opihi/cmd.data/fit.c

@@ -42 +42 @@
 
   if (argc != 4) {
-    fprintf (stderr, "USAGE: fit x y order [-dy wt] [-quiet/-q] [-clip Nsigma Niter]\n");
+    gprint (GP_ERR, "USAGE: fit x y order [-dy wt] [-quiet/-q] [-clip Nsigma Niter]\n");
     return (FALSE);
   }
@@ -50 +50 @@
 
   if (xvec[0].Nelements != yvec[0].Nelements) {
-    fprintf (stderr, "vectors must have same length\n");
+    gprint (GP_ERR, "vectors must have same length\n");
     return (FALSE);
   }
   if (Weight && xvec[0].Nelements != dyvec[0].Nelements) {
-    fprintf (stderr, "vectors must have same length\n");
+    gprint (GP_ERR, "vectors must have same length\n");
     return (FALSE);
   }
@@ -166 +166 @@
       
   /* print & save basic fit parameters */
-  if (!Quiet) fprintf (stderr, "y = ");
+  if (!Quiet) gprint (GP_ERR, "y = ");
   for (i = 0; i < nterm; i++) {
     sprintf (name, "C%d", i);
     set_variable (name, b[i][0]);
-    if (!Quiet) fprintf (stderr, "%f x^%d ", b[i][0], i);
+    if (!Quiet) gprint (GP_ERR, "%f x^%d ", b[i][0], i);
   }
   sprintf (name, "Cn");
@@ -176 +176 @@
   
   /* print & save basic fit parameters */
-  if (!Quiet) fprintf (stderr, "\n");
-  if (!Quiet) fprintf (stderr, "    ");
+  if (!Quiet) gprint (GP_ERR, "\n");
+  if (!Quiet) gprint (GP_ERR, "    ");
   for (i = 0; i < nterm; i++) {
     sprintf (name, "dC%d", i);
     set_variable (name, sqrt(c[i][i]));
-    if (!Quiet) fprintf (stderr, "%f     ", sqrt(c[i][i]));
-  }
-  if (!Quiet) fprintf (stderr, "\n");
+    if (!Quiet) gprint (GP_ERR, "%f     ", sqrt(c[i][i]));
+  }
+  if (!Quiet) gprint (GP_ERR, "\n");
 
   set_variable ("dC", sigma);