Changeset 20839 for branches/eam_branch_20081124/Ohana/src/opihi/cmd.data/histogram.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/cmd.data/histogram.c (modified) (2 diffs)

branches/eam_branch_20081124/Ohana/src/opihi/cmd.data/histogram.c

@@ -4 +4 @@
   
   int i, bin, Nbins;
-  float *V, start, end, delta;
+  opihi_flt start, end, delta;
+  opihi_flt *V;
   Vector *xvec, *yvec;
 
@@ -32 +33 @@
   yvec[0].Nelements = Nbins;
     
-  REALLOCATE (yvec[0].elements, float, yvec[0].Nelements);
-  bzero (yvec[0].elements, sizeof(float)*yvec[0].Nelements);
+  REALLOCATE (yvec[0].elements.Flt, opihi_flt, yvec[0].Nelements);
+  bzero (yvec[0].elements.Flt, sizeof(opihi_flt)*yvec[0].Nelements);
   if (Nbins < 1) {
       return (TRUE);
   }
 
-  V = xvec[0].elements;
+  V = xvec[0].elements.Flt;
   for (i = 0; i < xvec[0].Nelements; i++, V++) {
     if (isnan(*V)) continue;
     bin = MIN (MAX (0, (*V - start) / delta), Nbins - 1);
-    yvec[0].elements[bin] += 1.0;
+    yvec[0].elements.Flt[bin] += 1.0;
   }