extern fint fiepar_c(fchar,fint *);