← Back to branch summary

~maddevelopers/mg5amcnlo/2.9.4

« back to all changes in this revision

Viewing changes to vendor/StdHEP/src/stdhep/dumphepeup.F

pass to v2.0.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
vendor/StdHEP/src/stdhep/dumphepeup.F
 
1
      subroutine dumphepeup(iev)
 
2
      
 
3
#include "hepeup.inc"
 
4
#include "stdlun.inc"
 
5
 
 
6
      integer iev, i, j
 
7
      
 
8
      write(lnhdmp,1001) iev
 
9
      write(lnhdmp,1002) nup, idprup, xwgtup, scalup, aqedup, aqcdup
 
10
      do i=1,nup
 
11
          write(lnhdmp,1003) i, idup(i), istup(i),
 
12
     1                    mothup(1,i),mothup(2,i),
 
13
     2                    icolup(1,i), icolup(2,i), 
 
14
     3                    (pup(j,i),j=1,5), vtimup(i), spinup(i)
 
15
      enddo
 
16
      
 
17
      return
 
18
 1001 format('dump hepeup event ',i8)
 
19
 1002 format(2i11,4e20.12)
 
20
 1003 format(i8,6i11,7e20.12)
 
21
      end