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

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

@@ -107 +107 @@
   vec1[0].Nelements = Nbins + 1;
   vec2[0].Nelements = Nbins + 1;
-  REALLOCATE (vec1[0].elements, float, vec1[0].Nelements);
-  bzero (vec1[0].elements, vec1[0].Nelements*sizeof(float));
-  REALLOCATE (vec2[0].elements, float, vec2[0].Nelements);
-  bzero (vec2[0].elements, vec2[0].Nelements*sizeof(float));
+  REALLOCATE (vec1[0].elements.Flt, opihi_flt, vec1[0].Nelements);
+  bzero (vec1[0].elements.Flt, vec1[0].Nelements*sizeof(opihi_flt));
+  REALLOCATE (vec2[0].elements.Flt, opihi_flt, vec2[0].Nelements);
+  bzero (vec2[0].elements.Flt, vec2[0].Nelements*sizeof(opihi_flt));
   
   for (j = sy; j < sy + ny; j++) {
@@ -116 +116 @@
     for (i = 0; i < nx; i++, V++) {
       bin = MAX (MIN (Nbins, (*V - min) / dx), 0);
-      vec2[0].elements[bin] += 1.0;
+      vec2[0].elements.Flt[bin] += 1.0;
     }
   }
   for (i = 0; i < Nbins + 1; i++, V++) {
-    vec1[0].elements[i] = i*dx + min;
+    vec1[0].elements.Flt[i] = i*dx + min;
   }