1 /* For copyright information, see olden_v1.0/COPYRIGHT */
3 /**********************************************************
4 * poisson.c: handles math routines for health.c *
5 **********************************************************/
16 #define MASK 123459876
18 float my_rand(long idum)
25 idum = IA * (idum - k * IQ) - IR * k;
34 main(int argc, char** argv)
36 printf("my_rand(%d) = %g\n", 2555540, my_rand(2555540));
37 printf("my_rand(%d) = %g\n", 2427763, my_rand(2427763));