secant method root finding algorithm for fortran