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