extern fint gdi_grwrite_c(fint *,fint *,fint *,fint *);