extern void sortrai_c(float *,fint *,fint *);