bin/HARDCOL/evntinit.f

0001 C...PYINIT
0002 C...Initializes the generation procedure; finds maxima of the
0003 C...differential cross-sections to be used for weighting.
0004
0005       SUBROUTINE EVNTINIT(FRAME,BEAM,TARGET,WIN)
0006
0007 C...Double precision and integer declarations.
0008       IMPLICIT DOUBLE PRECISION(A-H, O-Z)
0009       IMPLICIT INTEGER(I-N)
0010       INTEGER PYK,PYCHGE,PYCOMP
0011
0012 C...External statement
0013       EXTERNAL PYDATA
0014
0015 C...PYTHIA common block
0016       COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5)
0017 C...HEPEUP for output.
0018       INTEGER MAXNUP
0019       PARAMETER (MAXNUP=500)
0020       INTEGER NUP,IDPRUP,IDUP,ISTUP,MOTHUP,ICOLUP
0021       DOUBLE PRECISION XWGTUP,SCALUP,AQEDUP,AQCDUP,PUP,VTIMUP,SPINUP
0022       COMMON/HEPEUP/NUP,IDPRUP,XWGTUP,SCALUP,AQEDUP,AQCDUP,IDUP(MAXNUP),
0023      &ISTUP(MAXNUP),MOTHUP(2,MAXNUP),ICOLUP(2,MAXNUP),PUP(5,MAXNUP),
0024      &VTIMUP(MAXNUP),SPINUP(MAXNUP)
0025       SAVE /HEPEUP/
0026 C...User process initialization commonblock.
0027       INTEGER MAXPUP
0028       PARAMETER (MAXPUP=100)
0029       INTEGER IDBMUP,PDFGUP,PDFSUP,IDWTUP,NPRUP,LPRUP
0030       DOUBLE PRECISION EBMUP,XSECUP,XERRUP,XMAXUP
0031       COMMON/HEPRUP/IDBMUP(2),EBMUP(2),PDFGUP(2),PDFSUP(2),
0032      &IDWTUP,NPRUP,XSECUP(MAXPUP),XERRUP(MAXPUP),XMAXUP(MAXPUP),
0033      &LPRUP(MAXPUP)
0034       SAVE /HEPRUP/
0035
0036       COMMON/HCLPAR/ECM,NEV
0037
0038       CALL PYINIT('CMS','P','P',ECM)
0039
0040       RETURN
0041       END