← Back to branch summary

~maddevelopers/mg5amcnlo/2.9.4

« back to all changes in this revision

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

pass to v2.0.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
vendor/StdHEP/src/stdhep/stdversn.F
 
1
      subroutine stdversn
 
2
C
 
3
C...print STDHEP version number
 
4
C
 
5
#include "stdver.inc"
 
6
#include "stdlun.inc"
 
7
      logical lfirst
 
8
      data lfirst/.TRUE./
 
9
      save lfirst
 
10
 
 
11
      if(lfirst)then
 
12
        lfirst = .FALSE.
 
13
        stdhep_ver  = '5.06.01'
 
14
        stdhep_date = 'November 20, 2007'
 
15
c$$$ THIS HAS BEEN CHANGED BY PT
 
16
c$$$        write(lnhout,1001) stdhep_ver,stdhep_date
 
17
        write(99,1001) stdhep_ver,stdhep_date
 
18
      endif
 
19
1001  format(//
 
20
     1 10X,'********************************************************'/
 
21
     2 10X,'*       STDHEP version ',a7,' -  ',a20,' *'/
 
22
     3 10X,'********************************************************'//)
 
23
      return
 
24
      end