extern fint gdi_cinfo_c(fint *,fint *,fint *,fint *,fint *);