35 #if INT_MAX != 2147483647
36 # error "INT_MAX != 2147483647"
37 # error "The random number generator may not work!"
62 srandom((
unsigned int)Seed);
73 if (random() > INT_MAX/2)
75 if (lrand48() > INT_MAX/2)
90 return (scalar)random()/INT_MAX;
145 return lower + (random() % (upper+1-lower));
147 return lower + (lrand48() % (upper+1-lower));
203 scalar fac, rsq,
v1,
v2;
212 }
while (rsq >= 1.0 || rsq == 0.0);
214 fac =
sqrt(-2.0 *
log(rsq)/rsq);