void isort(long[],long,long);
void isortp(long[],long,long,long[]);
void sranua(float[],long);