bisectioNN
c <<ok>>
character*1 answer
real a,b,p,tol
PRint*, 'the function is',' f=x**3-x**2-4*x-3'
5
PRint*, 'please enter a,b,tol'
read*, a,b,tol
if (f(a).eq.0)
PRint*, 'one of the root is ',a
if (f(b).eq.0)
PRint*, 'one of the root is ',b
if (f(a)*f(b).gt.0.0)
PRint*,'no root...
for Fortran