Changeset 20839 for branches/eam_branch_20081124/Ohana/src/opihi/dvo/imstats.c

Timestamp:

Nov 25, 2008, 4:51:39 PM (18 years ago)

Author:

eugene

Message:

convert opihi vectors to double type, add option for int type as well

File:

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

branches/eam_branch_20081124/Ohana/src/opihi/dvo/imstats.c

@@ -35 +35 @@
   Xvec.Nelements = Nimage;
   Yvec.Nelements = Nimage;
-  ALLOCATE (Xvec.elements, float, Xvec.Nelements);
-  ALLOCATE (Yvec.elements, float, Yvec.Nelements);
+  ALLOCATE (Xvec.elements.Flt, opihi_flt, Xvec.Nelements);
+  ALLOCATE (Yvec.elements.Flt, opihi_flt, Yvec.Nelements);
   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 +54 @@
   graphmode.style = 2;
   graphmode.etype = 0;
-  PlotVectorPair (kapa, Nimage, Xvec.elements, Yvec.elements, &graphmode);
+  PlotVectorPair (kapa, Nimage, Xvec.elements.Flt, Yvec.elements.Flt, &graphmode);
   
-  free (Xvec.elements);
-  free (Yvec.elements);
+  free (Xvec.elements.Flt);
+  free (Yvec.elements.Flt);
   return (TRUE);
 }