30 #define RANDOM_MAX 2147483562
68 static long s1 = 55555;
69 static long s2 = 99999;
70 #pragma omp threadprivate(s1)
71 #pragma omp threadprivate(s2)
75 if( seed != NULL ) s1 = 1 + (*seed % 2147483561);
79 s1 = 40014 * ( s1 % 53668 ) - k * 12211;
80 if( s1 < 0 ) s1 += 2147483563;
84 s2 = 40692 * ( s2 % 52774 ) - k * 3791;
85 if( s2 < 0 ) s2 += 2147483399;
88 z = ( s1 - 2147483563 ) + s2;
89 if(z < 1) z += 2147483562;