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