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