← Back to branch summary

~maddevelopers/mg5amcnlo/2.9.4

« back to all changes in this revision

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

pass to v2.0.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
vendor/StdHEP/src/stdhep/dumpheprup.F
 
1
      subroutine dumpheprup
 
2
      
 
3
#include "heprup.inc"
 
4
#include "stdlun.inc"
 
5
 
 
6
      integer iev, i, j
 
7
      
 
8
      write(lnhdmp,1001) 
 
9
      write(lnhdmp,1002) idbmup(1),idbmup(2),ebmup(1),ebmup(2),
 
10
     1                   pdfgup(1),pdfgup(2),pdfsup(1),pdfsup(2),
 
11
     2                   idwtup,nprup
 
12
      do i=1,nprup
 
13
          write(lnhdmp,1003) i, xsecup(i),xerrup(i),
 
14
     1                          xmaxup(i),lprup(i)
 
15
      enddo
 
16
      
 
17
      return
 
18
 1001 format('dump hepeup event ')
 
19
 1002 format(2i11,2e20.12,6i11)
 
20
 1003 format(i8,3e20.12,i11)
 
21
      end