← Back to branch summary

~maddevelopers/mg5amcnlo/2.9.4

« back to all changes in this revision

Viewing changes to vendor/StdHEP/src/inc/qq/qqprop.inc

pass to v2.0.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
vendor/StdHEP/src/inc/qq/qqprop.inc
 
1
*
 
2
* $Id: qqprop.inc,v 1.1 2005/09/29 19:27:22 garren Exp $
 
3
*
 
4
* $Log: qqprop.inc,v $
 
5
* Revision 1.1  2005/09/29 19:27:22  garren
 
6
* 5.04.02
 
7
*
 
8
* Revision 1.1 1994/10/07 23:57:39 zfiles
 
9
* New include files for QQ.
 
10
*
 
11
*
 
12
*CMZ : 1.02/61 03/10/94 17.34.16 by Paul Avery
 
13
*CMZ : 1.03/70 11/10/93 09.28.52 by Paul Avery
 
14
*CMZ : 08/10/93 13.00.47 by Paul Avery
 
15
*>> Author :
 
16
* 17/10/96 Lynn Garren: Add double precision conditionals.
 
17
*
 
18
* >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 
19
* QQPROP.INC
 
20
*
 
21
* Particle properties
 
22
* >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 
23
*
 
24
C
 
25
* NPMNQQ Minimum particle # defined in list
 
26
* NPMXQQ Maximum particle # defined in list
 
27
*
 
28
* IDPDGQ(IP) PDG particle code
 
29
* IDMC(IP) Stable particle code (not really used in QQ)
 
30
* LPARTY(IP) Parity of particle
 
31
* CPARTY(IP) C parity of particle
 
32
* IMIXPP(IP) IMIXPP(IP) = particle it mixes into (0 if no mixing)
 
33
* ICPMIX(IP) ICPMIX(IP) = particle it mixes into (0 if no CP violation)
 
34
* HIDEQQ(IP) TRUE ==> hidden particle, never appears in decay history.
 
35
* When produced, it is decayed immediately.
 
36
      INTEGER NPMNQQ, NPMXQQ
 
37
      INTEGER IDPDGQ, IDMC, LPARTY, CPARTY, IMIXPP, ICPMIX
 
38
      LOGICAL HIDEQQ
 
39
      COMMON/QQPAR1/
 
40
     * NPMNQQ, NPMXQQ,
 
41
     * IDPDGQ(-20:MCNUM),
 
42
     * IDMC(-20:MCNUM),
 
43
     * LPARTY(-20:MCNUM), CPARTY(-20:MCNUM),
 
44
     * IMIXPP(-20:MCNUM), ICPMIX(-20:MCNUM),
 
45
     * HIDEQQ(-20:MCNUM)
 
46
* AMASS(IP) Particle mass
 
47
* CHARGE(IP) Charge
 
48
* CTAU(IP) Lifetime in meters
 
49
* SPIN(IP) spin (0, 0.5, 1.0, 1.5, 2.0, ...)
 
50
* RWIDTH(IP) widths
 
51
* RMASMN(IP) Minimum mass (for RWIDTH > 0.)
 
52
* RMASMX(IP) Maximum mass (for RWIDTH > 0.)
 
53
* RMIXPP(IP) RMIXPP(IP) = dM/Gamma = mixing strength
 
54
* RCPMIX(IP) RCPMIX(IP) = CP violation parameter
 
55
      DOUBLE PRECISION AMASS, CTAU, RWIDTH, RMASMN, RMASMX
 
56
      REAL CHARGE, SPIN
 
57
      DOUBLE PRECISION RMIXPP, RCPMIX
 
58
      COMMON/QQPAR2/
 
59
     * AMASS(-20:MCNUM), CTAU(-20:MCNUM),
 
60
     * RWIDTH(-20:MCNUM), RMASMN(-20:MCNUM), RMASMX(-20:MCNUM),
 
61
     * RMIXPP(-20:MCNUM), RCPMIX(-20:MCNUM),
 
62
     * CHARGE(-20:MCNUM),
 
63
     * SPIN(-20:MCNUM)
 
64
* INVMC List of particle codes for stable particle (Inverse of IDMC)
 
65
      INTEGER INVMC
 
66
      COMMON/QQPAR3/
 
67
     * INVMC(0:MCSTBL)
 
68
* NPOLQQ Number of polarized decays
 
69
* IPOLQQ List of daughter particles
 
70
      INTEGER NPOLQQ, IPOLQQ
 
71
      COMMON/QQPAR4/
 
72
     * NPOLQQ, IPOLQQ(5,MPOLQQ)
 
73
* QNAME qqbar names (37th is generic qqbar)
 
74
* PNAME Particle names
 
75
      CHARACTER QNAME*10, PNAME*10
 
76
      COMMON/QQPAR5/
 
77
     * QNAME(37), PNAME(-20:MCNUM)
 
78
      CHARACTER*10 PNAMEA(MCNUM1)
 
79
      EQUIVALENCE (PNAME(-20), PNAMEA)
 
80
*