extern void sortdd_c(double *,fint *);