extern void irco_precess_c(fint *,float *,fint *);