11677Smckusick /* Copyright (c) 1979 Regents of the University of California */
21677Smckusick 
3*2181Smckusic static char sccsid[] = "@(#)RANDOM.c 1.2 01/16/81";
41677Smckusick 
5*2181Smckusic #include "h00vars.h"
6*2181Smckusic 
71677Smckusick double
81677Smckusick RANDOM()
91677Smckusick {
101677Smckusick 	/*
111677Smckusick 	 * div by maxint to get 0..1
121677Smckusick 	 */
13*2181Smckusic 	_seed = RAND(_seed);
14*2181Smckusic 	return((double)_seed / 0x7fffffff);
151677Smckusick }
16