extern void gds_close_c(fchar,fint *);