← Back to branch summary

~maddevelopers/mg5amcnlo/2.9.4

« back to all changes in this revision

Viewing changes to vendor/CutTools/src/qcdloop/qlzero.f

pass to v2.0.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
vendor/CutTools/src/qcdloop/qlzero.f
 
1
      logical function qlzero(psq)
 
2
      implicit none
 
3
      include 'qlonshellcutoff.f'
 
4
      double precision psq
 
5
      if (abs(psq) .lt. qlonshellcutoff) then
 
6
      qlzero=.true.
 
7
      else
 
8
      qlzero=.false.
 
9
      endif
 
10
      return
 
11
      end
 
12
 
 
13
      logical function qlnonzero(psq)
 
14
      implicit none
 
15
      include 'qlonshellcutoff.f'
 
16
      double precision psq
 
17
      if (abs(psq) .gt. qlonshellcutoff) then
 
18
      qlnonzero=.true.
 
19
      else
 
20
      qlnonzero=.false.
 
21
      endif
 
22
      return
 
23
      end