extern fint iran_c(fint *);