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