extern void irus_inst_c(fint *,fchar);