Real Function ft_f(x)
  Implicit None
  Real x

  ft_f = x**2+2*x+sin(x)*exp(-x)
End Function ft_f

Real Function ft_fp(x)
  Implicit None
  Real x

  ft_fp = 2*x+2+cos(x)*exp(-x)-sin(x)*exp(-x)
End Function ft_fp