← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/short_ML_SMQCD_LoopInduced/gg_hh/CT_interface.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/short_ML_SMQCD_LoopInduced/gg_hh/CT_interface.f
6
6
C     
7
7
C     Interface between MG5 and CutTools.
8
8
C     
9
 
C     Process: g g > h h QED=2 QCD=2 [ virt = QCD ]
 
9
C     Process: g g > h h QED=2 QCD=2 [ sqrvirt = QCD ]
10
10
C     
11
11
C     
12
12
C     CONSTANTS 
49
49
      COMMON/ML5_0_CT/LSCALE,CTMODE
50
50
 
51
51
      INTEGER WE(NEXTERNAL)
52
 
      INTEGER ID, SYMFACT, AMPLNUM
53
 
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT, AMPLNUM
 
52
      INTEGER ID, SYMFACT, MULTIPLIER, AMPLNUM
 
53
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT, MULTIPLIER, AMPLNUM
54
54
 
55
55
C     ----------
56
56
C     BEGIN CODE
153
153
 
154
154
      SUBROUTINE ML5_0_LOOP_3_3( LID, W1, W2, W3, M1,MP_M1, M2,MP_M2
155
155
     $ , M3,MP_M3, C1,MP_C1, C2,MP_C2, C3,MP_C3,  RANK, LSYMFACT
156
 
     $ , AMPLN, RES, STABLE)
 
156
     $ , LMULTIPLIER, AMPLN, RES, STABLE)
157
157
 
158
158
      INTEGER    NEXTERNAL
159
159
      PARAMETER (NEXTERNAL=4)
175
175
      COMPLEX*32 MP_C1, MP_C2, MP_C3
176
176
 
177
177
      COMPLEX*16 RES(3)
178
 
      INTEGER LID, RANK, LSYMFACT
 
178
      INTEGER LID, RANK, LSYMFACT, LMULTIPLIER
179
179
      INTEGER AMPLN
180
180
      LOGICAL STABLE
181
181
C     
189
189
C     GLOBAL VARIABLES
190
190
C     
191
191
      INTEGER WE(NEXTERNAL)
192
 
      INTEGER ID, SYMFACT, AMPLNUM
193
 
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT, AMPLNUM
 
192
      INTEGER ID, SYMFACT, MULTIPLIER, AMPLNUM
 
193
      COMMON/ML5_0_LOOP/WE,ID, SYMFACT, MULTIPLIER,AMPLNUM
194
194
 
195
195
      COMPLEX*16 LC(MAXLCOUPLINGS)
196
196
      COMPLEX*16 ML(NEXTERNAL+2)
238
238
      AMPLNUM=AMPLN
239
239
      ID=LID
240
240
      SYMFACT=LSYMFACT
 
241
      MULTIPLIER=LMULTIPLIER
241
242
      DO I=0,3
242
243
        TEMP=1
243
244
        DO J=1,NLOOPLINE
254
255
 
255
256
      SUBROUTINE ML5_0_LOOP_4_4( LID, W1, W2, W3, W4, M1,MP_M1, M2
256
257
     $ ,MP_M2, M3,MP_M3, M4,MP_M4, C1,MP_C1, C2,MP_C2, C3,MP_C3, C4
257
 
     $ ,MP_C4,  RANK, LSYMFACT, AMPLN, RES, STABLE)
 
258
     $ ,MP_C4,  RANK, LSYMFACT, LMULTIPLIER, AMPLN, RES, STABLE)
258
259
 
259
260
      INTEGER    NEXTERNAL
260
261
      PARAMETER (NEXTERNAL=4)
276
277
      COMPLEX*32 MP_C1, MP_C2, MP_C3, MP_C4
277
278
 
278
279
      COMPLEX*16 RES(3)
279
 
      INTEGER LID, RANK, LSYMFACT
 
280
      INTEGER LID, RANK, LSYMFACT, LMULTIPLIER
280
281
      INTEGER AMPLN
281
282
      LOGICAL STABLE
282
283
C     
290
291
C     GLOBAL VARIABLES
291
292
C     
292
293
      INTEGER WE(NEXTERNAL)
293
 
      INTEGER ID, SYMFACT, AMPLNUM
294
 
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT, AMPLNUM
 
294
      INTEGER ID, SYMFACT, MULTIPLIER, AMPLNUM
 
295
      COMMON/ML5_0_LOOP/WE,ID, SYMFACT, MULTIPLIER,AMPLNUM
295
296
 
296
297
      COMPLEX*16 LC(MAXLCOUPLINGS)
297
298
      COMPLEX*16 ML(NEXTERNAL+2)
345
346
      AMPLNUM=AMPLN
346
347
      ID=LID
347
348
      SYMFACT=LSYMFACT
 
349
      MULTIPLIER=LMULTIPLIER
348
350
      DO I=0,3
349
351
        TEMP=1
350
352
        DO J=1,NLOOPLINE