← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/short_ML_SMQCD_default/ddx_ttx/mp_born_amps_and_wfs.f

  • Committer: olivier Mattelaer
  • Date: 2016-05-12 11:00:18 UTC
  • mfrom: (262.1.150 2.3.4)
  • Revision ID: olivier.mattelaer@uclouvain.be-20160512110018-sevb79f0wm4g8mpp
pass to 2.4.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/short_ML_SMQCD_default/ddx_ttx/mp_born_amps_and_wfs.f
7
7
C     Computes all the AMP and WFS in quadruple precision for the 
8
8
C     phase space point P(0:3,NEXTERNAL)
9
9
C     
10
 
C     Process: d d~ > t t~ QED=0 QCD=2 [ virt = QCD ]
 
10
C     Process: d d~ > t t~ QED=0 QCD<=2 [ virt = QCD ]
11
11
C     
12
12
      IMPLICIT NONE
13
13
C     
93
93
 
94
94
      DO H=1,NCOMB
95
95
        IF ((HELPICKED.EQ.H).OR.((HELPICKED.EQ.-1).AND.((CHECKPHASE.OR.
96
 
     $   .NOT.HELDOUBLECHECKED).OR.GOODHEL(H)))) THEN
 
96
     $.NOT.HELDOUBLECHECKED).OR.GOODHEL(H)))) THEN
97
97
          DO I=1,NEXTERNAL
98
98
            NHEL(I)=HELC(I,H)
99
99
          ENDDO