extern fint gdi_ginfo_c(fint *,fint *,fint *);