← Back to branch summary

~maddevelopers/mg5amcnlo/2.6.6_bug_1813292

« back to all changes in this revision

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

  • Committer: olivier-mattelaer
  • Date: 2017-05-26 07:48:55 UTC
  • mfrom: (271.1.33 2.5.5)
  • Revision ID: olivier-mattelaer-20170526074855-r463wfxlom110fiu
pass the 2.5.5

Show diffs side-by-side

added added

removed removed

Lines of Context:
Template/NLO/SubProcesses/check_poles.f
14
14
      integer return_code
15
15
      double precision tolerance, tolerance_default
16
16
      double precision, allocatable :: accuracies(:)
17
 
      double precision accuracy
 
17
      double precision accuracy2
18
18
      double precision ren_scale, energy
19
19
      include 'genps.inc'
20
20
      include 'nexternal.inc'
54
54
      logical first_time
55
55
      data first_time/.TRUE./
56
56
      include 'FKSParams.inc'
 
57
      include 'mint.inc'
57
58
      
58
59
C-----
59
60
C  BEGIN CODE
100
101
          pmass_rambo(i-nincoming) = pmass(i)
101
102
      enddo
102
103
 
 
104
      iconfig=1
 
105
      ichan=1
 
106
      iconfigs(1)=iconfig
103
107
c Find the nFKSprocess for which we compute the Born-like contributions,
104
108
c ie. which is a Born+g real-emission process
105
109
      do nFKSprocess=1,fks_configs
182
186
          call sborn(p_born, born)
183
187
          call sloopmatrix_thres(p_born,virt_wgts,tolerance,
184
188
     1 accuracies,return_code)
185
 
          accuracy=accuracies(0)
 
189
          accuracy2=accuracies(0)
186
190
 
187
191
          finite = virt_wgts(1,0)
188
192
          single = virt_wgts(2,0)
190
194
 
191
195
C         If MadLoop was still in initialization mode, then skip this
192
196
C         point for the checks
193
 
          if (accuracy.lt.0.0d0) goto 200
 
197
          if (accuracy2.lt.0.0d0) goto 200
194
198
C         Otherwise, perform the check
195
199
          npointsChecked = npointsChecked +1
196
200