From cc7d4003ae9ccd7f8729de58f9fbfad481f94c60 Mon Sep 17 00:00:00 2001
From: Kiwamu Ishikura <ishikura.kiwamu@gmail.com>
Date: Mon, 29 Dec 2014 12:00:03 +0900
Subject: add random

to add srandom to set seed
---
 packages/base/src/C/vector-aux.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'packages')

diff --git a/packages/base/src/C/vector-aux.c b/packages/base/src/C/vector-aux.c
index 51bff73..d01e788 100644
--- a/packages/base/src/C/vector-aux.c
+++ b/packages/base/src/C/vector-aux.c
@@ -730,8 +730,10 @@ double gaussrand(int *phase, double *pV1, double *pV2, double *pS)
 int random_vector(unsigned int seed, int code, DVEC(r)) {
     int phase = 0;
     double V1,V2,S;
-    
     int k;
+
+    srandom(seed);
+
     switch (code) {
       case 0: { // uniform
         for (k=0; k<rn; k++) {
-- 
cgit v1.2.3