extern fint irserver_scan_c(fint *,fint *,fint *,fchar);