double drang(void);
void dranua(double[],long);
void ran0(void);