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