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