REAL FUNCTION x(i,v,c)
*********************************************************
*                                                       *
* This file was generated by HUWFUN.                    *
*                                                       *
*********************************************************
*
*     Ntuple Id:      1000 
*     Ntuple Title:   XSECT NTP
*     Creation:       21/05/1999 17.28.26
*
*********************************************************
      implicit none
*
      integer i
      real v
      logical c
*
      integer n,j
      data n/0/
      save n
      logical first
      data first /.true./
      save first
*
      vector v1(1000),v2(1000),v3(1000),v4(1000)
*
      include ?
*

*
*--   Enter user code here
*
      if (.not.c) then
         return 
      else 
         n = n + 1
         if (n.gt.1000) stop
      endif 

      if (i.eq.1) then
         if (first) then
            first = .false. 
            do j = 1,1000
               v1(j) = 0.
            enddo 
         endif 
         v1(n) = v
      elseif (i.eq.2) then
         if (first) then
            first = .false. 
            do j = 1,1000
               v2(j) = 0.
            enddo 
         endif 
         v2(n) = v
      elseif (i.eq.3) then
         if (first) then
            first = .false. 
            do j = 1,1000
               v3(j) = 0.
            enddo 
         endif 
         v3(n) = v
      elseif (i.eq.4) then
         if (first) then
            first = .false. 
            do j = 1,1000
               v4(j) = 0.
            enddo 
         endif 
         v4(n) = v
      endif 
*
      END