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