extern fint gdi_remove_c(fint *,fint *);