extern fint fieclr_c(fint *);