Commit | Line | Data |
---|---|---|
1c2d60a7 KM |
1 | /* Copyright (c) 1979 Regents of the University of California */ |
2 | ||
ef5ad5b1 KM |
3 | static char sccsid[] = "@(#)RANDOM.c 1.2 %G%"; |
4 | ||
5 | #include "h00vars.h" | |
1c2d60a7 KM |
6 | |
7 | double | |
8 | RANDOM() | |
9 | { | |
10 | /* | |
11 | * div by maxint to get 0..1 | |
12 | */ | |
ef5ad5b1 KM |
13 | _seed = RAND(_seed); |
14 | return((double)_seed / 0x7fffffff); | |
1c2d60a7 | 15 | } |