long isranp(float);
void ran0(void);
void serm1(STRING,long,long,STRING,STRING,float,byte);
void serv1(STRING,float,byte);
void sranua(float[],long);