← 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_optimized/dux_mumvmxg/polynomial.f

merged with 2.3 rev286

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/long_ML_SMQCD_optimized/dux_mumvmxg/polynomial.f
2
2
C     MULTIPLY BY THE BORN
3
3
 
4
4
      SUBROUTINE ML5_0_CREATE_LOOP_COEFS(LOOP_WF,RANK,LCUT_SIZE
5
 
     $ ,LOOP_GROUP_NUMBER,SYMFACT,COLOR_ID,HELCONFIG)
 
5
     $ ,LOOP_GROUP_NUMBER,SYMFACT,MULTIPLIER,COLOR_ID,HELCONFIG)
6
6
      IMPLICIT NONE
7
7
C     
8
8
C     CONSTANTS 
32
32
C     ARGUMENTS 
33
33
C     
34
34
      COMPLEX*16 LOOP_WF(MAXLWFSIZE,0:LOOPMAXCOEFS-1,MAXLWFSIZE)
35
 
      INTEGER RANK, COLOR_ID, SYMFACT, LCUT_SIZE, HELCONFIG, LOOP_GROUP
36
 
     $ _NUMBER
 
35
      INTEGER RANK, COLOR_ID, SYMFACT, MULTIPLIER, LCUT_SIZE,
 
36
     $  HELCONFIG, LOOP_GROUP_NUMBER
37
37
C     
38
38
C     LOCAL VARIABLES 
39
39
C     
84
84
 
85
85
      DO I=1,NAMPSO
86
86
        IF (CONST(I).NE.CMPLX_ZERO) THEN
87
 
          CONST(I)=CONST(I)/SYMFACT
 
87
          CONST(I)=(CONST(I)*MULTIPLIER)/SYMFACT
88
88
          IF (.NOT.CHECKPHASE.AND.HELDOUBLECHECKED.AND.HELPICKED.EQ.
89
89
     $     -1) THEN
90
90
            CONST(I)=CONST(I)*GOODHEL(HELCONFIG)
102
102
C     MULTIPLY BY THE BORN
103
103
 
104
104
      SUBROUTINE MP_ML5_0_CREATE_LOOP_COEFS(LOOP_WF,RANK,LCUT_SIZE
105
 
     $ ,LOOP_GROUP_NUMBER,SYMFACT,COLOR_ID,HELCONFIG)
 
105
     $ ,LOOP_GROUP_NUMBER,SYMFACT,MULTIPLIER,COLOR_ID,HELCONFIG)
106
106
      IMPLICIT NONE
107
107
C     
108
108
C     CONSTANTS 
132
132
C     ARGUMENTS 
133
133
C     
134
134
      COMPLEX*32 LOOP_WF(MAXLWFSIZE,0:LOOPMAXCOEFS-1,MAXLWFSIZE)
135
 
      INTEGER RANK, COLOR_ID, SYMFACT, LCUT_SIZE, HELCONFIG, LOOP_GROUP
136
 
     $ _NUMBER
 
135
      INTEGER RANK, COLOR_ID, SYMFACT, MULTIPLIER, LCUT_SIZE,
 
136
     $  HELCONFIG, LOOP_GROUP_NUMBER
137
137
C     
138
138
C     LOCAL VARIABLES 
139
139
C     
184
184
 
185
185
      DO I=1,NAMPSO
186
186
        IF (CONST(I).NE.CMPLX_ZERO) THEN
187
 
          CONST(I)=CONST(I)/SYMFACT
 
187
          CONST(I)=(CONST(I)*MULTIPLIER)/SYMFACT
188
188
          IF (.NOT.CHECKPHASE.AND.HELDOUBLECHECKED.AND.HELPICKED.EQ.
189
189
     $     -1) THEN
190
190
            CONST(I)=CONST(I)*GOODHEL(HELCONFIG)