← Back to branch summary

~maddevelopers/mg5amcnlo/2.7.1.3

« back to all changes in this revision

Viewing changes to Template/LO/SubProcesses/reweight.f

  • Committer: olivier-mattelaer
  • Date: 2020-03-09 19:05:51 UTC
  • mfrom: (284.1.17 2.7.1)
  • Revision ID: olivier-mattelaer-20200309190551-x8nv2tnob4qmu3om
pass to 2.7.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
Template/LO/SubProcesses/reweight.f
674
674
C   If we have fixed factorization scale, for ickkw>0 means central
675
675
C   scale, i.e. last two scales (ren. scale for these vertices are
676
676
C   anyway already set by "scale" above)
677
 
      if(ickkw.gt.0) then
678
 
         if(fixed_fac_scale.and.first)then
 
677
      if (first) then
679
678
            q2bck(1)=q2fact(1)
680
679
            q2bck(2)=q2fact(2)
681
680
            first=.false.
682
 
         else if(fixed_fac_scale) then
 
681
      else if(ickkw.gt.0) then
 
682
         if(fixed_fac_scale) then
683
683
            q2fact(1)=q2bck(1)
684
684
            q2fact(2)=q2bck(2)
685
685
         endif
1732
1732
         if (btest(mlevel,3))
1733
1733
     $        write(*,*)' set fact scales for PS to ',
1734
1734
     $        sqrt(q2fact(1)),sqrt(q2fact(2))
 
1735
      else if (abs(lpp(1)).eq.2.or.abs(lpp(1)).eq.3) then
 
1736
         q2fact(1)=q2bck(1)
 
1737
      else if (abs(lpp(2)).eq.2.or.abs(lpp(2)).eq.3) then
 
1738
         q2fact(2)=q2bck(2)
1735
1739
      endif
1736
1740
 
1737
1741
      if (btest(mlevel,3)) then