extern fint fiedump_c(fint *);