Fixed the double precision error in horner_fortran