← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/long_ML_SMQCD_default/dux_mumvmxg/%..%..%Source%MODEL%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/long_ML_SMQCD_default/dux_mumvmxg/%..%..%Source%MODEL%couplings2.f
 
1
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
 
2
c      written by the UFO converter
 
3
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
 
4
 
 
5
      SUBROUTINE COUP2()
 
6
 
 
7
      IMPLICIT NONE
 
8
 
 
9
      DOUBLE PRECISION PI
 
10
      PARAMETER  (PI=3.141592653589793D0)
 
11
      INCLUDE 'input.inc'
 
12
      INCLUDE 'coupl.inc'
 
13
 
 
14
      INCLUDE 'model_functions.inc'
 
15
      UV_GQQB = MDL_COMPLEXI*(COND(DCMPLX(MDL_MB),DCMPLX(0.000000D
 
16
     $ +00),DCMPLX(-((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01*PI*
 
17
     $ *2))*4.000000D+00*MDL_TF*REGLOG(DCMPLX(MDL_MB__EXP__2/MDL_MU_R__
 
18
     $ EXP__2)))))*G
 
19
      UV_GQQT = MDL_COMPLEXI*(COND(DCMPLX(MDL_MT),DCMPLX(0.000000D
 
20
     $ +00),DCMPLX(-((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01*PI*
 
21
     $ *2))*4.000000D+00*MDL_TF*REGLOG(DCMPLX(MDL_MT__EXP__2/MDL_MU_R__
 
22
     $ EXP__2)))))*G
 
23
      UVWFCT_G_2 = COND(DCMPLX(MDL_MT),DCMPLX(0.000000D+00),DCMPLX(((MD
 
24
     $ L_G__EXP__2)/(2.000000D+00*4.800000D+01*PI**2))*4.000000D
 
25
     $ +00*MDL_TF*REGLOG(DCMPLX(MDL_MT__EXP__2/MDL_MU_R__EXP__2))))
 
26
      UVWFCT_G_1 = COND(DCMPLX(MDL_MB),DCMPLX(0.000000D+00),DCMPLX(((MD
 
27
     $ L_G__EXP__2)/(2.000000D+00*4.800000D+01*PI**2))*4.000000D
 
28
     $ +00*MDL_TF*REGLOG(DCMPLX(MDL_MB__EXP__2/MDL_MU_R__EXP__2))))
 
29
      R2_SXCW = ((MDL_CKM22*MDL_EE*MDL_COMPLEXI)/(MDL_SW*MDL_SQRT__2))
 
30
     $ *(-(MDL_G__EXP__2*(1.000000D+00+MDL_LHV)*(MDL_NCOL__EXP__2_M_1_0
 
31
     $ ))/(2.000000D+00*MDL_NCOL*1.600000D+01*PI**2))
 
32
      GC_4 = -G
 
33
      GC_5 = MDL_COMPLEXI*G
 
34
      R2_GQQ = -MDL_COMPLEXI*MDL_G__EXP__3/(1.600000D+01*PI**2)
 
35
     $ *((MDL_NCOL__EXP__2_M_1)/(2.000000D+00*MDL_NCOL))*(1.000000D+00
 
36
     $ +MDL_LHV)
 
37
      R2_QQQ = MDL_LHV*MDL_COMPLEXI*MDL_G__EXP__2*(MDL_NCOL__EXP__2_M_1
 
38
     $ )/(3.200000D+01*PI**2*MDL_NCOL)
 
39
      UV_GQQG_1EPS = MDL_COMPLEXI*(-((MDL_G__EXP__2)/(2.000000D
 
40
     $ +00*4.800000D+01*PI**2))*1.100000D+01*MDL_CA)*G
 
41
      UV_GQQQ_1EPS = MDL_COMPLEXI*(((MDL_G__EXP__2)/(2.000000D
 
42
     $ +00*4.800000D+01*PI**2))*4.000000D+00*MDL_TF)*G
 
43
      UVWFCT_G_2_1EPS = COND(DCMPLX(MDL_MT),DCMPLX(0.000000D+00)
 
44
     $ ,DCMPLX(-((MDL_G__EXP__2)/(2.000000D+00*4.800000D+01*PI**2))
 
45
     $ *4.000000D+00*MDL_TF))
 
46
      END