long compar(long,long);
void gsortp(long(*)(long,long),long,long[]);
void sranua(float[],long);