← Back to branch summary

~pwhg-stj/+junk/PWHG_STJ_ninja_collier

« back to all changes in this revision

Viewing changes to virtual.f

  • Committer: Rikkert Frederix
  • Date: 2017-06-19 18:34:45 UTC
  • mfrom: (112.1.26 PWHG_STJ)
  • Revision ID: frederix@physik.uzh.ch-20170619183445-5832xjj3q30gdr9f
merge with latest PWHG_STJ

Show diffs side-by-side

added added

removed removed

Lines of Context:
virtual.f
3
3
      implicit none
4
4
      include 'nlegborn.h'
5
5
      include 'pwhg_st.h'
 
6
      include 'pwhg_kn.h'
6
7
      include 'pwhg_math.h'
7
8
      include 'coupl.inc'
8
9
      real * 8 p(0:3,nlegborn)
41
42
      ENDIF
42
43
      virtual =0d0
43
44
 
 
45
c If kn_jacborn=0 we are probably in some cut out region of phase space
 
46
c and in any case the total contribution from this phase space point 
 
47
c should be zero, so we don't bother computing the virtuals. A better
 
48
c solution would be to not generate these phase space regions in the 
 
49
c first place. 
 
50
      if(kn_jacborn.eq.0d0) then
 
51
        virtual=0d0
 
52
        return
 
53
      endif
 
54
 
44
55
c$$$  DO NOT INCLUDE THE VIRTUAL CORRECTIONS:
45
56
c$$$      return
46
57