← Back to branch summary

~maddevelopers/mg5amcnlo/2.7.1.3

« back to all changes in this revision

Viewing changes to Template/NLO/Source/kin_functions.f

  • Committer: olivier-mattelaer
  • Date: 2020-01-20 14:53:46 UTC
  • mfrom: (283.1.26 2.7.0)
  • Revision ID: olivier-mattelaer-20200120145346-uosfwy1zhg4ikp1x
pass to 2.7.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
Template/NLO/Source/kin_functions.f
236
236
c-----
237
237
c  Begin Code
238
238
c-----
239
 
      if ((lpp(1).eq.0).and.(lpp(2).eq.0)) then
 
239
      if ((lpp(1).ne.1).and.(lpp(2).ne.1)) then
240
240
         p1a = dsqrt(p1(1)**2+p1(2)**2+p1(3)**2)
241
241
         p2a = dsqrt(p2(1)**2+p2(2)**2+p2(3)**2)
242
242
         if (p1a*p2a .ne. 0d0) then