Index: trunk/psphot/src/choose_psf_model.c
===================================================================
--- trunk/psphot/src/choose_psf_model.c	(revision 4375)
+++ trunk/psphot/src/choose_psf_model.c	(revision 4398)
@@ -7,5 +7,5 @@
     bool        status;
     char       *modelName;
-    char        key[64];
+    char        key[64], filename[64];
     pmPSF_Test *test  = NULL;
     psArray    *stars = NULL;
@@ -35,24 +35,6 @@
 	tests->data[i] = pmPSF_TestModel (stars, modelName, RADIUS);
 
-	// dump psf test data to file:
-	{
-	  sprintf (key, "metric.%d.dat", i);
-	  FILE *f = fopen (key, "w");
-	  test = tests->data[i];
-
-
-	  for (int j = 0; j < test->sources->n; j++) {
-	    psSource *source = test->sources->data[j];
-	    psModel  *model  = test->modelPSF->data[j];	    
-	    float sky = 0;
-
-	    if (model != NULL) sky = model->params->data.F32[0];
-
-	    fprintf (f, "%3d %6.1f %6.1f  %7.4f %7.4f  %8.4f\n", 
-		     j, source->moments->x, source->moments->y,
-		     test->metric->data.F64[j], test->fitMag->data.F64[j], sky);
-	  }
-	  fclose (f);
-	}
+	sprintf (filename, "metric.%d.dat", i);
+	DumpPSFTestData (tests->data[i], filename);
     }