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