extern fint iandf_c(fint *,fint *);