~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_uxu_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:
19
19
C     
20
20
      INCLUDE 'nexternal.inc'
21
21
      INCLUDE 'born_nhel.inc'
22
 
      INCLUDE 'genps.inc'
23
22
      INTEGER     NCOMB
24
23
      PARAMETER ( NCOMB=  16 )
25
24
      INTEGER    THEL
63
62
C     
64
63
C     GLOBAL VARIABLES
65
64
C     
66
 
      DOUBLE PRECISION AMP2(MAXAMPS), JAMP2(0:MAXAMPS)
 
65
      DOUBLE PRECISION AMP2(1), JAMP2(0:2)
67
66
      COMMON/TO_AMPS/  AMP2,       JAMP2
68
67
      DATA JAMP2(0) /   2/
69
68
      LOGICAL GOODHEL(NCOMB,6)
177
176
      INCLUDE 'nexternal.inc'
178
177
      INCLUDE 'born_nhel.inc'
179
178
      INCLUDE 'coupl.inc'
180
 
      INCLUDE 'genps.inc'
181
179
C     
182
180
C     ARGUMENTS 
183
181
C     
197
195
C     
198
196
C     GLOBAL VARIABLES
199
197
C     
200
 
      DOUBLE PRECISION AMP2(MAXAMPS), JAMP2(0:MAXAMPS)
 
198
      DOUBLE PRECISION AMP2(NGRAPHS), JAMP2(0:NCOLOR)
201
199
      COMMON/TO_AMPS/  AMP2,       JAMP2
202
200
      DOUBLE COMPLEX SAVEAMP(NGRAPHS,MAX_BHEL)
203
201
      COMMON/TO_SAVEAMP/SAVEAMP