Write a fortran program that uses the secant method to solve :

If the program is correct the answer should be approximately: -0.317062

Use p0 = -0.5 and p1 = -0.1 as the intial guess

f(w) = act.7 32.17 * (sinh(w) sin(w)) * -1 2(2)