/* ran.h: header file for Knuth's rng_d.c and other functions */
/* BQ, August 13, 2002 */
/**********************************************************/

double RanUni (void);            /* U(0,1) */
int    RanBern(double p);        /* Bern(p) */
int    RanPoi (double lambda);   /* Poisson(lambda) */
double RanExp (void);            /* E(1) */
double RanNor (void);            /* N(0,1) */

void   RanUniArray(double a[], int n);
   /* a[0:n-1]  <- random fractions, n>=KK=100,  see .c file */

void   RanStart(long seed);/* init generator, seed=stream selector*/