~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

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

  • Committer: olivier Mattelaer
  • Date: 2016-05-12 11:00:18 UTC
  • mfrom: (262.1.150 2.3.4)
  • Revision ID: olivier.mattelaer@uclouvain.be-20160512110018-sevb79f0wm4g8mpp
pass to 2.4.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
18
18
      MP__UV_GQQT = MP__MDL_COMPLEXI*MP__MDL_G_UVT_FIN_*MP__G
19
19
      MP__UV_BMASS = MP__MDL_BMASS_UV_FIN_
20
20
      MP__UV_TMASS = MP__MDL_TMASS_UV_FIN_
21
 
      MP__UVWFCT_B_0 = MP_COND(CMPLX(MP__MDL_MB,KIND=16),CMPLX(0.000000
22
 
     $ E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)/(2.000000E
23
 
     $ +00_16*1.600000E+01_16*MP__PI**2))*MP__MDL_CF*(4.000000E
24
 
     $ +00_16-3.000000E+00_16*MP_REGLOG(CMPLX((MP__MDL_MB__EXP__2
25
 
     $ /MP__MDL_MU_R__EXP__2),KIND=16))),KIND=16))
26
 
      MP__UVWFCT_T_0 = MP_COND(CMPLX(MP__MDL_MT,KIND=16),CMPLX(0.000000
27
 
     $ E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)/(2.000000E
28
 
     $ +00_16*1.600000E+01_16*MP__PI**2))*MP__MDL_CF*(4.000000E
29
 
     $ +00_16-3.000000E+00_16*MP_REGLOG(CMPLX((MP__MDL_MT__EXP__2
30
 
     $ /MP__MDL_MU_R__EXP__2),KIND=16))),KIND=16))
31
 
      MP__UVWFCT_G_2 = MP_COND(CMPLX(MP__MDL_MT,KIND=16),CMPLX(0.000000
32
 
     $ E+00_16,KIND=16),CMPLX(((MP__MDL_G__EXP__2)/(2.000000E
33
 
     $ +00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16*MP__MDL_TF
34
 
     $ *MP_REGLOG(CMPLX((MP__MDL_MT__EXP__2/MP__MDL_MU_R__EXP__2)
35
 
     $ ,KIND=16)),KIND=16))
36
 
      MP__UVWFCT_G_1 = MP_COND(CMPLX(MP__MDL_MB,KIND=16),CMPLX(0.000000
37
 
     $ E+00_16,KIND=16),CMPLX(((MP__MDL_G__EXP__2)/(2.000000E
38
 
     $ +00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16*MP__MDL_TF
39
 
     $ *MP_REGLOG(CMPLX((MP__MDL_MB__EXP__2/MP__MDL_MU_R__EXP__2)
40
 
     $ ,KIND=16)),KIND=16))
 
21
      MP__UVWFCT_B_0 = MP_COND(CMPLX(MP__MDL_MB,KIND=16)
 
22
     $ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)
 
23
     $ /(2.000000E+00_16*1.600000E+01_16*MP__PI**2))*MP__MDL_CF
 
24
     $ *(4.000000E+00_16-3.000000E+00_16*MP_REGLOG(CMPLX((MP__MDL_MB__E
 
25
     $XP__2/MP__MDL_MU_R__EXP__2),KIND=16))),KIND=16))
 
26
      MP__UVWFCT_T_0 = MP_COND(CMPLX(MP__MDL_MT,KIND=16)
 
27
     $ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)
 
28
     $ /(2.000000E+00_16*1.600000E+01_16*MP__PI**2))*MP__MDL_CF
 
29
     $ *(4.000000E+00_16-3.000000E+00_16*MP_REGLOG(CMPLX((MP__MDL_MT__E
 
30
     $XP__2/MP__MDL_MU_R__EXP__2),KIND=16))),KIND=16))
 
31
      MP__UVWFCT_G_2 = MP_COND(CMPLX(MP__MDL_MT,KIND=16)
 
32
     $ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(((MP__MDL_G__EXP__2)
 
33
     $ /(2.000000E+00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16
 
34
     $ *MP__MDL_TF*MP_REGLOG(CMPLX((MP__MDL_MT__EXP__2
 
35
     $ /MP__MDL_MU_R__EXP__2),KIND=16)),KIND=16))
 
36
      MP__UVWFCT_G_1 = MP_COND(CMPLX(MP__MDL_MB,KIND=16)
 
37
     $ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(((MP__MDL_G__EXP__2)
 
38
     $ /(2.000000E+00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16
 
39
     $ *MP__MDL_TF*MP_REGLOG(CMPLX((MP__MDL_MB__EXP__2
 
40
     $ /MP__MDL_MU_R__EXP__2),KIND=16)),KIND=16))
41
41
      MP__R2_SXCW = ((MP__MDL_CKM22*MP__MDL_EE*MP__MDL_COMPLEXI)
42
42
     $ /(MP__MDL_SW*MP__MDL_SQRT__2))*MP__MDL_R2MIXEDFACTOR_FIN_
43
43
      MP__GC_4 = -MP__G
44
44
      MP__GC_5 = MP__MDL_COMPLEXI*MP__G
45
45
      MP__GC_6 = MP__MDL_COMPLEXI*MP__MDL_G__EXP__2
46
 
      MP__R2_3GQ = 2.000000E+00_16*MP__MDL_G__EXP__3/(4.800000E
47
 
     $ +01_16*MP__PI**2)
 
46
      MP__R2_3GQ = 2.000000E+00_16*MP__MDL_G__EXP__3/(4.800000E+01_16
 
47
     $ *MP__PI**2)
48
48
      MP__R2_3GG = MP__MDL_NCOL*MP__MDL_G__EXP__3/(4.800000E+01_16
49
49
     $ *MP__PI**2)*(7.000000E+00_16/4.000000E+00_16+MP__MDL_LHV)
50
50
      MP__R2_GQQ = -MP__MDL_COMPLEXI*MP__MDL_G__EXP__3/(1.600000E
51
51
     $ +01_16*MP__PI**2)*((MP__MDL_NCOL__EXP__2-1.000000E+00_16)
52
52
     $ /(2.000000E+00_16*MP__MDL_NCOL))*(1.000000E+00_16+MP__MDL_LHV)
53
 
      MP__R2_GGQ = (2.000000E+00_16)*MP__MDL_COMPLEXI*MP__MDL_G__EXP__2
54
 
     $ /(4.800000E+01_16*MP__PI**2)
55
 
      MP__R2_GGB = (2.000000E+00_16)*MP__MDL_COMPLEXI*MP__MDL_G__EXP__2
56
 
     $ *(-6.000000E+00_16*MP__MDL_MB__EXP__2)/(4.800000E+01_16*MP__PI*
57
 
     $ *2)
58
 
      MP__R2_GGT = (2.000000E+00_16)*MP__MDL_COMPLEXI*MP__MDL_G__EXP__2
59
 
     $ *(-6.000000E+00_16*MP__MDL_MT__EXP__2)/(4.800000E+01_16*MP__PI*
60
 
     $ *2)
61
 
      MP__R2_GGG_1 = (2.000000E+00_16)*MP__MDL_COMPLEXI*MP__MDL_G__EXP_
62
 
     $ _2*MP__MDL_NCOL/(4.800000E+01_16*MP__PI**2)*(1.000000E
63
 
     $ +00_16/2.000000E+00_16+MP__MDL_LHV)
64
 
      MP__R2_GGG_2 = -(2.000000E+00_16)*MP__MDL_COMPLEXI*MP__MDL_G__EXP
65
 
     $ __2*MP__MDL_NCOL/(4.800000E+01_16*MP__PI**2)*MP__MDL_LHV
 
53
      MP__R2_GGQ = (2.000000E+00_16)*MP__MDL_COMPLEXI
 
54
     $ *MP__MDL_G__EXP__2/(4.800000E+01_16*MP__PI**2)
 
55
      MP__R2_GGB = (2.000000E+00_16)*MP__MDL_COMPLEXI
 
56
     $ *MP__MDL_G__EXP__2*(-6.000000E+00_16*MP__MDL_MB__EXP__2)
 
57
     $ /(4.800000E+01_16*MP__PI**2)
 
58
      MP__R2_GGT = (2.000000E+00_16)*MP__MDL_COMPLEXI
 
59
     $ *MP__MDL_G__EXP__2*(-6.000000E+00_16*MP__MDL_MT__EXP__2)
 
60
     $ /(4.800000E+01_16*MP__PI**2)
 
61
      MP__R2_GGG_1 = (2.000000E+00_16)*MP__MDL_COMPLEXI
 
62
     $ *MP__MDL_G__EXP__2*MP__MDL_NCOL/(4.800000E+01_16*MP__PI**2)
 
63
     $ *(1.000000E+00_16/2.000000E+00_16+MP__MDL_LHV)
 
64
      MP__R2_GGG_2 = -(2.000000E+00_16)*MP__MDL_COMPLEXI
 
65
     $ *MP__MDL_G__EXP__2*MP__MDL_NCOL/(4.800000E+01_16*MP__PI**2)
 
66
     $ *MP__MDL_LHV
66
67
      MP__R2_QQQ = MP__MDL_LHV*MP__MDL_COMPLEXI*MP__MDL_G__EXP__2
67
68
     $ *(MP__MDL_NCOL__EXP__2-1.000000E+00_16)/(3.200000E+01_16*MP__PI
68
69
     $ **2*MP__MDL_NCOL)