Changeset b3404fe in tol for tol/contrib/kmlocal/KMrand.cpp

Timestamp:

Jan 20, 2014, 11:22:55 AM (13 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

0e51c9d

Parents:

dbf50f6

Message:

Setting KM seed in order to be able of reproduce classifications

Fix #1743

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@6132 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tol/contrib/kmlocal/KMrand.cpp (modified) (3 diffs)

tol/contrib/kmlocal/KMrand.cpp

@@ -44 +44 @@
 //      to initialise or reinitialise the sequence.
 //------------------------------------------------------------------------
-
-static double kmRan0()
-{
-    int j;
+void kmInitialice(int seed)
+{
+      int j;
 
     static double y, maxran, v[98];     // The exact number 98 is unimportant
-    static int iff = 0;
-
-    // As a precaution against misuse, we will always initialize on the first
-    // call, even if "kmIdum" is not set negative. Determine "maxran", the
-    // next integer after the largest representable value of type int. We
-    // assume this is a factor of 2 smaller than the corresponding value of
-    // type unsigned int. 
-
-    if (kmIdum < 0 || iff == 0) {       // initialize
+
+        kmIdum = seed;
+
                 /* compute maximum random number */
 #ifdef WIN32                            // Microsoft Visual C++
@@ -71 +64 @@
         maxran = (double) k;
 #endif
-        iff = 1;
-  
+
         srandom(kmIdum);
-        kmIdum = 1;
 
         for (j = 1; j <= 97; j++)       // exercise the system routine
@@ -82 +73 @@
             v[j] = random();
         y = random();
-     }
+}
+
+
+
+static double kmRan0()
+{
+    int j;
+
+    static double y, maxran, v[98];     // The exact number 98 is unimportant
 
     // This is where we start if not initializing. Use the previously saved