← 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/dux_mumvmxg/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/long_ML_SMQCD_default/dux_mumvmxg/loop_num.f
34
34
C     GLOBAL VARIABLES
35
35
C     
36
36
      INTEGER WE(NEXTERNAL)
37
 
      INTEGER ID, SYMFACT,AMPLNUM
38
 
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT,AMPLNUM
 
37
      INTEGER ID, SYMFACT, MULTIPLIER, AMPLNUM
 
38
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT,MULTIPLIER,AMPLNUM
39
39
 
40
40
      LOGICAL GOODHEL(NCOMB)
41
41
      LOGICAL GOODAMP(NLOOPAMPS,NCOMB)
73
73
          ENDDO
74
74
        ENDIF
75
75
      ENDDO
76
 
      RES=RES/SYMFACT
 
76
      RES=(RES*MULTIPLIER)/SYMFACT
77
77
 
78
78
      END
79
79
 
117
117
      COMMON/ML5_0_DP_LOOP/LC,ML
118
118
 
119
119
      INTEGER WE(NEXTERNAL)
120
 
      INTEGER ID, SYMFACT,AMPLNUM
121
 
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT,AMPLNUM
 
120
      INTEGER ID, SYMFACT,MULTIPLIER,AMPLNUM
 
121
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT,MULTIPLIER,AMPLNUM
122
122
 
123
123
      COMPLEX*16 AMP(NBORNAMPS,NCOMB)
124
124
      COMMON/ML5_0_AMPS/AMP
294
294
      COMMON/ML5_0_CT/LSCALE,CTMODE
295
295
 
296
296
      INTEGER WE(NEXTERNAL)
297
 
      INTEGER ID, SYMFACT,AMPLNUM
298
 
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT,AMPLNUM
 
297
      INTEGER ID, SYMFACT,MULTIPLIER,AMPLNUM
 
298
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT,MULTIPLIER,AMPLNUM
299
299
 
300
300
      LOGICAL GOODHEL(NCOMB)
301
301
      LOGICAL GOODAMP(NLOOPAMPS,NCOMB)
344
344
          ENDDO
345
345
        ENDIF
346
346
      ENDDO
347
 
      QPRES=QPRES/SYMFACT
 
347
      QPRES=(QPRES*MULTIPLIER)/SYMFACT
348
348
 
349
349
      RES=QPRES
350
350
      END
389
389
      COMMON/ML5_0_MP_LOOP/LC,ML
390
390
 
391
391
      INTEGER WE(NEXTERNAL)
392
 
      INTEGER ID, SYMFACT,AMPLNUM
393
 
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT,AMPLNUM
 
392
      INTEGER ID, SYMFACT,MULTIPLIER,AMPLNUM
 
393
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT,MULTIPLIER,AMPLNUM
394
394
 
395
395
      COMPLEX*32 AMP(NBORNAMPS,NCOMB)
396
396
      COMMON/ML5_0_MP_AMPS/AMP