← Back to branch summary

~maddevelopers/mg5amcnlo/WWW5_caching

« back to all changes in this revision

Viewing changes to users/mardelcourt/PROC_242195/PROC_242195/Source/MODEL/intparam_definition.inc

  • Committer: John Doe
  • Date: 2013-03-25 20:27:02 UTC
  • Revision ID: john.doe@gmail.com-20130325202702-5sk3t1r8h33ca4p4
first clean version

Show diffs side-by-side

added added

removed removed

Lines of Context:
users/mardelcourt/PROC_242195/PROC_242195/Source/MODEL/intparam_definition.inc
 
1
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
 
2
c      written by the UFO converter
 
3
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
 
4
 
 
5
C     Parameters that should not be recomputed event by event.
 
6
C     
 
7
      IF(READLHA) THEN
 
8
 
 
9
        G = 2 * DSQRT(AS*PI)  ! for the first init
 
10
 
 
11
        CONJG__CKM1X1 = 1.000000D+00
 
12
 
 
13
        CONJG__CKM3X3 = 1.000000D+00
 
14
 
 
15
        CKM3X3 = 1.000000D+00
 
16
 
 
17
        COMPLEXI = (0.000000D+00,1.000000D+00)
 
18
 
 
19
        MZ__EXP__2 = MZ**2
 
20
 
 
21
        MZ__EXP__4 = MZ**4
 
22
 
 
23
        SQRT__2 = SQRT(2.000000D+00)
 
24
 
 
25
        MH__EXP__2 = MH**2
 
26
 
 
27
        AEW = 1.000000D+00/AEWM1
 
28
 
 
29
        MW = SQRT(MZ__EXP__2/2.000000D+00+SQRT(MZ__EXP__4/4.000000D
 
30
     $   +00-(AEW*PI*MZ__EXP__2)/(GF*SQRT__2)))
 
31
 
 
32
        SQRT__AEW = SQRT(AEW)
 
33
 
 
34
        EE = 2.000000D+00*SQRT__AEW*SQRT(PI)
 
35
 
 
36
        MW__EXP__2 = MW**2
 
37
 
 
38
        SW2 = 1.000000D+00-MW__EXP__2/MZ__EXP__2
 
39
 
 
40
        CW = SQRT(1.000000D+00-SW2)
 
41
 
 
42
        SQRT__SW2 = SQRT(SW2)
 
43
 
 
44
        SW = SQRT__SW2
 
45
 
 
46
        G1 = EE/CW
 
47
 
 
48
        GW = EE/SW
 
49
 
 
50
        VEV = (2.000000D+00*MW*SW)/EE
 
51
 
 
52
        VEV__EXP__2 = VEV**2
 
53
 
 
54
        LAM = MH__EXP__2/(2.000000D+00*VEV__EXP__2)
 
55
 
 
56
        YB = (YMB*SQRT__2)/VEV
 
57
 
 
58
        YT = (YMT*SQRT__2)/VEV
 
59
 
 
60
        YTAU = (YMTAU*SQRT__2)/VEV
 
61
 
 
62
        MUH = SQRT(LAM*VEV__EXP__2)
 
63
 
 
64
        I1X33 = YB*CONJG__CKM3X3
 
65
 
 
66
        I2X33 = YT*CONJG__CKM3X3
 
67
 
 
68
        I3X33 = CKM3X3*YT
 
69
 
 
70
        I4X33 = CKM3X3*YB
 
71
 
 
72
        EE__EXP__2 = EE**2
 
73
 
 
74
        SW__EXP__2 = SW**2
 
75
 
 
76
        CW__EXP__2 = CW**2
 
77
 
 
78
      ENDIF
 
79
C     
 
80
C     Parameters that should be recomputed at an event by even basis.
 
81
C     
 
82
      AS = G**2/4/PI
 
83
 
 
84
      SQRT__AS = SQRT(AS)
 
85
 
 
86
      G__EXP__2 = G**2
 
87
 
 
88
C     
 
89
C     Definition of the EW coupling used in the write out of aqed
 
90
C     
 
91
      GAL(1) = 1D0
 
92
      GAL(2) = 1D0
 
93