File indexing completed on 2023-10-25 09:48:24
0001
0002
0003
0004
0005 SUBROUTINE EVNTINIT(FRAME,BEAM,TARGET,WIN)
0006
0007
0008 IMPLICIT DOUBLE PRECISION(A-H, O-Z)
0009 IMPLICIT INTEGER(I-N)
0010 INTEGER PYK,PYCHGE,PYCOMP
0011
0012
0013 EXTERNAL PYDATA
0014
0015
0016 COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5)
0017
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
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