← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/MadLoop_output_from_the_interface/TIR_output/%ggttx_IOTest%SubProcesses%P0_gg_ttx%polynomial.f

  • Committer: olivier-mattelaer
  • Date: 2020-06-21 12:18:57 UTC
  • mfrom: (287.1.60 2.7.3)
  • Revision ID: olivier-mattelaer-20200621121857-100mi4vt3zyj2ye4
pass to 2.7.3

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/MadLoop_output_from_the_interface/TIR_output/%ggttx_IOTest%SubProcesses%P0_gg_ttx%polynomial.f
99
99
C     
100
100
C     FUNCTIONS
101
101
C     
102
 
      INTEGER ML5_0_ML5SOINDEX_FOR_BORN_AMP, ML5_0_ML5SOINDEX_FOR_LOOP_
103
 
     $AMP, ML5_0_ML5SQSOINDEX
 
102
      INTEGER ML5_0_ML5SOINDEX_FOR_BORN_AMP,
 
103
     $  ML5_0_ML5SOINDEX_FOR_LOOP_AMP, ML5_0_ML5SQSOINDEX
104
104
C     
105
105
C     GLOBAL VARIABLES
106
106
C     
134
134
        CFTOT=CMPLX(CF_N(COLOR_ID,I)/(ONE*ABS(CF_D(COLOR_ID,I))),ZERO
135
135
     $   ,KIND=8)
136
136
        IF(CF_D(COLOR_ID,I).LT.0) CFTOT=CFTOT*IMAG1
137
 
        CONST(ML5_0_ML5SOINDEX_FOR_BORN_AMP(I))=CONST(ML5_0_ML5SOINDEX_
138
 
     $FOR_BORN_AMP(I))+CFTOT*CONJG(AMP(I))
 
137
        CONST(ML5_0_ML5SOINDEX_FOR_BORN_AMP(I))
 
138
     $   =CONST(ML5_0_ML5SOINDEX_FOR_BORN_AMP(I))+CFTOT*CONJG(AMP(I))
139
139
      ENDDO
140
140
 
141
141
      DO I=1,NAMPSO
146
146
            CONST(I)=CONST(I)*GOODHEL(HELCONFIG)
147
147
          ENDIF
148
148
          CALL ML5_0_MERGE_WL(LOOP_WF,RANK,LCUT_SIZE,CONST(I)
149
 
     $     ,LOOPCOEFS(0,ML5_0_ML5SQSOINDEX(I,ML5_0_ML5SOINDEX_FOR_LOOP_
150
 
     $AMP(COLOR_ID)),LOOP_GROUP_NUMBER))
 
149
     $     ,LOOPCOEFS(0,ML5_0_ML5SQSOINDEX(I
 
150
     $     ,ML5_0_ML5SOINDEX_FOR_LOOP_AMP(COLOR_ID)),LOOP_GROUP_NUMBER)
 
151
     $     )
151
152
        ENDIF
152
153
      ENDDO
153
154
 
218
219
C     
219
220
C     FUNCTIONS
220
221
C     
221
 
      INTEGER ML5_0_ML5SOINDEX_FOR_BORN_AMP, ML5_0_ML5SOINDEX_FOR_LOOP_
222
 
     $AMP, ML5_0_ML5SQSOINDEX
 
222
      INTEGER ML5_0_ML5SOINDEX_FOR_BORN_AMP,
 
223
     $  ML5_0_ML5SOINDEX_FOR_LOOP_AMP, ML5_0_ML5SQSOINDEX
223
224
C     
224
225
C     GLOBAL VARIABLES
225
226
C     
253
254
        CFTOT=CMPLX(CF_N(COLOR_ID,I)/(ONE*ABS(CF_D(COLOR_ID,I))),ZERO
254
255
     $   ,KIND=16)
255
256
        IF(CF_D(COLOR_ID,I).LT.0) CFTOT=CFTOT*IMAG1
256
 
        CONST(ML5_0_ML5SOINDEX_FOR_BORN_AMP(I))=CONST(ML5_0_ML5SOINDEX_
257
 
     $FOR_BORN_AMP(I))+CFTOT*CONJG(AMP(I))
 
257
        CONST(ML5_0_ML5SOINDEX_FOR_BORN_AMP(I))
 
258
     $   =CONST(ML5_0_ML5SOINDEX_FOR_BORN_AMP(I))+CFTOT*CONJG(AMP(I))
258
259
      ENDDO
259
260
 
260
261
      DO I=1,NAMPSO
265
266
            CONST(I)=CONST(I)*GOODHEL(HELCONFIG)
266
267
          ENDIF
267
268
          CALL MP_ML5_0_MERGE_WL(LOOP_WF,RANK,LCUT_SIZE,CONST(I)
268
 
     $     ,LOOPCOEFS(0,ML5_0_ML5SQSOINDEX(I,ML5_0_ML5SOINDEX_FOR_LOOP_
269
 
     $AMP(COLOR_ID)),LOOP_GROUP_NUMBER))
 
269
     $     ,LOOPCOEFS(0,ML5_0_ML5SQSOINDEX(I
 
270
     $     ,ML5_0_ML5SOINDEX_FOR_LOOP_AMP(COLOR_ID)),LOOP_GROUP_NUMBER)
 
271
     $     )
270
272
        ENDIF
271
273
      ENDDO
272
274