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