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