Changeset 39856 for branches/czw_branch/20160809

Timestamp:

Dec 14, 2016, 7:28:23 AM (10 years ago)

Author:

eugene

Message:

add rndseed

Location:

branches/czw_branch/20160809/Ohana/src/opihi

Files:

• cmd.astro/spex1dgas.c (modified) (1 diff)
• cmd.astro/spex2dgas.c (modified) (1 diff)
• cmd.astro/spexseq.c (modified) (1 diff)
• cmd.data/Makefile (modified) (1 diff)
• cmd.data/init.c (modified) (2 diffs)
• cmd.data/rndseed.c (added)
• cmd.data/stats-new.c (modified) (1 diff)
• dvo/imdense.c (modified) (2 diffs)

branches/czw_branch/20160809/Ohana/src/opihi/cmd.astro/spex1dgas.c

@@ -108 +108 @@
   IDList = NULL;
   XoList = NULL;
-  { 
-    // init random numbers
-    long A, B;
-    A = time(NULL);
-    for (B = 0; A == time(NULL); B++);
-    srand48(B);
-  }
  
+  // srand48() is called by startup.c
+
   if (argc != 11) goto usage;
 

branches/czw_branch/20160809/Ohana/src/opihi/cmd.astro/spex2dgas.c

@@ -120 +120 @@
   float XoMax, YoMax;
 
-  { 
-    // init random numbers
-    long A, B;
-    A = time(NULL);
-    for (B = 0; A == time(NULL); B++);
-    srand48(B);
-  }
- 
+  // srand48() is called by startup.c
+
   if (argc != 9) goto usage;
 

branches/czw_branch/20160809/Ohana/src/opihi/cmd.astro/spexseq.c

@@ -90 +90 @@
   int Nobject = 0;
 
-  { 
-    // init random numbers
-    long A, B;
-    A = time(NULL);
-    for (B = 0; A == time(NULL); B++);
-    srand48(B);
-  }
- 
   if (argc != 6) goto usage;
+
+  // srand48() is called by startup.c
 
   // XXX enforce matching lengths on the three vectors

branches/czw_branch/20160809/Ohana/src/opihi/cmd.data/Makefile

@@ -124 +124 @@
 $(SRC)/resize.$(ARCH).o         \
 $(SRC)/relocate.$(ARCH).o       \
+$(SRC)/rndseed.$(ARCH).o                \
 $(SRC)/roll.$(ARCH).o           \
 $(SRC)/rotate.$(ARCH).o \

branches/czw_branch/20160809/Ohana/src/opihi/cmd.data/init.c

@@ -113 +113 @@
 int reindex          PROTO((int, char **));
 int relocate         PROTO((int, char **));
+int rndseed          PROTO((int, char **));
 int roll             PROTO((int, char **));
 int rotate           PROTO((int, char **));
@@ -293 +294 @@
   {1, "relocate",     relocate,         "set graphics/image window position"},
   {1, "roll",         roll,             "roll image to new start point"},
+  {1, "rndseed",      rndseed,          "set the pseudo-random seed"},
   {1, "rotate",       rotate,           "rotate image"},
   {1, "save",         save,             "save an SAOimage style image overlay"},

branches/czw_branch/20160809/Ohana/src/opihi/cmd.data/stats-new.c

@@ -129 +129 @@
   ALLOCATE (values, float, Nsample);
     
-  A = time(NULL);
-  for (B = 0; A == time(NULL); B++);
-  srand48(B);
+  // srand48() is called by startup.c
  
   *buffer = (float *) matrix[0].buffer;

branches/czw_branch/20160809/Ohana/src/opihi/dvo/imdense.c

@@ -4 +4 @@
 int imdense (int argc, char **argv) {
   
-  long A, B;
   off_t i, Nimage;
   int kapa, N, status, NPTS;
@@ -27 +26 @@
   Rmax = graphmode.coords.crval1 + 182.0;
   
-  A = time(NULL);
-  for (B = 0; A == time(NULL); B++);
-  srand48(B);
+  // srand48() is called by startup.c
 
   N = 0;