extern fint factor_c(fchar,fchar,double *);