module bebebe
implicit none
contains
!Let fx=f(x),fxp=(f(x))',fxpp=(f(x))"
real(8) function fx(x)
   real(8) x
   fx= x**3 + 5*x**2 - 15*x - 7
end function fx
!
real(8) function fxp(x)
   real(8) x
   fxp= 3*x**2 + 10*x - 15
end function fxp
!
real(8) function fxpp(x)
   real(8) x
  fxpp= 6*x + 10
end function fxpp
!
end module