extern void irco_newcoor_c(fint *,double *,double *,double *,fchar,fint *);