Store event weight from Pythia in event header

[u/mrichter/AliRoot.git] / PYTHIA6 / POWHEG-BOX / setup-PYTHIA-lhef.f

      subroutine UPINIT
      implicit none
      include 'hepevt_f.h'
      include 'LesHouches.h'
      double precision parp,pari
      integer mstp,msti
      common/pypars/mstp(200),parp(200),msti(200),pari(200)
      integer MSTU,MSTJ
      double precision PARU,PARJ
      COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200)
      integer MDCY,MDME,KFDP
      double precision brat
      COMMON/PYDAT3/MDCY(500,3),MDME(8000,2),BRAT(8000),KFDP(8000,5)
      integer pycomp
      external pycomp
      integer maxev
      common/mcmaxev/maxev
      nevhep=0
c read the header first, so lprup is set
      call lhefreadhdr(97)
      end

      subroutine UPEVNT
      implicit none
      call lhefreadev(97)
      end

      subroutine UPVETO
c pythia routine to abort event
      end