extern void epoco_c(double *,double *,double *,double *,double *,double *);