extern fint ircc_alive_c(fint *);