void ran0(void);
float sranr(float);
void sranua(float[],long);