extern void sortdai_c(double *,fint *,fint *);