diff options
Diffstat (limited to 'packages/base')
-rw-r--r-- | packages/base/src/C/vector-aux.c | 4 |
1 files changed, 3 insertions, 1 deletions
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) | |||
730 | int random_vector(unsigned int seed, int code, DVEC(r)) { | 730 | int random_vector(unsigned int seed, int code, DVEC(r)) { |
731 | int phase = 0; | 731 | int phase = 0; |
732 | double V1,V2,S; | 732 | double V1,V2,S; |
733 | |||
734 | int k; | 733 | int k; |
734 | |||
735 | srandom(seed); | ||
736 | |||
735 | switch (code) { | 737 | switch (code) { |
736 | case 0: { // uniform | 738 | case 0: { // uniform |
737 | for (k=0; k<rn; k++) { | 739 | for (k=0; k<rn; k++) { |