extern fint lsqfitd_c(double *,fint *,double *,double *,fint *,double *,double *,fint *,fint *,double *,fint *,double *,fint *);