void dranua(double[],long);
void ranget(long[]);
void ranput(long[]);
void rn2(long*);