~maddevelopers/mg5amcnlo/2.6.3_rwgt

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/IOExportFKSTest/test_pptt_fksreal/%SubProcesses%P0_gg_ttx%born.f

  • Committer: olivier-mattelaer
  • Date: 2017-05-26 07:48:55 UTC
  • mfrom: (271.1.33 2.5.5)
  • Revision ID: olivier-mattelaer-20170526074855-r463wfxlom110fiu
passĀ theĀ 2.5.5

Show diffs side-by-side

added added

removed removed

Lines of Context:
16
16
C     
17
17
      INCLUDE 'nexternal.inc'
18
18
      INCLUDE 'born_nhel.inc'
19
 
      INCLUDE 'genps.inc'
20
19
      INTEGER     NCOMB
21
20
      PARAMETER ( NCOMB=  16 )
22
21
      INTEGER    THEL
60
59
C     
61
60
C     GLOBAL VARIABLES
62
61
C     
63
 
      DOUBLE PRECISION AMP2(MAXAMPS), JAMP2(0:MAXAMPS)
 
62
      DOUBLE PRECISION AMP2(3), JAMP2(0:2)
64
63
      COMMON/TO_AMPS/  AMP2,       JAMP2
65
64
      DATA JAMP2(0) /   2/
66
65
      LOGICAL GOODHEL(NCOMB,8)
171
170
      INCLUDE 'nexternal.inc'
172
171
      INCLUDE 'born_nhel.inc'
173
172
      INCLUDE 'coupl.inc'
174
 
      INCLUDE 'genps.inc'
175
173
C     
176
174
C     ARGUMENTS 
177
175
C     
191
189
C     
192
190
C     GLOBAL VARIABLES
193
191
C     
194
 
      DOUBLE PRECISION AMP2(MAXAMPS), JAMP2(0:MAXAMPS)
 
192
      DOUBLE PRECISION AMP2(NGRAPHS), JAMP2(0:NCOLOR)
195
193
      COMMON/TO_AMPS/  AMP2,       JAMP2
196
194
      DOUBLE COMPLEX SAVEAMP(NGRAPHS,MAX_BHEL)
197
195
      COMMON/TO_SAVEAMP/SAVEAMP