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

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

@@ -16 +16 @@
 
   vec[0].Nelements = Npts;
-  REALLOCATE (vec[0].elements, float, Npts);
+  REALLOCATE (vec[0].elements.Flt, opihi_flt, Npts);
 
   gauss_init (2048);
   for (i = 0; i < Npts; i++) {
-    vec[0].elements[i] = rnd_gauss (mean, sigma);
+    vec[0].elements.Flt[i] = rnd_gauss (mean, sigma);
   }
   return (TRUE);
@@ -47 +47 @@
 
   vec[0].Nelements = Npts;
-  REALLOCATE (vec[0].elements, float, Npts);
+  REALLOCATE (vec[0].elements.Flt, opihi_flt, Npts);
 
   gauss_init (Npts);
   for (i = 0; i < Npts; i++) {
-    vec[0].elements[i] = int_gauss (i);
+    vec[0].elements.Flt[i] = int_gauss (i);
   }
   return (TRUE);