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