extern fint gdi_setid_c(fint *,fchar,fint *,fint *);