← 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/gg_wmtbx/polynomial.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_optimized/gg_wmtbx/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 
20
20
      INTEGER LOOPMAXCOEFS
21
21
      PARAMETER (LOOPMAXCOEFS=70)
22
22
      INTEGER    NCOLORROWS
23
 
      PARAMETER (NCOLORROWS=414)
 
23
      PARAMETER (NCOLORROWS=396)
24
24
      INTEGER    NLOOPGROUPS
25
25
      PARAMETER (NLOOPGROUPS=77)
26
26
      INTEGER    NCOMB
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 
120
120
      INTEGER LOOPMAXCOEFS
121
121
      PARAMETER (LOOPMAXCOEFS=70)
122
122
      INTEGER    NCOLORROWS
123
 
      PARAMETER (NCOLORROWS=414)
 
123
      PARAMETER (NCOLORROWS=396)
124
124
      INTEGER    NLOOPGROUPS
125
125
      PARAMETER (NLOOPGROUPS=77)
126
126
      INTEGER    NCOMB
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)