      double precision function funkcja(x)
      implicit real*8 (a-h,o-z)
c
c Przykladowa funkcja
c
      funkcja=x*x
      return
      end
