void dranua(double[],long);
void dranus(double[],long,double,double);
void ermsg(STRING,long,long,STRING,byte);
void ranget(long[]);
void ranmod(void);
void ransiz(long*);
void rn1(void);
void rn2(long*);
void rnput(long[]);
void sranua(float[],long);
void sranus(float[],long,float,float);