math/ieee/uni.c


1
2
3
4
5
6
7
8

/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
 */

float uni_(dummy)
float *dummy;
{
	return(rand()/ 2147483648.0);	/* return a real [0.0, 1.0) */
}