1 |
/* Copyright (c) 1986 Regents of the University of California */ |
2 |
|
3 |
/* SCCSid "$SunId$ LBL" */ |
4 |
|
5 |
/* |
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()*(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; |