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