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