extern fint gdi_imwrite_c(fint *,fint *,fint *,fint *);