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