← 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_gg_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_fks_loonly/%SubProcesses%P0_gg_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: g g > t t~ WEIGHTED=2 [ LOonly = QCD ]
 
11
C     Process: g g > t t~ WEIGHTED<=2 [ LOonly = QCD ]
12
12
C     
13
13
      IMPLICIT NONE
14
14
C     
53
53
      IDEN=IDEN_VALUES(NFKSPROCESS)
54
54
      IF (CALCULATEDBORN) THEN
55
55
        DO J=1,NEXTERNAL-1
56
 
          IF (SAVEMOM(J,1).NE.P1(0,J) .OR. SAVEMOM(J,2).NE.P1(3
57
 
     $     ,J)) THEN
 
56
          IF (SAVEMOM(J,1).NE.P1(0,J) .OR. SAVEMOM(J,2).NE.P1(3,J))
 
57
     $      THEN
58
58
            CALCULATEDBORN=.FALSE.
59
59
            WRITE (*,*) 'momenta not the same in Born_hel'
60
60
            STOP
61
61
          ENDIF
62
62
        ENDDO
63
63
      ELSE
64
 
        WRITE(*,*) 'Error in born_hel: should be called only wit'
65
 
     $   //'h calculatedborn = true'
 
64
        WRITE(*,*) 'Error in born_hel: should be called only with'
 
65
     $   //' calculatedborn = true'
66
66
        STOP
67
67
      ENDIF
68
68
      ANS = 0D0
84
84
C     RETURNS AMPLITUDE SQUARED SUMMED/AVG OVER COLORS
85
85
C     FOR THE POINT WITH EXTERNAL LINES W(0:6,NEXTERNAL-1)
86
86
 
87
 
C     Process: g g > t t~ WEIGHTED=2 [ LOonly = QCD ]
 
87
C     Process: g g > t t~ WEIGHTED<=2 [ LOonly = QCD ]
88
88
C     
89
89
      IMPLICIT NONE
90
90
C     
131
131
C     BEGIN CODE
132
132
C     ----------
133
133
      IF (.NOT. CALCULATEDBORN) THEN
134
 
        WRITE(*,*) 'Error in born_hel.f: this should be called onl'
135
 
     $   //'y with calculatedborn = true'
 
134
        WRITE(*,*) 'Error in born_hel.f: this should be called only'
 
135
     $   //' with calculatedborn = true'
136
136
        STOP
137
137
      ELSEIF (CALCULATEDBORN) THEN
138
138
        DO I=1,NGRAPHS