extern void irco_prname_c(fchar,fint *);