Changeset 20936 for trunk/Ohana/src/opihi/dvo/imstats.c

Timestamp:

Dec 7, 2008, 3:31:01 PM (18 years ago)

Author:

eugene

Message:

big update from eam_branch_20081124 with updates to Opihi math

File:

• trunk/Ohana/src/opihi/dvo/imstats.c (modified) (2 diffs)

trunk/Ohana/src/opihi/dvo/imstats.c

@@ -33 +33 @@
 
   /* assign vector values */
-  Xvec.Nelements = Nimage;
-  Yvec.Nelements = Nimage;
-  ALLOCATE (Xvec.elements, float, Xvec.Nelements);
-  ALLOCATE (Yvec.elements, float, Yvec.Nelements);
+  SetVector (&Xvec, OPIHI_FLT, Nimage);
+  SetVector (&Yvec, OPIHI_FLT, Nimage);
+
   gprint (GP_LOG, "seq  ra (J2000) dec    time (s)   Nstars\n");
   for (i = 0; i < Nimage; i++) {
-    Xvec.elements[i] = image[i].secz;
+    Xvec.elements.Flt[i] = image[i].secz;
     if (Mcal) 
-      Yvec.elements[i] = image[i].Mcal;
+      Yvec.elements.Flt[i] = image[i].Mcal;
     else 
-      Yvec.elements[i] = image[i].dMcal;
+      Yvec.elements.Flt[i] = image[i].dMcal;
     if (!FindMosaicForImage (image, Nimage, i)) continue;
     XY_to_RD (&r, &d, 0.5*image[i].NX, 0.5*image[i].NY, &image[i].coords);
     gprint (GP_ERR, "%d %8.4f %8.4f %10d %6d  %5.3f %6.3f %6.3f\n", 
-             i, r, d, image[i].tzero, image[i].nstar, Xvec.elements[i], 
+             i, r, d, image[i].tzero, image[i].nstar, Xvec.elements.Flt[i], 
              image[i].Mcal, image[i].dMcal);
   } 
@@ -54 +53 @@
   graphmode.style = 2;
   graphmode.etype = 0;
-  PlotVectorPair (kapa, Nimage, Xvec.elements, Yvec.elements, &graphmode);
+  PlotVectorPair (kapa, &Xvec, &Yvec, &graphmode);
   
-  free (Xvec.elements);
-  free (Yvec.elements);
+  free (Xvec.elements.Flt);
+  free (Yvec.elements.Flt);
   return (TRUE);
 }