← 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_fks_loonly/%SubProcesses%P0_uxu_ttx%b_sf_003.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_fks_loonly/%SubProcesses%P0_uxu_ttx%b_sf_003.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: u~ u > t t~ WEIGHTED=2 [ LOonly = QCD ]
12
 
C     Process: c~ c > t t~ WEIGHTED=2 [ LOonly = QCD ]
13
 
C     Process: d~ d > t t~ WEIGHTED=2 [ LOonly = QCD ]
14
 
C     Process: s~ s > t t~ WEIGHTED=2 [ LOonly = QCD ]
 
11
C     Process: u~ u > t t~ WEIGHTED<=2 [ LOonly = QCD ]
 
12
C     Process: c~ c > t t~ WEIGHTED<=2 [ LOonly = QCD ]
 
13
C     Process: d~ d > t t~ WEIGHTED<=2 [ LOonly = QCD ]
 
14
C     Process: s~ s > t t~ WEIGHTED<=2 [ LOonly = QCD ]
15
15
C     spectators: 1 4 
16
16
 
17
17
C     
54
54
      IDEN=IDEN_VALUES(NFKSPROCESS)
55
55
      IF (CALCULATEDBORN) THEN
56
56
        DO J=1,NEXTERNAL-1
57
 
          IF (SAVEMOM(J,1).NE.P1(0,J) .OR. SAVEMOM(J,2).NE.P1(3
58
 
     $     ,J)) THEN
 
57
          IF (SAVEMOM(J,1).NE.P1(0,J) .OR. SAVEMOM(J,2).NE.P1(3,J))
 
58
     $      THEN
59
59
            CALCULATEDBORN=.FALSE.
60
 
            WRITE(*,*) 'Error in sb_sf: momenta not the same in th'
61
 
     $       //'e born'
 
60
            WRITE(*,*) 'Error in sb_sf: momenta not the same in the'
 
61
     $       //' born'
62
62
            STOP
63
63
          ENDIF
64
64
        ENDDO
65
65
      ELSE
66
 
        WRITE(*,*) 'Error in sb_sf: color_linked borns should b'
67
 
     $   //'e called only with calculatedborn = true'
 
66
        WRITE(*,*) 'Error in sb_sf: color_linked borns should be'
 
67
     $   //' called only with calculatedborn = true'
68
68
        STOP
69
69
      ENDIF
70
70
      ANS = 0D0
85
85
C     RETURNS AMPLITUDE SQUARED SUMMED/AVG OVER COLORS
86
86
C     FOR THE POINT WITH EXTERNAL LINES W(0:6,NEXTERNAL-1)
87
87
 
88
 
C     Process: u~ u > t t~ WEIGHTED=2 [ LOonly = QCD ]
89
 
C     Process: c~ c > t t~ WEIGHTED=2 [ LOonly = QCD ]
90
 
C     Process: d~ d > t t~ WEIGHTED=2 [ LOonly = QCD ]
91
 
C     Process: s~ s > t t~ WEIGHTED=2 [ LOonly = QCD ]
 
88
C     Process: u~ u > t t~ WEIGHTED<=2 [ LOonly = QCD ]
 
89
C     Process: c~ c > t t~ WEIGHTED<=2 [ LOonly = QCD ]
 
90
C     Process: d~ d > t t~ WEIGHTED<=2 [ LOonly = QCD ]
 
91
C     Process: s~ s > t t~ WEIGHTED<=2 [ LOonly = QCD ]
92
92
C     spectators: 1 4 
93
93
 
94
94
C     
135
135
C     BEGIN CODE
136
136
C     ----------
137
137
      IF (.NOT. CALCULATEDBORN) THEN
138
 
        WRITE(*,*) 'Error in b_sf: color_linked borns should be calle'
139
 
     $   //'d only with calculatedborn = true'
 
138
        WRITE(*,*) 'Error in b_sf: color_linked borns should be called'
 
139
     $   //' only with calculatedborn = true'
140
140
        STOP
141
141
      ELSEIF (CALCULATEDBORN) THEN
142
142
        DO I=1,NGRAPHS