extern void gdsd_grint_c(fchar,fchar,fint *,fint *,fint *,fint *,fint *);