extern fint gdi_gron_c(fint *,fint *);