29 lines
370 B
C
29 lines
370 B
C
|
|
#define IA 16807
|
|
#define IM 2147483647
|
|
#define AM (1.0/IM)
|
|
#define IQ 127773
|
|
#define IR 2836
|
|
#define MASK 123459876
|
|
|
|
float ran0(idum)
|
|
long *idum;
|
|
{
|
|
long k;
|
|
float ans;
|
|
|
|
*idum ^= MASK;
|
|
k=(*idum)/IQ;
|
|
*idum=IA*(*idum-k*IQ)-IR*k;
|
|
if (*idum < 0) *idum += IM;
|
|
ans=AM*(*idum);
|
|
*idum ^= MASK;
|
|
return ans;
|
|
}
|
|
#undef IA
|
|
#undef IM
|
|
#undef AM
|
|
#undef IQ
|
|
#undef IR
|
|
#undef MASK
|