← Back to branch summary

~maddevelopers/mg5amcnlo/2.9.4

« back to all changes in this revision

Viewing changes to vendor/StdHEP/example/listStdHep.F

pass to v2.0.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
vendor/StdHEP/example/listStdHep.F
 
1
      PROGRAM TST
 
2
C
 
3
C      test program
 
4
C      list standard particle definitions
 
5
C
 
6
#include "stdlun.inc"
 
7
 
 
8
C initialize HEP logical units
 
9
      lnhwrt=0
 
10
      lnhrd=0
 
11
      lnhdcy=30
 
12
      lnhout=22
 
13
      lnhpdf=0
 
14
      lnhdmp=0
 
15
      OPEN(UNIT=LNHOUT,FILE='listStdHep.lpt',STATUS='NEW')
 
16
C
 
17
      call stdversn
 
18
      CALL STDLST
 
19
C
 
20
      CLOSE(UNIT=LNHOUT)
 
21
      STOP
 
22
      END