extern void irco_namepoch_c(fint *,fchar,float *);