Changeset 39266 for branches/eam_branches/ipp-20151113/Ohana/src/opihi/cmd.data/gaussdeviate.c

Timestamp:

Dec 13, 2015, 5:50:46 AM (11 years ago)

Author:

eugene

Message:

merged changes from trunk

Location:

branches/eam_branches/ipp-20151113

Files:

• . (modified) (1 prop)
• Ohana/src/opihi/cmd.data/gaussdeviate.c (modified) (4 diffs)

branches/eam_branches/ipp-20151113/Ohana/src/opihi/cmd.data/gaussdeviate.c

@@ -17 +17 @@
   ResetVector (vec, OPIHI_FLT, Npts);
 
-  gauss_init (2048);
+  ohana_gaussdev_init ();
   for (i = 0; i < Npts; i++) {
-    vec[0].elements.Flt[i] = rnd_gauss (mean, sigma);
+    vec[0].elements.Flt[i] = ohana_gaussdev_rnd (mean, sigma);
   }
   return (TRUE);
@@ -29 +29 @@
 }
 
-double int_gauss (int i);
-
 int gaussintegral (int argc, char **argv) {
   
+  gprint (GP_ERR, "fix gaussintegral\n");
+  return (FALSE);
+
+/*
   int i, Npts;
   Vector *vec;
@@ -46 +48 @@
   ResetVector (vec, OPIHI_FLT, Npts);
 
-  gauss_init (Npts);
+  ohana_gaussdev_init ();
   for (i = 0; i < Npts; i++) {
-    vec[0].elements.Flt[i] = int_gauss (i);
+    vec[0].elements.Flt[i] = gaussian_int (i);
   }
   return (TRUE);
@@ -55 +57 @@
   gprint (GP_ERR, "USAGE: gaussintegral Npts mean sigma\n");
   return (FALSE);
+*/
     
 }