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

  • Committer: olivier Mattelaer
  • Date: 2016-05-12 11:00:18 UTC
  • mfrom: (262.1.150 2.3.4)
  • Revision ID: olivier.mattelaer@uclouvain.be-20160512110018-sevb79f0wm4g8mpp
pass to 2.4.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/long_ML_SMQCD_default/gg_wmtbx/CT_interface.f
6
6
C     
7
7
C     Interface between MG5 and CutTools.
8
8
C     
9
 
C     Process: g g > w- t b~ QED=1 QCD=2 [ virt = QCD ]
 
9
C     Process: g g > w- t b~ QED<=1 QCD<=2 [ virt = QCD ]
10
10
C     
11
11
C     
12
12
C     CONSTANTS 
33
33
C     
34
34
      COMPLEX*16 R1, ACC
35
35
      INTEGER I, J, K
36
 
      LOGICAL CTINIT, TIRINIT, GOLEMINIT
37
 
      COMMON/REDUCTIONCODEINIT/CTINIT,TIRINIT,GOLEMINIT
 
36
      LOGICAL CTINIT, TIRINIT, GOLEMINIT, SAMURAIINIT, NINJAINIT
 
37
      COMMON/REDUCTIONCODEINIT/CTINIT,TIRINIT,GOLEMINIT,SAMURAIINIT
 
38
     $ ,NINJAINIT
38
39
C     
39
40
C     EXTERNAL FUNCTIONS
40
41
C     
151
152
 
152
153
      END
153
154
 
154
 
      SUBROUTINE ML5_0_LOOP_3_3( LID, W1, W2, W3, M1,MP_M1, M2,MP_M2
155
 
     $ , M3,MP_M3, C1,MP_C1, C2,MP_C2, C3,MP_C3,  RANK, LSYMFACT
156
 
     $ , LMULTIPLIER, AMPLN, RES, STABLE)
 
155
      SUBROUTINE ML5_0_LOOP_3_3( LID, W1, W2, W3, M1,MP_M1, M2,MP_M2,
 
156
     $  M3,MP_M3, C1,MP_C1, C2,MP_C2, C3,MP_C3,  RANK, LSYMFACT,
 
157
     $  LMULTIPLIER, AMPLN, RES, STABLE)
157
158
 
158
159
      INTEGER    NEXTERNAL
159
160
      PARAMETER (NEXTERNAL=5)
254
255
      END
255
256
 
256
257
      SUBROUTINE ML5_0_LOOP_2_2( LID, W1, W2, M1,MP_M1, M2,MP_M2, C1
257
 
     $ ,MP_C1, C2,MP_C2,  RANK, LSYMFACT, LMULTIPLIER, AMPLN, RES
258
 
     $ , STABLE)
 
258
     $ ,MP_C1, C2,MP_C2,  RANK, LSYMFACT, LMULTIPLIER, AMPLN, RES,
 
259
     $  STABLE)
259
260
 
260
261
      INTEGER    NEXTERNAL
261
262
      PARAMETER (NEXTERNAL=5)
451
452
 
452
453
      END
453
454
 
454
 
      SUBROUTINE ML5_0_LOOP_2_3_2( LID, P1, P2, W1, W2, W3, M1,MP_M1
455
 
     $ , M2,MP_M2, C1,MP_C1, C2,MP_C2,  RANK, LSYMFACT, LMULTIPLIER
456
 
     $ , AMPLN, RES, STABLE)
 
455
      SUBROUTINE ML5_0_LOOP_2_3_2( LID, P1, P2, W1, W2, W3, M1,MP_M1,
 
456
     $  M2,MP_M2, C1,MP_C1, C2,MP_C2,  RANK, LSYMFACT, LMULTIPLIER,
 
457
     $  AMPLN, RES, STABLE)
457
458
 
458
459
      INTEGER    NEXTERNAL
459
460
      PARAMETER (NEXTERNAL=5)