program tr
  integer n
  double precision a, b
  a = 0.1
  b = 0.1
  n = 10
  call f(n, a, b)
  print *, a
end program