void ssortp(float[],long,long,long[]);
void ssortq(float[],long,long,long[]);