]>
Commit | Line | Data |
---|---|---|
952cc209 | 1 | C...This file contains a complete listing of all PYTHIA |
2 | C...commonblocks, and additionally some recommended other | |
3 | C...declarations. You may copy this to the top of your | |
4 | C...mina program and then eliminate unnecessary parts. | |
5 | C Jun 19 1998 P.Murat(CDF): add implicit for integers | |
6 | C Mar 18 1998 P.Murat: remove implicits, add explicit type definition | |
7 | c for all the variables | |
8 | C----------------------------------------------------------------- | |
9 | ||
10 | C...All real arithmetic in double precision. | |
11 | c IMPLICIT DOUBLE PRECISION(A-H, O-Z) | |
12 | c implicit integer (i-n) | |
13 | C...Three Pythia functions return integers, so need declaring. | |
14 | INTEGER PYK,PYCHGE,PYCOMP | |
15 | C...Parameter statement to help give large particle numbers | |
16 | C...(left- and righthanded SUSY, excited fermions). | |
17 | integer KSUSY1, KSUSY2, KEXCIT | |
18 | PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000) | |
19 | ||
20 | C...Commonblocks. | |
21 | C...The event record. | |
22 | COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) | |
23 | integer N,NPAD,K | |
24 | real*8 P,V | |
25 | C...Parameters. | |
26 | COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) | |
27 | integer MSTU, MSTJ | |
28 | real*8 PARU, PARJ | |
29 | C...Particle properties + some flavour parameters. | |
30 | COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) | |
31 | integer KCHG | |
32 | real*8 PMAS, PARF, VCKM | |
33 | C...Decay information. | |
34 | COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5) | |
35 | integer MDCY, MDME, KFDP | |
36 | real*8 BRAT | |
37 | C...Particle names | |
38 | COMMON/PYDAT4/CHAF(500,2) | |
39 | CHARACTER CHAF*16 | |
40 | C...Random number generator information. | |
41 | COMMON/PYDATR/MRPY(6),RRPY(100) | |
42 | integer MRPY | |
43 | real*8 RRPY | |
44 | C...Selection of hard scattering subprocesses. | |
45 | COMMON/PYSUBS/MSEL,MSELPD,MSUB(500),KFIN(2,-40:40),CKIN(200) | |
46 | integer MSEL, MSELPD, MSUB, KFIN | |
47 | real*8 CKIN | |
48 | C...Parameters. | |
49 | COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) | |
50 | integer MSTP, MSTI | |
51 | real*8 PARP, PARI | |
52 | C...Internal variables. | |
53 | COMMON/PYINT1/MINT(400),VINT(400) | |
54 | integer mint | |
55 | real*8 vint | |
56 | C...Process information. | |
57 | COMMON/PYINT2/ISET(500),KFPR(500,2),COEF(500,20),ICOL(40,4,2) | |
58 | integer ISET, KFPR, ICOL | |
59 | real*8 COEF | |
60 | C...Parton distributions and cross sections. | |
61 | COMMON/PYINT3/XSFX(2,-40:40),ISIG(1000,3),SIGH(1000) | |
62 | integer ISIG | |
63 | real*8 XSFX, SIGH | |
64 | C...Resonance width and secondary decay treatment. | |
65 | COMMON/PYINT4/MWID(500),WIDS(500,5) | |
66 | integer MWID | |
67 | real*8 WIDS | |
68 | C...Generation and cross section statistics. | |
69 | COMMON/PYINT5/NGENPD,NGEN(0:500,3),XSEC(0:500,3) | |
70 | integer NGENPD, NGEN | |
71 | real*8 XSEC | |
72 | C...Process names. | |
73 | COMMON/PYINT6/PROC(0:500) | |
74 | CHARACTER PROC*28 | |
75 | C...Total cross sections. | |
76 | COMMON/PYINT7/SIGT(0:6,0:6,0:5) | |
77 | real*8 SIGT | |
78 | C...Photon parton distributions: total and valence only. | |
79 | COMMON/PYINT8/XPVMD(-6:6),XPANL(-6:6),XPANH(-6:6),XPBEH(-6:6), | |
80 | &XPDIR(-6:6) | |
81 | real*8 XPVMD, XPANL, XPANH, XPBEH, XPDIR | |
82 | COMMON/PYINT9/VXPVMD(-6:6),VXPANL(-6:6),VXPANH(-6:6),VXPDGM(-6:6) | |
83 | real*8 VXPVMD, VXPANL, VXPANH, VXPDGM | |
84 | C...Setting up user-defined processes. | |
85 | COMMON/PYUPPR/NUP,KUP(20,7),NFUP,IFUP(10,2),PUP(20,5),Q2UP(0:10) | |
86 | integer NUP, KUP, NFUP, IFUP | |
87 | real*8 PUP, Q2UP | |
88 | C...Supersymmetry parameters. | |
89 | COMMON/PYMSSM/IMSS(0:99),RMSS(0:99) | |
90 | integer IMSS | |
91 | real*8 RMSS | |
92 | C...Supersymmetry mixing matrices. | |
93 | COMMON/PYSSMT/ZMIX(4,4),UMIX(2,2),VMIX(2,2),SMZ(4),SMW(2), | |
94 | &SFMIX(16,4) | |
95 | real*8 ZMIX, UMIX, VMIX, SMZ, SMW, SFMIX | |
96 | C...Parameters for Gauss integration of supersymmetric widths. | |
97 | COMMON/PYINTS/XXM(20) | |
98 | real*8 XXM | |
99 | C...Histogram information. | |
100 | COMMON/PYBINS/IHIST(4),INDX(1000),BIN(20000) | |
101 | integer IHIST, INDX | |
102 | real*8 BIN |