extern fint gdi_rinfo_c(fint *,fint *,fint *);