extern void sortda_c(double *,fint *);