← 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/loop_num.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/loop_num.f
33
33
C     GLOBAL VARIABLES
34
34
C     
35
35
      INTEGER WE(NEXTERNAL)
36
 
      INTEGER ID, SYMFACT,AMPLNUM
37
 
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT,AMPLNUM
 
36
      INTEGER ID, SYMFACT, MULTIPLIER, AMPLNUM
 
37
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT,MULTIPLIER,AMPLNUM
38
38
 
39
39
      LOGICAL GOODHEL(NCOMB)
40
40
      LOGICAL GOODAMP(NLOOPAMPS,NCOMB)
66
66
          RES=BUFF
67
67
        ENDIF
68
68
      ENDDO
69
 
      RES=RES/SYMFACT
 
69
      RES=(RES*MULTIPLIER)/SYMFACT
70
70
 
71
71
      END
72
72
 
109
109
      COMMON/ML5_0_DP_LOOP/LC,ML
110
110
 
111
111
      INTEGER WE(NEXTERNAL)
112
 
      INTEGER ID, SYMFACT,AMPLNUM
113
 
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT,AMPLNUM
 
112
      INTEGER ID, SYMFACT,MULTIPLIER,AMPLNUM
 
113
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT,MULTIPLIER,AMPLNUM
114
114
 
115
115
 
116
116
      COMPLEX*16 W(20,NWAVEFUNCS)
237
237
      COMMON/ML5_0_CT/LSCALE,CTMODE
238
238
 
239
239
      INTEGER WE(NEXTERNAL)
240
 
      INTEGER ID, SYMFACT,AMPLNUM
241
 
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT,AMPLNUM
 
240
      INTEGER ID, SYMFACT,MULTIPLIER,AMPLNUM
 
241
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT,MULTIPLIER,AMPLNUM
242
242
 
243
243
      LOGICAL GOODHEL(NCOMB)
244
244
      LOGICAL GOODAMP(NLOOPAMPS,NCOMB)
281
281
          QPRES=BUFF
282
282
        ENDIF
283
283
      ENDDO
284
 
      QPRES=QPRES/SYMFACT
 
284
      QPRES=(QPRES*MULTIPLIER)/SYMFACT
285
285
 
286
286
      RES=QPRES
287
287
      END
325
325
      COMMON/ML5_0_MP_LOOP/LC,ML
326
326
 
327
327
      INTEGER WE(NEXTERNAL)
328
 
      INTEGER ID, SYMFACT,AMPLNUM
329
 
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT,AMPLNUM
 
328
      INTEGER ID, SYMFACT,MULTIPLIER,AMPLNUM
 
329
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT,MULTIPLIER,AMPLNUM
330
330
 
331
331
 
332
332
      COMPLEX*32 W(20,NWAVEFUNCS)