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