extern void irserver_close_c(fint *);