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