extern fint irc_chunit_c(fint *,float *,fint *,fchar,fchar);