← 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_tdecay_fksreal/%SubProcesses%P0_t_budx%b_sf_004.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_tdecay_fksreal/%SubProcesses%P0_t_budx%b_sf_004.f
52
52
      IDEN=IDEN_VALUES(NFKSPROCESS)
53
53
      IF (CALCULATEDBORN) THEN
54
54
        DO J=1,NEXTERNAL-1
55
 
          IF (SAVEMOM(J,1).NE.P1(0,J) .OR. SAVEMOM(J,2).NE.P1(3
56
 
     $     ,J)) THEN
 
55
          IF (SAVEMOM(J,1).NE.P1(0,J) .OR. SAVEMOM(J,2).NE.P1(3,J))
 
56
     $      THEN
57
57
            CALCULATEDBORN=.FALSE.
58
 
            WRITE(*,*) 'Error in sb_sf: momenta not the same in th'
59
 
     $       //'e born'
 
58
            WRITE(*,*) 'Error in sb_sf: momenta not the same in the'
 
59
     $       //' born'
60
60
            STOP
61
61
          ENDIF
62
62
        ENDDO
63
63
      ELSE
64
 
        WRITE(*,*) 'Error in sb_sf: color_linked borns should b'
65
 
     $   //'e called only with calculatedborn = true'
 
64
        WRITE(*,*) 'Error in sb_sf: color_linked borns should be'
 
65
     $   //' called only with calculatedborn = true'
66
66
        STOP
67
67
      ENDIF
68
68
      ANS = 0D0
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