← Back to branch summary

~maddevelopers/mg5amcnlo/2.7.1.3

« back to all changes in this revision

Viewing changes to Template/NLO/SubProcesses/montecarlocounter.f

  • Committer: olivier Mattelaer
  • Date: 2017-12-12 21:11:08 UTC
  • mfrom: (274.1.52 2.6.1)
  • Revision ID: olivier.mattelaer@uclouvain.be-20171212211108-xfh9rt0j9c9m6nxp
pass to 2.6.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
Template/NLO/SubProcesses/montecarlocounter.f
1178
1178
 
1179
1179
c BARRED AMPLITUDES
1180
1180
      do i=1,max_bcol
1181
 
         if (sumborn.ne.0d0) then
 
1181
         if (sumborn.ne.0d0.and.is_leading_cflow(i)) then
1182
1182
            bornbars(i)=jamp2(i)/sumborn * born *iden_comp
1183
1183
         elseif (born.eq.0d0 .or. jamp2(i).eq.0d0
1184
1184
     &           .or..not.is_leading_cflow(i)) then
1187
1187
            write (*,*) 'ERROR #1, dividing by zero'
1188
1188
            stop
1189
1189
         endif
1190
 
         if (sumborn.ne.0d0) then
 
1190
         if (sumborn.ne.0d0.and.is_leading_cflow(i)) then
1191
1191
            bornbarstilde(i)=jamp2(i)/sumborn * borntilde *iden_comp
1192
1192
         elseif (borntilde.eq.0d0 .or. jamp2(i).eq.0d0
1193
1193
     &           .or..not.is_leading_cflow(i)) then