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