Index: /branches/eam_branch_20070830/psphot/src/psphotChoosePSF.c
===================================================================
--- /branches/eam_branch_20070830/psphot/src/psphotChoosePSF.c	(revision 14788)
+++ /branches/eam_branch_20070830/psphot/src/psphotChoosePSF.c	(revision 14789)
@@ -236,5 +236,5 @@
         FILE *f = fopen ("shapes.dat", "w");
         for (int i = 0; i < try->sources->n; i++) {
-            psF32 inPar[10];
+            psF32 inPar[10];  // must be psF32 to pmPSF_FitToModel
 
             // masked for: bad model fit, outlier in parameters
@@ -323,5 +323,5 @@
 
     // get the model full-width at half-max
-    psF64 FWHM_X = 2*modelPSF->modelRadius (modelPSF->params, 0.5);
+    double FWHM_X = 2*modelPSF->modelRadius (modelPSF->params, 0.5);
 
     // XXX make sure this is consistent with the re-definition of PM_PAR_SXX
@@ -331,5 +331,5 @@
     axes = psEllipseShapeToAxes (shape, 20.0);
 
-    psF64 FWHM_Y = FWHM_X * (axes.minor / axes.major);
+    double FWHM_Y = FWHM_X * (axes.minor / axes.major);
 
     psMetadataAddF32 (recipe, PS_LIST_TAIL, "FWHM_X",   PS_META_REPLACE, "PSF FWHM Major axis", FWHM_X);