extern fint fieini_c(fchar,fint *,fint *);