← Back to branch summary

~maddevelopers/mg5amcnlo/WWW_tg

« back to all changes in this revision

Viewing changes to users/mardelcourt/PROC_129738/PROC_129738/Source/MODEL/couplings1.f

  • Committer: John Doe
  • Date: 2013-03-25 20:27:02 UTC
  • Revision ID: john.doe@gmail.com-20130325202702-5sk3t1r8h33ca4p4
first clean version

Show diffs side-by-side

added added

removed removed

Lines of Context:
users/mardelcourt/PROC_129738/PROC_129738/Source/MODEL/couplings1.f
 
1
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
 
2
c      written by the UFO converter
 
3
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
 
4
 
 
5
      SUBROUTINE COUP1()
 
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
      GC_1 = -(EE*COMPLEXI)/3.000000D+00
 
16
      GC_2 = (2.000000D+00*EE*COMPLEXI)/3.000000D+00
 
17
      GC_3 = -(EE*COMPLEXI)
 
18
      GC_50 = -(CW*EE*COMPLEXI)/(2.000000D+00*SW)
 
19
      GC_51 = (CW*EE*COMPLEXI)/(2.000000D+00*SW)
 
20
      GC_58 = -(EE*COMPLEXI*SW)/(6.000000D+00*CW)
 
21
      GC_59 = (EE*COMPLEXI*SW)/(2.000000D+00*CW)
 
22
      END