extern fint gdi_grread_c(fint *,fint *,fint *,fint *);