extern fint gdi_idlen_c(fint *,fint *);