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)7 double unif_rand(void) {
8     return dsfmt_gv_genrand_close_open();
9 }
10 
exp_rand(void)11 double exp_rand(void) {
12     return randmtzig_exprnd();
13 }
14 
norm_rand(void)15 double norm_rand(void) {
16     return randmtzig_gv_randn();
17 }
18