1 /* Use librandom from the julia source tree */ 2 3 extern double dsfmt_gv_genrand_close_open(); 4 extern double randmtzig_gv_randn (void); 5 extern double randmtzig_exprnd (void); 6 unif_rand(void)7double unif_rand(void) { 8 return dsfmt_gv_genrand_close_open(); 9 } 10 exp_rand(void)11double exp_rand(void) { 12 return randmtzig_exprnd(); 13 } 14 norm_rand(void)15double norm_rand(void) { 16 return randmtzig_gv_randn(); 17 } 18