FUNCTION func(x)
      REAL*8 func,x
      func=1.d0/x
      return
      END