subroutine ffunction(a,b)
      a=3.0
      b=4.0
      end