void sranua(float[],long);
void ssort(float[],long,long);
void ssortp(float[],long,long,long[]);