~maddevelopers/mg5amcnlo/PY8meetsMG5aMC

« back to all changes in this revision

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

  • Committer: paolotorriell
  • Date: 2019-05-21 09:01:44 UTC
  • Revision ID: paolo.torrielli@unito.it-20190521090144-ml8f620fiw9flhl3
 trivial change in add_write_info

Show diffs side-by-side

added added

removed removed

Lines of Context:
574
574
        
575
575
c
576
576
c Shift particles to right place
577
 
c     
 
577
c
578
578
      do i=nexpart,-ns,-1
579
579
         if(ito(i).le.0) cycle
580
580
         do j=1,7
588
588
            pb(j,ito(i))=pb(j,i)
589
589
         enddo
590
590
         do j=nexpart,-ns,-1
591
 
            if(j.eq.i)cycle
 
591
            if(j.eq.i.or.ito(j).le.0)cycle
592
592
            shower_scale_a(ito(i),ito(j))=shower_scale_a(i,j)
593
593
         enddo
594
594
      enddo