extern void sortra_c(float *,fint *);