1 |
|
|
/* $OpenBSD: lcong48.c,v 1.6 2015/09/13 08:31:47 guenther Exp $ */ |
2 |
|
|
/* |
3 |
|
|
* Copyright (c) 1993 Martin Birgmeier |
4 |
|
|
* All rights reserved. |
5 |
|
|
* |
6 |
|
|
* You may redistribute unmodified or modified versions of this source |
7 |
|
|
* code provided that the above copyright notice and this and the |
8 |
|
|
* following conditions are retained. |
9 |
|
|
* |
10 |
|
|
* This software is provided ``as is'', and comes with no warranties |
11 |
|
|
* of any kind. I shall in no event be liable for anything that happens |
12 |
|
|
* to anyone/anything when using this software. |
13 |
|
|
*/ |
14 |
|
|
|
15 |
|
|
#include "rand48.h" |
16 |
|
|
|
17 |
|
|
void |
18 |
|
|
lcong48(unsigned short p[7]) |
19 |
|
|
{ |
20 |
|
|
lcong48_deterministic(p); |
21 |
|
|
__rand48_deterministic = 0; |
22 |
|
|
} |
23 |
|
|
|
24 |
|
|
void |
25 |
|
|
lcong48_deterministic(unsigned short p[7]) |
26 |
|
|
{ |
27 |
|
|
__rand48_deterministic = 1; |
28 |
|
|
__rand48_seed[0] = p[0]; |
29 |
|
|
__rand48_seed[1] = p[1]; |
30 |
|
|
__rand48_seed[2] = p[2]; |
31 |
|
|
__rand48_mult[0] = p[3]; |
32 |
|
|
__rand48_mult[1] = p[4]; |
33 |
|
|
__rand48_mult[2] = p[5]; |
34 |
|
|
__rand48_add = p[6]; |
35 |
|
|
} |
36 |
|
|
DEF_WEAK(lcong48_deterministic); |