← Back to branch summary

~maddevelopers/mg5amcnlo/2.6.3_rwgt

« back to all changes in this revision

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

  • Committer: olivier-mattelaer
  • Date: 2018-04-29 08:10:16 UTC
  • mfrom: (275.1.80 2.6.2)
  • Revision ID: olivier-mattelaer-20180429081016-9nmfvn1er0zjb23o
pass to 2.6.2

Show diffs side-by-side

added added

removed removed

Lines of Context:
Template/NLO/SubProcesses/montecarlocounter.f
2445
2445
         write(*,*)'Fatal error in emscafun'
2446
2446
         stop
2447
2447
      endif
2448
 
      if(r.ne.0.5d0)then
2449
 
         emscainv=(r-sqrt(r-r**2))/(2*r-1)
2450
 
      else
2451
 
         emscainv=0.5d0
2452
 
      endif
 
2448
      emscainv=sqrt(r)/(sqrt(r)+sqrt(1d0-r))
2453
2449
      return
2454
2450
      end
2455
2451