diff --git a/external/Rmath/src/sunif.c b/external/Rmath/src/sunif.c index 42e544bf46be9..e7c4b7f5499e0 100644 --- a/external/Rmath/src/sunif.c +++ b/external/Rmath/src/sunif.c @@ -20,7 +20,6 @@ /* A version of Marsaglia-MultiCarry */ -/* static unsigned int I1=1234, I2=5678; void set_seed(unsigned int i1, unsigned int i2) @@ -40,11 +39,12 @@ double unif_rand(void) I2= 18000*(I2 & 0177777) + (I2>>16); return ((I1 << 16)^(I2 & 0177777)) * 2.328306437080797e-10; // in [0,1) } -*/ -#include "../../random/dsfmt-2.1/dSFMT.c" +/* +#include "../../random/dsfmt-2.1/dSFMT.h" double unif_rand(void) { return dsfmt_gv_genrand_close_open(); } +*/