Roots of a function: Difference between revisions

=={{header|Fortran}}==

{{works with|Fortran|90 and later}}

IMPLICIT NONE

END DO

The following approach uses the Secant Method[http://en.wikipedia.org/wiki/Secant_method] to numerically find one root. Which root is found will depend on the start values x1 and x2 and if these are far from a root this method may not converge.

INTEGER :: i=1, limit=100

REAL(dp) :: d, e, f, x, x1, x2

x2 = x2 - d

i = i + 1

 

=={{header|J}}==