New functions and constructors added and some other fixes.
[u/mrichter/AliRoot.git] / PYTHIA / jetset / lulogo.F
CommitLineData
fe4da5cc 1
2C*********************************************************************
3
4 SUBROUTINE LULOGO
5
6C...Purpose: to write logo for JETSET and PYTHIA programs.
7 COMMON/LUDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200)
8 COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200)
9 SAVE /LUDAT1/
10 SAVE /PYPARS/
11 CHARACTER MONTH(12)*3, LOGO(48)*32, REFER(22)*36, LINE*79,
12 &VERS*1, SUBV*3, DATE*2, YEAR*4
13
14C...Data on months, logo, titles, and references.
15 DATA MONTH/'Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep',
16 &'Oct','Nov','Dec'/
17 DATA (LOGO(J),J=1,10)/
18 &'PPP Y Y TTTTT H H III A ',
19 &'P P Y Y T H H I A A ',
20 &'PPP Y T HHHHH I AAAAA',
21 &'P Y T H H I A A',
22 &'P Y T H H III A A',
23 &'JJJJ EEEE TTTTT SSS EEEE TTTTT',
24 &' J E T S E T ',
25 &' J EEE T SSS EEE T ',
26 &'J J E T S E T ',
27 &' JJ EEEE T SSS EEEE T '/
28 DATA (LOGO(J),J=11,29)/
29 &' *......* ',
30 &' *:::!!:::::::::::* ',
31 &' *::::::!!::::::::::::::* ',
32 &' *::::::::!!::::::::::::::::* ',
33 &' *:::::::::!!:::::::::::::::::* ',
34 &' *:::::::::!!:::::::::::::::::* ',
35 &' *::::::::!!::::::::::::::::*! ',
36 &' *::::::!!::::::::::::::* !! ',
37 &' !! *:::!!:::::::::::* !! ',
38 &' !! !* -><- * !! ',
39 &' !! !! !! ',
40 &' !! !! !! ',
41 &' !! !! ',
42 &' !! ep !! ',
43 &' !! !! ',
44 &' !! pp !! ',
45 &' !! e+e- !! ',
46 &' !! !! ',
47 &' !! '/
48 DATA (LOGO(J),J=30,48)/
49 &'Welcome to the Lund Monte Carlo!',
50 &' ',
51 &' This is PYTHIA version x.xxx ',
52 &'Last date of change: xx xxx 199x',
53 &' ',
54 &' This is JETSET version x.xxx ',
55 &'Last date of change: xx xxx 199x',
56 &' ',
57 &' Main author: ',
58 &' Torbjorn Sjostrand ',
59 &' Dept. of theoretical physics 2 ',
60 &' University of Lund ',
61 &' Solvegatan 14A ',
62 &' S-223 62 Lund, Sweden ',
63 &' phone: +46 - 46 - 222 48 16 ',
64 &' E-mail: torbjorn@thep.lu.se ',
65 &' ',
66 &' Copyright Torbjorn Sjostrand ',
67 &' and CERN, Geneva 1993 '/
68 DATA (REFER(J),J=1,6)/
69 &'The latest program versions and docu',
70 &'mentation is found on WWW address ',
71 &'http://thep.lu.se/tf2/staff/torbjorn',
72 &'/Welcome.html ',
73 &' ',
74 &' '/
75 DATA (REFER(J),J=7,22)/
76 &'When you cite these programs, priori',
77 &'ty should always be given to the ',
78 &'latest published description. Curren',
79 &'tly this is ',
80 &'T. Sjostrand, Computer Physics Commu',
81 &'n. 82 (1994) 74. ',
82 &'The most recent long description (un',
83 &'published) is ',
84 &'T. Sjostrand, LU TP 95-20 and CERN-T',
85 &'H.7112/93 (revised August 1995). ',
86 &'Also remember that the programs, to ',
87 &'a large extent, represent original ',
88 &'physics research. Other publications',
89 &' of special relevance to your ',
90 &'studies may therefore deserve separa',
91 &'te mention. '/
92
93C...Check if PYTHIA linked.
94 IF(MSTP(183)/10.NE.199) THEN
95 LOGO(32)=' Warning: PYTHIA is not loaded! '
96 LOGO(33)='Did you remember to link PYDATA?'
97 ELSE
98 WRITE(VERS,'(I1)') MSTP(181)
99 LOGO(32)(26:26)=VERS
100 WRITE(SUBV,'(I3)') MSTP(182)
101 LOGO(32)(28:30)=SUBV
102 WRITE(DATE,'(I2)') MSTP(185)
103 LOGO(33)(22:23)=DATE
104 LOGO(33)(25:27)=MONTH(MSTP(184))
105 WRITE(YEAR,'(I4)') MSTP(183)
106 LOGO(33)(29:32)=YEAR
107 ENDIF
108
109C...Check if JETSET linked.
110 IF(MSTU(183)/10.NE.199) THEN
111 LOGO(35)=' Error: JETSET is not loaded! '
112 LOGO(36)='Did you remember to link LUDATA?'
113 ELSE
114 WRITE(VERS,'(I1)') MSTU(181)
115 LOGO(35)(26:26)=VERS
116 WRITE(SUBV,'(I3)') MSTU(182)
117 LOGO(35)(28:30)=SUBV
118 WRITE(DATE,'(I2)') MSTU(185)
119 LOGO(36)(22:23)=DATE
120 LOGO(36)(25:27)=MONTH(MSTU(184))
121 WRITE(YEAR,'(I4)') MSTU(183)
122 LOGO(36)(29:32)=YEAR
123 ENDIF
124
125C...Loop over lines in header. Define page feed and side borders.
126 DO 100 ILIN=1,48
127 LINE=' '
128 IF(ILIN.EQ.1) THEN
129 LINE(1:1)='1'
130 ELSE
131 LINE(2:3)='**'
132 LINE(78:79)='**'
133 ENDIF
134
135C...Separator lines and logos.
136 IF(ILIN.EQ.2.OR.ILIN.EQ.3.OR.ILIN.EQ.47.OR.ILIN.EQ.48) THEN
137 LINE(4:77)='***********************************************'//
138 & '***************************'
139 ELSEIF(ILIN.GE.6.AND.ILIN.LE.10) THEN
140 LINE(6:37)=LOGO(ILIN-5)
141 LINE(44:75)=LOGO(ILIN)
142 ELSEIF(ILIN.GE.13.AND.ILIN.LE.31) THEN
143 LINE(6:37)=LOGO(ILIN-2)
144 LINE(44:75)=LOGO(ILIN+17)
145 ELSEIF(ILIN.GE.34.AND.ILIN.LE.44) THEN
146 LINE(5:40)=REFER(2*ILIN-67)
147 LINE(41:76)=REFER(2*ILIN-66)
148 ENDIF
149
150C...Write lines to appropriate unit.
151 IF(MSTU(183)/10.EQ.199) THEN
152 WRITE(MSTU(11),'(A79)') LINE
153 ELSE
154 WRITE(*,'(A79)') LINE
155 ENDIF
156 100 CONTINUE
157
158C...Check that matching subversions are linked.
159 IF(MSTU(183)/10.EQ.199.AND.MSTP(183)/10.EQ.199) THEN
160 IF(MSTU(182).LT.MSTP(186)) WRITE(MSTU(11),
161 & '(/'' Warning: JETSET subversion too old for PYTHIA''/)')
162 IF(MSTP(182).LT.MSTU(186)) WRITE(MSTU(11),
163 & '(/'' Warning: PYTHIA subversion too old for JETSET''/)')
164 ENDIF
165
166 RETURN
167 END