void ran1(void);
void ransiz(long*);
float srang(void);
float sranu(void);
void sranua(float[],long);