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