← Back to branch summary

~maddevelopers/mg5amcnlo/2.7.1.3

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/IOExportFKSTest/test_pptt_fksreal/%SubProcesses%P0_uux_ttx%born_hel.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/IOExportFKSTest/test_pptt_fksreal/%SubProcesses%P0_uux_ttx%born_hel.f
8
8
C     AND HELICITIES
9
9
C     FOR THE POINT IN PHASE SPACE P1(0:3,NEXTERNAL-1)
10
10
C     
11
 
C     Process: u u~ > t t~ WEIGHTED=2 [ real = QCD ]
12
 
C     Process: c c~ > t t~ WEIGHTED=2 [ real = QCD ]
13
 
C     Process: d d~ > t t~ WEIGHTED=2 [ real = QCD ]
14
 
C     Process: s s~ > t t~ WEIGHTED=2 [ real = QCD ]
 
11
C     Process: u u~ > t t~ WEIGHTED<=2 [ real = QCD ]
 
12
C     Process: c c~ > t t~ WEIGHTED<=2 [ real = QCD ]
 
13
C     Process: d d~ > t t~ WEIGHTED<=2 [ real = QCD ]
 
14
C     Process: s s~ > t t~ WEIGHTED<=2 [ real = QCD ]
15
15
C     
16
16
      IMPLICIT NONE
17
17
C     
56
56
      IDEN=IDEN_VALUES(NFKSPROCESS)
57
57
      IF (CALCULATEDBORN) THEN
58
58
        DO J=1,NEXTERNAL-1
59
 
          IF (SAVEMOM(J,1).NE.P1(0,J) .OR. SAVEMOM(J,2).NE.P1(3
60
 
     $     ,J)) THEN
 
59
          IF (SAVEMOM(J,1).NE.P1(0,J) .OR. SAVEMOM(J,2).NE.P1(3,J))
 
60
     $      THEN
61
61
            CALCULATEDBORN=.FALSE.
62
62
            WRITE (*,*) 'momenta not the same in Born_hel'
63
63
            STOP
64
64
          ENDIF
65
65
        ENDDO
66
66
      ELSE
67
 
        WRITE(*,*) 'Error in born_hel: should be called only wit'
68
 
     $   //'h calculatedborn = true'
 
67
        WRITE(*,*) 'Error in born_hel: should be called only with'
 
68
     $   //' calculatedborn = true'
69
69
        STOP
70
70
      ENDIF
71
71
      ANS = 0D0
87
87
C     RETURNS AMPLITUDE SQUARED SUMMED/AVG OVER COLORS
88
88
C     FOR THE POINT WITH EXTERNAL LINES W(0:6,NEXTERNAL-1)
89
89
 
90
 
C     Process: u u~ > t t~ WEIGHTED=2 [ real = QCD ]
91
 
C     Process: c c~ > t t~ WEIGHTED=2 [ real = QCD ]
92
 
C     Process: d d~ > t t~ WEIGHTED=2 [ real = QCD ]
93
 
C     Process: s s~ > t t~ WEIGHTED=2 [ real = QCD ]
 
90
C     Process: u u~ > t t~ WEIGHTED<=2 [ real = QCD ]
 
91
C     Process: c c~ > t t~ WEIGHTED<=2 [ real = QCD ]
 
92
C     Process: d d~ > t t~ WEIGHTED<=2 [ real = QCD ]
 
93
C     Process: s s~ > t t~ WEIGHTED<=2 [ real = QCD ]
94
94
C     
95
95
      IMPLICIT NONE
96
96
C     
137
137
C     BEGIN CODE
138
138
C     ----------
139
139
      IF (.NOT. CALCULATEDBORN) THEN
140
 
        WRITE(*,*) 'Error in born_hel.f: this should be called onl'
141
 
     $   //'y with calculatedborn = true'
 
140
        WRITE(*,*) 'Error in born_hel.f: this should be called only'
 
141
     $   //' with calculatedborn = true'
142
142
        STOP
143
143
      ELSEIF (CALCULATEDBORN) THEN
144
144
        DO I=1,NGRAPHS