~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/short_ML_SMQCD_optimized/gg_ttx/%..%..%Source%MODEL%mp_couplings2.f

mwrge with 2.7.3

Show diffs side-by-side

added added

removed removed

Lines of Context:
12
12
      INCLUDE 'mp_input.inc'
13
13
      INCLUDE 'mp_coupl.inc'
14
14
 
15
 
      MP__UV_3GB = -MP__MDL_G_UVB_FIN_*MP__G
16
 
      MP__UV_3GT = -MP__MDL_G_UVT_FIN_*MP__G
17
 
      MP__UV_GQQB = MP__MDL_COMPLEXI*MP__MDL_G_UVB_FIN_*MP__G
18
 
      MP__UV_GQQT = MP__MDL_COMPLEXI*MP__MDL_G_UVT_FIN_*MP__G
19
 
      MP__UV_TMASS = MP__MDL_TMASS_UV_FIN_
20
 
      MP__UVWFCT_T_0 = MP_COND(CMPLX(MP__MDL_MT,KIND=16)
21
 
     $ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)
22
 
     $ /(2.000000E+00_16*1.600000E+01_16*MP__PI**2))*MP__MDL_CF
23
 
     $ *(4.000000E+00_16-3.000000E+00_16*MP_REGLOG(CMPLX((MP__MDL_MT__E
24
 
     $XP__2/MP__MDL_MU_R__EXP__2),KIND=16))),KIND=16))
25
 
      MP__UVWFCT_G_2 = MP_COND(CMPLX(MP__MDL_MT,KIND=16)
26
 
     $ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(((MP__MDL_G__EXP__2)
27
 
     $ /(2.000000E+00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16
28
 
     $ *MP__MDL_TF*MP_REGLOG(CMPLX((MP__MDL_MT__EXP__2
29
 
     $ /MP__MDL_MU_R__EXP__2),KIND=16)),KIND=16))
30
 
      MP__UVWFCT_G_1 = MP_COND(CMPLX(MP__MDL_MB,KIND=16)
31
 
     $ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(((MP__MDL_G__EXP__2)
32
 
     $ /(2.000000E+00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16
33
 
     $ *MP__MDL_TF*MP_REGLOG(CMPLX((MP__MDL_MB__EXP__2
34
 
     $ /MP__MDL_MU_R__EXP__2),KIND=16)),KIND=16))
35
15
      MP__GC_4 = -MP__G
36
16
      MP__GC_5 = MP__MDL_COMPLEXI*MP__G
37
17
      MP__GC_6 = MP__MDL_COMPLEXI*MP__MDL_G__EXP__2
66
46
      MP__UV_3GB_1EPS = -MP__MDL_G_UVB_1EPS_*MP__G
67
47
      MP__UV_GQQG_1EPS = MP__MDL_COMPLEXI*MP__MDL_G_UVG_1EPS_*MP__G
68
48
      MP__UV_GQQB_1EPS = MP__MDL_COMPLEXI*MP__MDL_G_UVB_1EPS_*MP__G
 
49
      MP__UV_TMASS_1EPS = MP__MDL_TMASS_UV_1EPS_
 
50
      MP__UVWFCT_B_0_1EPS = MP_COND(CMPLX(MP__MDL_MB,KIND=16)
 
51
     $ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)
 
52
     $ /(2.000000E+00_16*1.600000E+01_16*MP__PI**2))*3.000000E+00_16
 
53
     $ *MP__MDL_CF,KIND=16))
 
54
      MP__UVWFCT_G_1_1EPS = MP_COND(CMPLX(MP__MDL_MB,KIND=16)
 
55
     $ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)
 
56
     $ /(2.000000E+00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16
 
57
     $ *MP__MDL_TF,KIND=16))
 
58
      MP__UV_3GB = -MP__MDL_G_UVB_FIN_*MP__G
 
59
      MP__UV_3GT = -MP__MDL_G_UVT_FIN_*MP__G
 
60
      MP__UV_GQQB = MP__MDL_COMPLEXI*MP__MDL_G_UVB_FIN_*MP__G
 
61
      MP__UV_GQQT = MP__MDL_COMPLEXI*MP__MDL_G_UVT_FIN_*MP__G
 
62
      MP__UV_TMASS = MP__MDL_TMASS_UV_FIN_
69
63
      END