~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/long_ML_SMQCD_optimized/dux_mumvmxg/%..%..%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_GQQB = MP__MDL_COMPLEXI*MP__MDL_G_UVB_FIN_*MP__G
16
 
      MP__UV_GQQT = MP__MDL_COMPLEXI*MP__MDL_G_UVT_FIN_*MP__G
17
 
      MP__UVWFCT_G_2 = MP_COND(CMPLX(MP__MDL_MT,KIND=16)
18
 
     $ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(((MP__MDL_G__EXP__2)
19
 
     $ /(2.000000E+00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16
20
 
     $ *MP__MDL_TF*MP_REGLOG(CMPLX((MP__MDL_MT__EXP__2
21
 
     $ /MP__MDL_MU_R__EXP__2),KIND=16)),KIND=16))
22
 
      MP__UVWFCT_G_1 = MP_COND(CMPLX(MP__MDL_MB,KIND=16)
23
 
     $ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(((MP__MDL_G__EXP__2)
24
 
     $ /(2.000000E+00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16
25
 
     $ *MP__MDL_TF*MP_REGLOG(CMPLX((MP__MDL_MB__EXP__2
26
 
     $ /MP__MDL_MU_R__EXP__2),KIND=16)),KIND=16))
27
 
      MP__R2_BXTW = ((MP__MDL_CKM33*MP__MDL_EE*MP__MDL_COMPLEXI)
28
 
     $ /(MP__MDL_SW*MP__MDL_SQRT__2))*MP__MDL_R2MIXEDFACTOR_FIN_
29
15
      MP__GC_4 = -MP__G
30
16
      MP__GC_5 = MP__MDL_COMPLEXI*MP__G
31
17
      MP__R2_GQQ = -MP__MDL_COMPLEXI*MP__MDL_G__EXP__3/(1.600000E
40
26
     $ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(-((MP__MDL_G__EXP__2)
41
27
     $ /(2.000000E+00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16
42
28
     $ *MP__MDL_TF,KIND=16))
 
29
      MP__R2_BXTW = ((MP__MDL_CKM33*MP__MDL_EE*MP__MDL_COMPLEXI)
 
30
     $ /(MP__MDL_SW*MP__MDL_SQRT__2))*MP__MDL_R2MIXEDFACTOR_FIN_
 
31
      MP__UV_GQQB = MP__MDL_COMPLEXI*MP__MDL_G_UVB_FIN_*MP__G
 
32
      MP__UV_GQQT = MP__MDL_COMPLEXI*MP__MDL_G_UVT_FIN_*MP__G
 
33
      MP__UVWFCT_G_1 = MP_COND(CMPLX(MP__MDL_MB,KIND=16)
 
34
     $ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(((MP__MDL_G__EXP__2)
 
35
     $ /(2.000000E+00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16
 
36
     $ *MP__MDL_TF*MP_REGLOG(CMPLX((MP__MDL_MB__EXP__2
 
37
     $ /MP__MDL_MU_R__EXP__2),KIND=16)),KIND=16))
 
38
      MP__UVWFCT_G_2 = MP_COND(CMPLX(MP__MDL_MT,KIND=16)
 
39
     $ ,CMPLX(0.000000E+00_16,KIND=16),CMPLX(((MP__MDL_G__EXP__2)
 
40
     $ /(2.000000E+00_16*4.800000E+01_16*MP__PI**2))*4.000000E+00_16
 
41
     $ *MP__MDL_TF*MP_REGLOG(CMPLX((MP__MDL_MT__EXP__2
 
42
     $ /MP__MDL_MU_R__EXP__2),KIND=16)),KIND=16))
43
43
      END