extern fint gdi_rmask_c(fint *,fint *,fint *);