11677Smckusick /* Copyright (c) 1979 Regents of the University of California */
21677Smckusick 
3*3017Smckusic static char sccsid[] = "@(#)RANDOM.c 1.3 03/07/81";
41677Smckusick 
52181Smckusic #include "h00vars.h"
62181Smckusic 
7*3017Smckusic extern long RAND();
8*3017Smckusic 
91677Smckusick double
101677Smckusick RANDOM()
111677Smckusick {
121677Smckusick 	/*
131677Smckusick 	 * div by maxint to get 0..1
141677Smckusick 	 */
152181Smckusic 	_seed = RAND(_seed);
162181Smckusic 	return((double)_seed / 0x7fffffff);
171677Smckusick }
18