function func(x, par)
      implicit none
      real*8 x, par(*), func
      func = par(1)
      end