← Back to branch summary

~maddevelopers/mg5amcnlo/WWW5_caching

« back to all changes in this revision

Viewing changes to users/mardelcourt/PROC_129738/PROC_129738/Source/MODEL/couplings2.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/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
      GC_10 = -G
 
16
      GC_11 = COMPLEXI*G
 
17
      GC_12 = COMPLEXI*G__EXP__2
 
18
      END