3 |
|
/* SCCSid "$SunId$ LBL" */ |
4 |
|
|
5 |
|
/* |
6 |
< |
* random.h - header file for random(3) function. |
6 |
> |
* random.h - header file for random(3) and urand() function. |
7 |
|
* |
8 |
|
* 10/1/85 |
9 |
|
*/ |
10 |
|
|
11 |
+ |
#ifdef BSD |
12 |
+ |
|
13 |
|
extern long random(); |
14 |
|
|
15 |
< |
#define frandom() (random()/2147483648.0) |
15 |
> |
#define frandom() (random()*(1./2147483648.)) |
16 |
> |
|
17 |
> |
#else |
18 |
> |
|
19 |
> |
extern long lrand48(); |
20 |
> |
extern double drand48(); |
21 |
> |
|
22 |
> |
#define random() lrand48() |
23 |
> |
#define frandom() drand48() |
24 |
> |
|
25 |
> |
#endif |
26 |
> |
|
27 |
> |
#define urand(i) ((urperm[(i)&urmask]+frandom())/(urmask+1)) |
28 |
> |
|
29 |
> |
extern short *urperm; |
30 |
> |
extern int urmask; |