← Back to branch summary

~maddevelopers/mg5amcnlo/2.9.4

« back to all changes in this revision

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

pass to v2.0.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
vendor/StdHEP/src/stdhep/stdprthd.F
 
1
      subroutine stdprthd
 
2
C
 
3
C...print  mcfio initial information as read by stdhep
 
4
C
 
5
#include "stdhd.inc"
 
6
#include "stdlun.inc"
 
7
      logical lfirst
 
8
      data lfirst/.TRUE./
 
9
      save lfirst
 
10
c
 
11
C...print version number if this is the first call
 
12
      if(lfirst)then
 
13
        call stdversn
 
14
        lfirst=.FALSE.
 
15
      endif
 
16
      write(lnhout,1001) title(1:tlen),date(1:dlen),
 
17
     1                   comment(1:clen),numblocks
 
18
 
 
19
 
 
20
1001  format(/' StdHep MCFio header information: '/
 
21
     1       10x,'title: ',a60/
 
22
     2       10x,'date:  ',a60/
 
23
     3       10x,a70/
 
24
     5       20x,i10,' blocks per event'/)
 
25
      return
 
26
      end