#ifndef UNI_C
#define UNI_C

/* George Marsaglia's uniform random number generator */

static unsigned long s1=362436069, s2=521288629;
#define setseed(seed1,seed2) {s1=seed1; s2=seed2;}
#define s1new                ((s1=36969*(s1&65535)+(s1>>16))<<16)
#define s2new                ((s2=18000*(s2&65535)+(s2>>16))&65535)
#define UNI                  ((s1new+s2new)*2.32830643708E-10 )

/* end of file uni.c */

#endif