Changeset 8882 for trunk/psModules/src/objects/pmSourceIO_CMP.c

Timestamp:

Sep 22, 2006, 2:29:31 AM (20 years ago)

Author:

rhl

Message:

[Start to] provide symbolic names for parameters

File:

• trunk/psModules/src/objects/pmSourceIO_CMP.c (modified) (3 diffs)

trunk/psModules/src/objects/pmSourceIO_CMP.c

@@ -3 +3 @@
  *  @author EAM, IfA
  *
- *  @version $Revision: 1.13 $ $Name: not supported by cvs2svn $
- *  @date $Date: 2006-09-15 09:49:01 $
+ *  @version $Revision: 1.14 $ $Name: not supported by cvs2svn $
+ *  @date $Date: 2006-09-22 12:24:38 $
  *
  *  Copyright 2004 Maui High Performance Computing Center, University of Hawaii
@@ -116 +116 @@
 
         type = pmSourceDophotType (source);
-        lsky = (PAR[0] < 1.0) ? 0.0 : log10(PAR[0]);
-
-        shape.sx  = PAR[4];
-        shape.sy  = PAR[5];
-        shape.sxy = PAR[6];
+        lsky = (PAR[PM_PAR_SKY] < 1.0) ? 0.0 : log10(PAR[PM_PAR_SKY]);
+
+        shape.sx  = PAR[PM_PAR_SXX];
+        shape.sy  = PAR[PM_PAR_SYY];
+        shape.sxy = PAR[PM_PAR_SXY];
         axes = psEllipseShapeToAxes (shape);
 
         psLineInit (line);
-        psLineAdd (line, "%6.1f ",  PAR[2]);
-        psLineAdd (line, "%6.1f ",  PAR[3]);
+        psLineAdd (line, "%6.1f ",  PAR[PM_PAR_XPOS]);
+        psLineAdd (line, "%6.1f ",  PAR[PM_PAR_YPOS]);
         psLineAdd (line, "%6.3f ",  PS_MIN (99.0, source->psfMag + ZERO_POINT));
         psLineAdd (line, "%03d ",   PS_MIN (999, (int)(1000*source->errMag)));
@@ -253 +253 @@
             dPAR = model->dparams->data.F32;
 
-            PAR[0]         = pow (atof (array->data[5]), 10.0);
-            PAR[2]         = atof (array->data[0]);
-            PAR[3]         = atof (array->data[1]);
+            PAR[PM_PAR_SKY] = pow (atof (array->data[5]), 10.0);
+            PAR[PM_PAR_XPOS] = atof (array->data[0]);
+            PAR[PM_PAR_YPOS] = atof (array->data[1]);
             source->psfMag = atof (array->data[2]);
             source->extMag = atof (array->data[6]);