* Copyright (c) 1980 Regents of the University of California.
* All rights reserved. The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
* Routines to return random values
* double precision d, drandm
* If arg is nonzero, generator is restarted and value is returned.
* If arg is 0, next value is returned.
* Integer values will range from 0 thru 2147483647 (see random(3)).
* Real values will range from 0.0 thru 1.0 .
#if defined(vax) || defined(tahoe)
#define RANDMAX 2147483647
if (*iarg
) srandom((int)*iarg
);
if (*iarg
) srandom((int)*iarg
);
return( (float)(random())/(float)RANDMAX
);
if (*iarg
) srandom((int)*iarg
);
return( (double)(random())/(double)RANDMAX
);