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