1 /* Copyright (c) 1979 Regents of the University of California */
2 
3 static char sccsid[] = "@(#)RANDOM.c 1.2 01/16/81";
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 }
16