extern fint gdi_groff_c(fint *,fint *);