extern fint gdi_imsid_c(fint *,fchar);