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