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