← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

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

  • Committer: olivier Mattelaer
  • Date: 2015-03-05 00:14:16 UTC
  • mfrom: (258.1.9 2.3)
  • mto: (258.8.1 2.3)
  • mto: This revision was merged to the branch mainline in revision 259.
  • Revision ID: olivier.mattelaer@uclouvain.be-20150305001416-y9mzeykfzwnl9t0j
partial merge

Show diffs side-by-side

added added

removed removed

Lines of Context:
Template/NLO/SubProcesses/add_write_info.f
1
1
      subroutine add_write_info(p_born,pp,ybst_til_tolab,iconfig,Hevents
2
 
     &     ,putonshell,ndim,ipole,x,jpart,npart,pb,shower_scale)
 
2
     &     ,putonshell,ndim,x,jpart,npart,pb,shower_scale)
3
3
c Computes all the info needed to write out the events including the
4
4
c intermediate resonances. It also boosts the events to the lab frame
5
5
      implicit none
17
17
      double precision ybst_til_tolab,shower_scale
18
18
      integer iconfig
19
19
      logical Hevents,putonshell
20
 
      integer ndim,ipole,jpart(7,-nexternal+3:2*nexternal-3),npart
 
20
      integer ndim,jpart(7,-nexternal+3:2*nexternal-3),npart
21
21
      double precision pb(0:4,-nexternal+3:2*nexternal-3)
22
22
 
23
23
c Local
251
251
      if (sumborn.eq.0d0) then
252
252
         write (*,*) 'Error #1 in add_write_info:'
253
253
         write (*,*) 'in MadFKS, sumborn should always be larger'//
254
 
     &        ' than zero, because always QCD partons around',sumborn,max_bcol
 
254
     $        ' than zero, because always QCD partons around',sumborn
 
255
     $        ,max_bcol
255
256
         do i=1,max_bcol
256
257
            write (*,*) i,iBornGraph,icolamp(i,iBornGraph,1),jamp2(i)
257
258
         enddo