← 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_optimized/gg_wmtbx/helas_calls_uvct_1.f

  • Committer: olivier Mattelaer
  • Date: 2015-03-05 00:14:16 UTC
  • mfrom: (258.1.9 2.3)
  • mto: (258.8.1 2.3)
  • mto: This revision was merged to the branch mainline in revision 259.
  • Revision ID: olivier.mattelaer@uclouvain.be-20150305001416-y9mzeykfzwnl9t0j
partial merge

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/long_ML_SMQCD_optimized/gg_wmtbx/helas_calls_uvct_1.f
4
4
C     
5
5
C     CONSTANTS
6
6
C     
7
 
      INTEGER NBORNAMPS
8
 
      PARAMETER (NBORNAMPS=8)
9
7
      INTEGER    NEXTERNAL
10
8
      PARAMETER (NEXTERNAL=5)
11
9
      INTEGER    NCOMB
12
10
      PARAMETER (NCOMB=48)
 
11
      INTEGER NBORNAMPS
 
12
      PARAMETER (NBORNAMPS=8)
13
13
      INTEGER    NLOOPS, NLOOPGROUPS, NCTAMPS
14
 
      PARAMETER (NLOOPS=162, NLOOPGROUPS=77, NCTAMPS=252)
 
14
      PARAMETER (NLOOPS=144, NLOOPGROUPS=77, NCTAMPS=252)
 
15
      INTEGER    NLOOPAMPS
 
16
      PARAMETER (NLOOPAMPS=396)
15
17
      INTEGER    NWAVEFUNCS,NLOOPWAVEFUNCS
16
 
      PARAMETER (NWAVEFUNCS=28,NLOOPWAVEFUNCS=300)
 
18
      PARAMETER (NWAVEFUNCS=28,NLOOPWAVEFUNCS=267)
17
19
      INTEGER MAXLWFSIZE
18
20
      PARAMETER (MAXLWFSIZE=4)
19
21
      INTEGER LOOPMAXCOEFS, VERTEXMAXCOEFS
79
81
      COMPLEX*16 PL(0:3,0:NLOOPWAVEFUNCS)
80
82
      COMMON/ML5_0_WL/WL,PL
81
83
 
82
 
      COMPLEX*16 LOOPCOEFS(0:LOOPMAXCOEFS-1,NSQUAREDSO,NLOOPGROUPS)
83
 
      COMMON/ML5_0_LCOEFS/LOOPCOEFS
84
 
 
85
84
      COMPLEX*16 AMPL(3,NCTAMPS)
86
85
      COMMON/ML5_0_AMPL/AMPL
87
86
 
88
 
      COMPLEX*16 LOOPRES(3,NSQUAREDSO,NLOOPGROUPS)
89
 
      LOGICAL S(NSQUAREDSO,NLOOPGROUPS)
90
 
      COMMON/ML5_0_LOOPRES/LOOPRES,S
91
87
C     
92
88
C     ----------
93
89
C     BEGIN CODE
99
95
        GOTO 1001
100
96
      ENDIF
101
97
 
102
 
C     Amplitude(s) for UVCT diagram with ID 153
 
98
C     Amplitude(s) for UVCT diagram with ID 135
103
99
      CALL FFV1_0(W(1,5),W(1,7),W(1,6),GC_5,AMPL(1,237))
104
100
      AMPL(1,237)=AMPL(1,237)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
105
101
     $ +1.0D0*UVWFCT_T_0+1.0D0*UVWFCT_B_0)
106
 
C     Amplitude(s) for UVCT diagram with ID 154
 
102
C     Amplitude(s) for UVCT diagram with ID 136
107
103
      CALL FFV1_0(W(1,5),W(1,7),W(1,6),GC_5,AMPL(2,238))
108
104
      AMPL(2,238)=AMPL(2,238)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0*UVWFCT_G_2_1
109
105
     $ EPS)
110
 
C     Amplitude(s) for UVCT diagram with ID 155
 
106
C     Amplitude(s) for UVCT diagram with ID 137
111
107
      CALL FFV1_0(W(1,8),W(1,4),W(1,6),GC_5,AMPL(1,239))
112
108
      AMPL(1,239)=AMPL(1,239)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
113
109
     $ +1.0D0*UVWFCT_T_0+1.0D0*UVWFCT_B_0)
114
 
C     Amplitude(s) for UVCT diagram with ID 156
 
110
C     Amplitude(s) for UVCT diagram with ID 138
115
111
      CALL FFV1_0(W(1,8),W(1,4),W(1,6),GC_5,AMPL(2,240))
116
112
      AMPL(2,240)=AMPL(2,240)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0*UVWFCT_G_2_1
117
113
     $ EPS)
118
 
C     Amplitude(s) for UVCT diagram with ID 157
 
114
C     Amplitude(s) for UVCT diagram with ID 139
119
115
      CALL FFV2_0(W(1,10),W(1,9),W(1,3),GC_47,AMPL(1,241))
120
116
      AMPL(1,241)=AMPL(1,241)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
121
117
     $ +1.0D0*UVWFCT_T_0+1.0D0*UVWFCT_B_0)
122
 
C     Amplitude(s) for UVCT diagram with ID 158
 
118
C     Amplitude(s) for UVCT diagram with ID 140
123
119
      CALL FFV2_0(W(1,10),W(1,9),W(1,3),GC_47,AMPL(2,242))
124
120
      AMPL(2,242)=AMPL(2,242)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0*UVWFCT_G_2_1
125
121
     $ EPS)
126
 
C     Amplitude(s) for UVCT diagram with ID 159
 
122
C     Amplitude(s) for UVCT diagram with ID 141
127
123
      CALL FFV1_0(W(1,8),W(1,9),W(1,2),GC_5,AMPL(1,243))
128
124
      AMPL(1,243)=AMPL(1,243)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
129
125
     $ +1.0D0*UVWFCT_T_0+1.0D0*UVWFCT_B_0)
130
 
C     Amplitude(s) for UVCT diagram with ID 160
 
126
C     Amplitude(s) for UVCT diagram with ID 142
131
127
      CALL FFV1_0(W(1,8),W(1,9),W(1,2),GC_5,AMPL(2,244))
132
128
      AMPL(2,244)=AMPL(2,244)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0*UVWFCT_G_2_1
133
129
     $ EPS)
134
 
C     Amplitude(s) for UVCT diagram with ID 161
 
130
C     Amplitude(s) for UVCT diagram with ID 143
135
131
      CALL FFV2_0(W(1,11),W(1,12),W(1,3),GC_47,AMPL(1,245))
136
132
      AMPL(1,245)=AMPL(1,245)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
137
133
     $ +1.0D0*UVWFCT_T_0+1.0D0*UVWFCT_B_0)
138
 
C     Amplitude(s) for UVCT diagram with ID 162
 
134
C     Amplitude(s) for UVCT diagram with ID 144
139
135
      CALL FFV2_0(W(1,11),W(1,12),W(1,3),GC_47,AMPL(2,246))
140
136
      AMPL(2,246)=AMPL(2,246)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0*UVWFCT_G_2_1
141
137
     $ EPS)
142
 
C     Amplitude(s) for UVCT diagram with ID 163
 
138
C     Amplitude(s) for UVCT diagram with ID 145
143
139
      CALL FFV1_0(W(1,11),W(1,7),W(1,2),GC_5,AMPL(1,247))
144
140
      AMPL(1,247)=AMPL(1,247)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
145
141
     $ +1.0D0*UVWFCT_T_0+1.0D0*UVWFCT_B_0)
146
 
C     Amplitude(s) for UVCT diagram with ID 164
 
142
C     Amplitude(s) for UVCT diagram with ID 146
147
143
      CALL FFV1_0(W(1,11),W(1,7),W(1,2),GC_5,AMPL(2,248))
148
144
      AMPL(2,248)=AMPL(2,248)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0*UVWFCT_G_2_1
149
145
     $ EPS)
150
 
C     Amplitude(s) for UVCT diagram with ID 165
 
146
C     Amplitude(s) for UVCT diagram with ID 147
151
147
      CALL FFV1_0(W(1,8),W(1,12),W(1,1),GC_5,AMPL(1,249))
152
148
      AMPL(1,249)=AMPL(1,249)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
153
149
     $ +1.0D0*UVWFCT_T_0+1.0D0*UVWFCT_B_0)
154
 
C     Amplitude(s) for UVCT diagram with ID 166
 
150
C     Amplitude(s) for UVCT diagram with ID 148
155
151
      CALL FFV1_0(W(1,8),W(1,12),W(1,1),GC_5,AMPL(2,250))
156
152
      AMPL(2,250)=AMPL(2,250)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0*UVWFCT_G_2_1
157
153
     $ EPS)
158
 
C     Amplitude(s) for UVCT diagram with ID 167
 
154
C     Amplitude(s) for UVCT diagram with ID 149
159
155
      CALL FFV1_0(W(1,10),W(1,7),W(1,1),GC_5,AMPL(1,251))
160
156
      AMPL(1,251)=AMPL(1,251)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
161
157
     $ +1.0D0*UVWFCT_T_0+1.0D0*UVWFCT_B_0)
162
 
C     Amplitude(s) for UVCT diagram with ID 168
 
158
C     Amplitude(s) for UVCT diagram with ID 150
163
159
      CALL FFV1_0(W(1,10),W(1,7),W(1,1),GC_5,AMPL(2,252))
164
160
      AMPL(2,252)=AMPL(2,252)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0*UVWFCT_G_2_1
165
161
     $ EPS)