void ranget(long[]);
void ranput(long[]);
void rn2(long*);
void sranua(float[],long);