← Back to branch summary

~maddevelopers/mg5amcnlo/3.0.2-alpha0

« back to all changes in this revision

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

  • Committer: marco zaro
  • Date: 2020-07-24 14:18:48 UTC
  • Revision ID: marcozaro@pcteor1.mi.infn.it-20200724141848-oebesrxw1q0rhcb3
adjusted FKS symm fact in fks_singular for tagged photons

Show diffs side-by-side

added added

removed removed

Lines of Context:
Template/NLO/SubProcesses/fks_singular.f
6636
6636
      double precision particle_charge(nexternal), particle_charge_born(nexternal-1)
6637
6637
      common /c_charges/particle_charge
6638
6638
      common /c_charges_born/particle_charge_born
 
6639
      logical particle_tag(nexternal)
 
6640
      common /c_particle_tag/particle_tag
6639
6641
      double precision zero
6640
6642
      parameter (zero=0d0)
6641
6643
 
6780
6782
         do i=nincoming+1,nexternal
6781
6783
            if (pdg_type(i).eq.21) ngluons_FKS(nFKSprocess)
6782
6784
     $           =ngluons_FKS(nFKSprocess)+1
6783
 
            if (pdg_type(i).eq.22) nphotons_FKS(nFKSprocess)
 
6785
            if (pdg_type(i).eq.22.and..not.particle_tag(i)) nphotons_FKS(nFKSprocess)
6784
6786
     $           =nphotons_FKS(nFKSprocess)+1
6785
6787
         enddo
6786
6788