← Back to branch summary

~maddevelopers/mg5amcnlo/simple_unlops

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/short_ML_SMQCD_optimized/gg_ttx/loop_CT_calls_1.f

  • Committer: olivier-mattelaer
  • Date: 2021-11-12 09:29:31 UTC
  • mfrom: (967.1.15 3.3.0)
  • Revision ID: olivier-mattelaer-20211112092931-4ec9qfzgxkeovqog
version 3.3.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/short_ML_SMQCD_optimized/gg_ttx/loop_CT_calls_1.f
15
15
      INTEGER NBORNAMPS
16
16
      PARAMETER (NBORNAMPS=3)
17
17
      INTEGER    NLOOPS, NLOOPGROUPS, NCTAMPS
18
 
      PARAMETER (NLOOPS=44, NLOOPGROUPS=26, NCTAMPS=85)
 
18
      PARAMETER (NLOOPS=44, NLOOPGROUPS=28, NCTAMPS=85)
19
19
      INTEGER    NLOOPAMPS
20
20
      PARAMETER (NLOOPAMPS=129)
21
21
      INTEGER    NWAVEFUNCS,NLOOPWAVEFUNCS
95
95
        GOTO 1001
96
96
      ENDIF
97
97
 
98
 
C     CutTools call for loop numbers 1,33,36,27,28,29
 
98
C     CutTools call for loop numbers 1,33,36
99
99
      CALL ML5_0_LOOP_2(5,8,DCMPLX(ZERO),DCMPLX(ZERO),2,I_SO,1)
100
 
C     CutTools call for loop numbers 2,30,31,32
 
100
C     CutTools call for loop numbers 2
101
101
      CALL ML5_0_LOOP_3(3,4,5,DCMPLX(MDL_MT),DCMPLX(ZERO),DCMPLX(ZERO)
102
102
     $ ,2,I_SO,2)
103
103
C     CutTools call for loop numbers 3
158
158
C     CutTools call for loop numbers 26
159
159
      CALL ML5_0_LOOP_4(1,2,3,4,DCMPLX(MDL_MT),DCMPLX(MDL_MT)
160
160
     $ ,DCMPLX(ZERO),DCMPLX(MDL_MT),3,I_SO,22)
 
161
C     CutTools call for loop numbers 27,28,29
 
162
      CALL ML5_0_LOOP_2_3(2,1,2,1,8,DCMPLX(ZERO),DCMPLX(ZERO),1,I_SO
 
163
     $ ,23)
 
164
C     CutTools call for loop numbers 30,31,32
 
165
      CALL ML5_0_LOOP_3_4(1,1,2,3,4,2,1,DCMPLX(MDL_MT),DCMPLX(ZERO)
 
166
     $ ,DCMPLX(ZERO),1,I_SO,24)
161
167
C     CutTools call for loop numbers 39
162
 
      CALL ML5_0_LOOP_2(5,8,DCMPLX(MDL_MB),DCMPLX(MDL_MB),2,I_SO,23)
 
168
      CALL ML5_0_LOOP_2(5,8,DCMPLX(MDL_MB),DCMPLX(MDL_MB),2,I_SO,25)
163
169
C     CutTools call for loop numbers 40,41
164
170
      CALL ML5_0_LOOP_3(1,2,8,DCMPLX(MDL_MB),DCMPLX(MDL_MB)
165
 
     $ ,DCMPLX(MDL_MB),3,I_SO,24)
 
171
     $ ,DCMPLX(MDL_MB),3,I_SO,26)
166
172
C     CutTools call for loop numbers 42
167
 
      CALL ML5_0_LOOP_2(5,8,DCMPLX(MDL_MT),DCMPLX(MDL_MT),2,I_SO,25)
 
173
      CALL ML5_0_LOOP_2(5,8,DCMPLX(MDL_MT),DCMPLX(MDL_MT),2,I_SO,27)
168
174
C     CutTools call for loop numbers 43,44
169
175
      CALL ML5_0_LOOP_3(1,2,8,DCMPLX(MDL_MT),DCMPLX(MDL_MT)
170
 
     $ ,DCMPLX(MDL_MT),3,I_SO,26)
 
176
     $ ,DCMPLX(MDL_MT),3,I_SO,28)
171
177
 
172
178
      GOTO 1001
173
179
 5000 CONTINUE