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