extern fint gdi_close_c(fint *);