extern fint iorf_c(fint *,fint *);