← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/IOTestsComparison/long_ML_SMQCD_optimized/gg_wmtbx/%..%..%Source%MODEL%mp_couplings2.f

  • Committer: olivier Mattelaer
  • Date: 2014-06-11 19:47:48 UTC
  • mfrom: (253.1.38 2.1.2)
  • mto: (253.1.70 2.1.2)
  • mto: This revision was merged to the branch mainline in revision 254.
  • Revision ID: olivier.mattelaer@uclouvain.be-20140611194748-nhxx3210gudd1qfw
merge with 2.1.2

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/IOTestsComparison/long_ML_SMQCD_optimized/gg_wmtbx/%..%..%Source%MODEL%mp_couplings2.f
 
1
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
 
2
c      written by the UFO converter
 
3
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
 
4
 
 
5
      SUBROUTINE MP_COUP2()
 
6
 
 
7
      IMPLICIT NONE
 
8
      REAL*16 MP__PI
 
9
      PARAMETER (MP__PI=3.1415926535897932384626433832795E0_16)
 
10
      INCLUDE 'mp_input.inc'
 
11
      INCLUDE 'mp_coupl.inc'
 
12
 
 
13
 
 
14
      INCLUDE 'model_functions.inc'
 
15
      MP__UV_3GB = -(MP_COND(CMPLX(MP__MDL_MB,KIND=16),CMPLX(0.000000E
 
16
     $ +00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)/(2.000000E
 
17
     $ +00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16*MP__MDL_TF
 
18
     $ *MP_REGLOG(CMPLX((MP__MDL_MB__EXP__2/MP__MDL_MU_R__EXP__2)
 
19
     $ ,KIND=16)),KIND=16)))*MP__G
 
20
      MP__UV_3GT = -(MP_COND(CMPLX(MP__MDL_MT,KIND=16),CMPLX(0.000000E
 
21
     $ +00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)/(2.000000E
 
22
     $ +00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16*MP__MDL_TF
 
23
     $ *MP_REGLOG(CMPLX((MP__MDL_MT__EXP__2/MP__MDL_MU_R__EXP__2)
 
24
     $ ,KIND=16)),KIND=16)))*MP__G
 
25
      MP__UV_GQQB = MP__MDL_COMPLEXI*(MP_COND(CMPLX(MP__MDL_MB
 
26
     $ ,KIND=16),CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP
 
27
     $ __2)/(2.000000E+00_16*4.800000E+01_16*MP__PI**2))*4.000000E
 
28
     $ +00_16*MP__MDL_TF*MP_REGLOG(CMPLX((MP__MDL_MB__EXP__2/MP__MDL_MU
 
29
     $ _R__EXP__2),KIND=16)),KIND=16)))*MP__G
 
30
      MP__UV_GQQT = MP__MDL_COMPLEXI*(MP_COND(CMPLX(MP__MDL_MT
 
31
     $ ,KIND=16),CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP
 
32
     $ __2)/(2.000000E+00_16*4.800000E+01_16*MP__PI**2))*4.000000E
 
33
     $ +00_16*MP__MDL_TF*MP_REGLOG(CMPLX((MP__MDL_MT__EXP__2/MP__MDL_MU
 
34
     $ _R__EXP__2),KIND=16)),KIND=16)))*MP__G
 
35
      MP__UV_BMASS = (MP_COND(CMPLX(MP__MDL_MB,KIND=16),CMPLX(0.000000E
 
36
     $ +00_16,KIND=16),CMPLX(MP__MDL_COMPLEXI*((MP__MDL_G__EXP__2)
 
37
     $ /(1.600000E+01_16*MP__PI**2))*MP__MDL_CF*(4.000000E+00_16
 
38
     $ -3.000000E+00_16*MP_REGLOG(CMPLX((MP__MDL_MB__EXP__2/MP__MDL_MU_
 
39
     $ R__EXP__2),KIND=16)))*MP__MDL_MB,KIND=16)))
 
40
      MP__UV_TMASS = (MP_COND(CMPLX(MP__MDL_MT,KIND=16),CMPLX(0.000000E
 
41
     $ +00_16,KIND=16),CMPLX(MP__MDL_COMPLEXI*((MP__MDL_G__EXP__2)
 
42
     $ /(1.600000E+01_16*MP__PI**2))*MP__MDL_CF*(4.000000E+00_16
 
43
     $ -3.000000E+00_16*MP_REGLOG(CMPLX((MP__MDL_MT__EXP__2/MP__MDL_MU_
 
44
     $ R__EXP__2),KIND=16)))*MP__MDL_MT,KIND=16)))
 
45
      MP__UVWFCT_B_0 = MP_COND(CMPLX(MP__MDL_MB,KIND=16),CMPLX(0.000000
 
46
     $ E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)/(2.000000E
 
47
     $ +00_16*1.600000E+01_16*MP__PI**2))*MP__MDL_CF*(4.000000E
 
48
     $ +00_16-3.000000E+00_16*MP_REGLOG(CMPLX((MP__MDL_MB__EXP__2
 
49
     $ /MP__MDL_MU_R__EXP__2),KIND=16))),KIND=16))
 
50
      MP__UVWFCT_T_0 = MP_COND(CMPLX(MP__MDL_MT,KIND=16),CMPLX(0.000000
 
51
     $ E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)/(2.000000E
 
52
     $ +00_16*1.600000E+01_16*MP__PI**2))*MP__MDL_CF*(4.000000E
 
53
     $ +00_16-3.000000E+00_16*MP_REGLOG(CMPLX((MP__MDL_MT__EXP__2
 
54
     $ /MP__MDL_MU_R__EXP__2),KIND=16))),KIND=16))
 
55
      MP__UVWFCT_G_2 = MP_COND(CMPLX(MP__MDL_MT,KIND=16),CMPLX(0.000000
 
56
     $ E+00_16,KIND=16),CMPLX(((MP__MDL_G__EXP__2)/(2.000000E
 
57
     $ +00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16*MP__MDL_TF
 
58
     $ *MP_REGLOG(CMPLX((MP__MDL_MT__EXP__2/MP__MDL_MU_R__EXP__2)
 
59
     $ ,KIND=16)),KIND=16))
 
60
      MP__UVWFCT_G_1 = MP_COND(CMPLX(MP__MDL_MB,KIND=16),CMPLX(0.000000
 
61
     $ E+00_16,KIND=16),CMPLX(((MP__MDL_G__EXP__2)/(2.000000E
 
62
     $ +00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16*MP__MDL_TF
 
63
     $ *MP_REGLOG(CMPLX((MP__MDL_MB__EXP__2/MP__MDL_MU_R__EXP__2)
 
64
     $ ,KIND=16)),KIND=16))
 
65
      MP__R2_SXCW = ((MP__MDL_CKM22*MP__MDL_EE*MP__MDL_COMPLEXI)
 
66
     $ /(MP__MDL_SW*MP__MDL_SQRT__2))*(-(MP__MDL_G__EXP__2*(1.000000E
 
67
     $ +00_16+MP__MDL_LHV)*(MP__MDL_NCOL__EXP__2_M_1_0))/(2.000000E
 
68
     $ +00_16*MP__MDL_NCOL*1.600000E+01_16*MP__PI**2))
 
69
      MP__GC_4 = -MP__G
 
70
      MP__GC_5 = MP__MDL_COMPLEXI*MP__G
 
71
      MP__GC_6 = MP__MDL_COMPLEXI*MP__MDL_G__EXP__2
 
72
      MP__R2_3GQ = 2.000000E+00_16*MP__MDL_G__EXP__3/(4.800000E
 
73
     $ +01_16*MP__PI**2)
 
74
      MP__R2_3GG = MP__MDL_NCOL*MP__MDL_G__EXP__3/(4.800000E+01_16
 
75
     $ *MP__PI**2)*(7.000000E+00_16/4.000000E+00_16+MP__MDL_LHV)
 
76
      MP__R2_GQQ = -MP__MDL_COMPLEXI*MP__MDL_G__EXP__3/(1.600000E
 
77
     $ +01_16*MP__PI**2)*((MP__MDL_NCOL__EXP__2_M_1)/(2.000000E
 
78
     $ +00_16*MP__MDL_NCOL))*(1.000000E+00_16+MP__MDL_LHV)
 
79
      MP__R2_GGQ = (2.000000E+00_16)*MP__MDL_COMPLEXI*MP__MDL_G__EXP__2
 
80
     $ /(4.800000E+01_16*MP__PI**2)
 
81
      MP__R2_GGB = (2.000000E+00_16)*MP__MDL_COMPLEXI*MP__MDL_G__EXP__2
 
82
     $ *(-6.000000E+00_16*MP__MDL_MB__EXP__2)/(4.800000E+01_16*MP__PI*
 
83
     $ *2)
 
84
      MP__R2_GGT = (2.000000E+00_16)*MP__MDL_COMPLEXI*MP__MDL_G__EXP__2
 
85
     $ *(-6.000000E+00_16*MP__MDL_MT__EXP__2)/(4.800000E+01_16*MP__PI*
 
86
     $ *2)
 
87
      MP__R2_GGG_1 = (2.000000E+00_16)*MP__MDL_COMPLEXI*MP__MDL_G__EXP_
 
88
     $ _2*MP__MDL_NCOL/(4.800000E+01_16*MP__PI**2)*(1.000000E
 
89
     $ +00_16/2.000000E+00_16+MP__MDL_LHV)
 
90
      MP__R2_GGG_2 = -(2.000000E+00_16)*MP__MDL_COMPLEXI*MP__MDL_G__EXP
 
91
     $ __2*MP__MDL_NCOL/(4.800000E+01_16*MP__PI**2)*MP__MDL_LHV
 
92
      MP__R2_QQQ = MP__MDL_LHV*MP__MDL_COMPLEXI*MP__MDL_G__EXP__2
 
93
     $ *(MP__MDL_NCOL__EXP__2_M_1)/(3.200000E+01_16*MP__PI**2
 
94
     $ *MP__MDL_NCOL)
 
95
      MP__R2_QQB = MP__MDL_LHV*MP__MDL_COMPLEXI*MP__MDL_G__EXP__2
 
96
     $ *(MP__MDL_NCOL__EXP__2_M_1)*(2.000000E+00_16*MP__MDL_MB)
 
97
     $ /(3.200000E+01_16*MP__PI**2*MP__MDL_NCOL)
 
98
      MP__R2_QQT = MP__MDL_LHV*MP__MDL_COMPLEXI*MP__MDL_G__EXP__2
 
99
     $ *(MP__MDL_NCOL__EXP__2_M_1)*(2.000000E+00_16*MP__MDL_MT)
 
100
     $ /(3.200000E+01_16*MP__PI**2*MP__MDL_NCOL)
 
101
      END