Analysis Software
Documentation for sPHENIX simulation software
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
pylogo.f
Go to the documentation of this file. Or view the newest version in sPHENIX GitHub for file pylogo.f
1 
2 C*********************************************************************
3 
4 C...PYLOGO
5 C...Writes a logo for the program.
6 
7  SUBROUTINE pylogo
8 
9 C...Double precision and integer declarations.
10  IMPLICIT DOUBLE PRECISION(a-h, o-z)
11  IMPLICIT INTEGER(i-n)
12  INTEGER pyk,pychge,pycomp
13 C...Parameter for length of information block.
14  parameter(irefer=21)
15 C...Commonblocks.
16  common/pydat1/mstu(200),paru(200),mstj(200),parj(200)
17  common/pypars/mstp(200),parp(200),msti(200),pari(200)
18  SAVE /pydat1/,/pypars/
19 C...Local arrays and character variables.
20  INTEGER idati(6)
21  CHARACTER month(12)*3, logo(48)*32, refer(2*irefer)*36, line*79,
22  &vers*1, subv*3, date*2, year*4, hour*2, minu*2, seco*2
23 
24 C...Data on months, logo, titles, and references.
25  DATA month/'Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep',
26  &'Oct','Nov','Dec'/
27  DATA (logo(j),j=1,19)/
28  &' *......* ',
29  &' *:::!!:::::::::::* ',
30  &' *::::::!!::::::::::::::* ',
31  &' *::::::::!!::::::::::::::::* ',
32  &' *:::::::::!!:::::::::::::::::* ',
33  &' *:::::::::!!:::::::::::::::::* ',
34  &' *::::::::!!::::::::::::::::*! ',
35  &' *::::::!!::::::::::::::* !! ',
36  &' !! *:::!!:::::::::::* !! ',
37  &' !! !* -><- * !! ',
38  &' !! !! !! ',
39  &' !! !! !! ',
40  &' !! !! ',
41  &' !! lh !! ',
42  &' !! !! ',
43  &' !! hh !! ',
44  &' !! ll !! ',
45  &' !! !! ',
46  &' !! '/
47  DATA (logo(j),j=20,38)/
48  &'Welcome to the Lund Monte Carlo!',
49  &' ',
50  &'PPP Y Y TTTTT H H III A ',
51  &'P P Y Y T H H I A A ',
52  &'PPP Y T HHHHH I AAAAA',
53  &'P Y T H H I A A',
54  &'P Y T H H III A A',
55  &' ',
56  &'This is PYTHIA version x.xxx ',
57  &'Last date of change: xx xxx 200x',
58  &' ',
59  &'Now is xx xxx 200x at xx:xx:xx ',
60  &' ',
61  &'Disclaimer: this program comes ',
62  &'without any guarantees. Beware ',
63  &'of errors and use common sense ',
64  &'when interpreting results. ',
65  &' ',
66  &'Copyright T. Sjostrand (2007) '/
67  DATA (refer(j),j=1,14)/
68  &'An archive of program versions and d',
69  &'ocumentation is found on the web: ',
70  &'http://www.thep.lu.se/~torbjorn/Pyth',
71  &'ia.html ',
72  &' ',
73  &' ',
74  &'When you cite this program, the offi',
75  &'cial reference is to the 6.4 manual:',
76  &'T. Sjostrand, S. Mrenna and P. Skand',
77  &'s, JHEP05 (2006) 026 ',
78  &'(LU TP 06-13, FERMILAB-PUB-06-052-CD',
79  &'-T) [hep-ph/0603175]. ',
80  &' ',
81  &' '/
82  DATA (refer(j),j=15,32)/
83  &'Also remember that the program, to a',
84  &' large extent, represents original ',
85  &'physics research. Other publications',
86  &' of special relevance to your ',
87  &'studies may therefore deserve separa',
88  &'te mention. ',
89  &' ',
90  &' ',
91  &'Main author: Torbjorn Sjostrand; CER',
92  &'N/PH, CH-1211 Geneva, Switzerland, ',
93  &' and Department of Theoretical Phys',
94  &'ics, Lund University, Lund, Sweden; ',
95  &' phone: + 41 - 22 - 767 82 27; e-ma',
96  &'il: torbjorn@thep.lu.se ',
97  &'Author: Stephen Mrenna; Computing Di',
98  &'vision, GDS Group, ',
99  &' Fermi National Accelerator Laborat',
100  &'ory, MS 234, Batavia, IL 60510, USA;'/
101  DATA (refer(j),j=33,2*irefer)/
102  &' phone: + 1 - 630 - 840 - 2556; e-m',
103  &'ail: mrenna@fnal.gov ',
104  &'Author: Peter Skands; Theoretical Ph',
105  &'ysics Department, ',
106  &' Fermi National Accelerator Laborat',
107  &'ory, MS 106, Batavia, IL 60510, USA;',
108  &' and CERN/PH, CH-1211 Geneva, Switz',
109  &'erland; ',
110  &' phone: + 41 - 22 - 767 24 59; e-ma',
111  &'il: skands@fnal.gov '/
112 
113 C...Check that PYDATA linked.
114  IF(mstp(183)/10.NE.199.AND.mstp(183)/10.NE.200) THEN
115  WRITE(*,'(1X,A)')
116  & 'Error: PYDATA has not been linked.'
117  WRITE(*,'(1X,A)') 'Execution stopped!'
118  CALL pystop(8)
119 
120 C...Write current version number and current date+time.
121  ELSE
122  WRITE(vers,'(I1)') mstp(181)
123  logo(28)(24:24)=vers
124  WRITE(subv,'(I3)') mstp(182)
125  logo(28)(26:28)=subv
126  IF(mstp(182).LT.100) logo(28)(26:26)='0'
127  WRITE(date,'(I2)') mstp(185)
128  logo(29)(22:23)=date
129  logo(29)(25:27)=month(mstp(184))
130  WRITE(year,'(I4)') mstp(183)
131  logo(29)(29:32)=year
132  CALL pytime(idati)
133  IF(idati(1).LE.0) THEN
134  logo(31)=' '
135  ELSE
136  WRITE(date,'(I2)') idati(3)
137  logo(31)(8:9)=date
138  logo(31)(11:13)=month(max(1,min(12,idati(2))))
139  WRITE(year,'(I4)') idati(1)
140  logo(31)(15:18)=year
141  WRITE(hour,'(I2)') idati(4)
142  logo(31)(23:24)=hour
143  WRITE(minu,'(I2)') idati(5)
144  logo(31)(26:27)=minu
145  IF(idati(5).LT.10) logo(31)(26:26)='0'
146  WRITE(seco,'(I2)') idati(6)
147  logo(31)(29:30)=seco
148  IF(idati(6).LT.10) logo(31)(29:29)='0'
149  ENDIF
150  ENDIF
151 
152 C...Loop over lines in header. Define page feed and side borders.
153  DO 100 ilin=1,29+irefer
154  line=' '
155  IF(ilin.EQ.1) THEN
156  line(1:1)='1'
157  ELSE
158  line(2:3)='**'
159  line(78:79)='**'
160  ENDIF
161 
162 C...Separator lines and logos.
163  IF(ilin.EQ.2.OR.ilin.EQ.3.OR.ilin.GE.28+irefer) THEN
164  line(4:77)='***********************************************'//
165  & '***************************'
166  ELSEIF(ilin.GE.6.AND.ilin.LE.24) THEN
167  line(6:37)=logo(ilin-5)
168  line(44:75)=logo(ilin+14)
169  ELSEIF(ilin.GE.26.AND.ilin.LE.25+irefer) THEN
170  line(5:40)=refer(2*ilin-51)
171  line(41:76)=refer(2*ilin-50)
172  ENDIF
173 
174 C...Write lines to appropriate unit.
175  WRITE(mstu(11),'(A79)') line
176  100 CONTINUE
177 
178  RETURN
179  END