← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/IOExportFKSTest/test_pptt_fksreal/%SubProcesses%P0_gg_ttx%b_sf_007.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_gg_ttx%b_sf_007.f
8
8
C     AND HELICITIES
9
9
C     FOR THE POINT IN PHASE SPACE P(0:3,NEXTERNAL-1)
10
10
C     
11
 
C     Process: g g > t t~ WEIGHTED=2 [ real = QCD ]
 
11
C     Process: g g > t t~ WEIGHTED<=2 [ real = QCD ]
12
12
C     spectators: 3 4 
13
13
 
14
14
C     
51
51
      IDEN=IDEN_VALUES(NFKSPROCESS)
52
52
      IF (CALCULATEDBORN) THEN
53
53
        DO J=1,NEXTERNAL-1
54
 
          IF (SAVEMOM(J,1).NE.P1(0,J) .OR. SAVEMOM(J,2).NE.P1(3
55
 
     $     ,J)) THEN
 
54
          IF (SAVEMOM(J,1).NE.P1(0,J) .OR. SAVEMOM(J,2).NE.P1(3,J))
 
55
     $      THEN
56
56
            CALCULATEDBORN=.FALSE.
57
 
            WRITE(*,*) 'Error in sb_sf: momenta not the same in th'
58
 
     $       //'e born'
 
57
            WRITE(*,*) 'Error in sb_sf: momenta not the same in the'
 
58
     $       //' born'
59
59
            STOP
60
60
          ENDIF
61
61
        ENDDO
62
62
      ELSE
63
 
        WRITE(*,*) 'Error in sb_sf: color_linked borns should b'
64
 
     $   //'e called only with calculatedborn = true'
 
63
        WRITE(*,*) 'Error in sb_sf: color_linked borns should be'
 
64
     $   //' called only with calculatedborn = true'
65
65
        STOP
66
66
      ENDIF
67
67
      ANS = 0D0
82
82
C     RETURNS AMPLITUDE SQUARED SUMMED/AVG OVER COLORS
83
83
C     FOR THE POINT WITH EXTERNAL LINES W(0:6,NEXTERNAL-1)
84
84
 
85
 
C     Process: g g > t t~ WEIGHTED=2 [ real = QCD ]
 
85
C     Process: g g > t t~ WEIGHTED<=2 [ real = QCD ]
86
86
C     spectators: 3 4 
87
87
 
88
88
C     
129
129
C     BEGIN CODE
130
130
C     ----------
131
131
      IF (.NOT. CALCULATEDBORN) THEN
132
 
        WRITE(*,*) 'Error in b_sf: color_linked borns should be calle'
133
 
     $   //'d only with calculatedborn = true'
 
132
        WRITE(*,*) 'Error in b_sf: color_linked borns should be called'
 
133
     $   //' only with calculatedborn = true'
134
134
        STOP
135
135
      ELSEIF (CALCULATEDBORN) THEN
136
136
        DO I=1,NGRAPHS