Changeset 3105 for trunk/Ohana/src/opihi/cmd.astro/imfit.c

Timestamp:

Jan 28, 2005, 5:17:26 AM (21 years ago)

Author:

eugene

Message:

minor changes

File:

• trunk/Ohana/src/opihi/cmd.astro/imfit.c (modified) (2 diffs)

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

@@ -246 +246 @@
   dchisq = ochisq;
 
-  for (i = 0; (i < 50) && ((dchisq <= 0.0) || (dchisq > 0.001*(Npts - Npar))); i++) {
+  for (i = 0; (i < 25) && ((dchisq <= 0.0) || (dchisq > 0.01*(Npts - Npar))); i++) {
     chisq = mrq2dmin (x, y, z, dz, Npts, par, Npar, fitfunc, VERBOSE);
     dchisq = ochisq - chisq;
     ochisq = chisq;
   }  
+  set_int_variable ("Niter",  i);
+  
 
   if (ShapeVariation) {
@@ -407 +409 @@
   set_variable ("ChiSq", chisq/(Npts - Npar));
 
-  for (i = 0; i < Npar; i++) {
-    fprintf (stderr, "%g ", par[i]);
-  }
-  fprintf (stderr, "\n");
+  if (VERBOSE) {
+    for (i = 0; i < Npar; i++) {
+      fprintf (stderr, "%g ", par[i]);
+    }
+    fprintf (stderr, "\n");
+  }
 
   free (x);