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