integer maxin
      parameter (maxin=1000)
      common /kinegenc/ eb, bp, phiev, ngen, idgen(maxin),
     +        idsrc(maxin), idpar(maxin), ixpar(maxin),
     +        pxgen(maxin), pygen(maxin), pzgen(maxin), wgen(maxin),
     +        vxgen(maxin), vygen(maxin), vzgen(maxin), vtgen(maxin)

      integer*4 ngen, idgen, idsrc, idpar, ixpar
      real*4 eb, bp, phiev, pxgen, pygen, pzgen, wgen
      real*4 vxgen, vygen, vzgen, vtgen