real function adder(x,y)
   implicit none
   real, intent(in) :: x,y

   adder=x+y
   return
end function
