]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | |
2 | C********************************************************************* | |
3 | ||
4 | SUBROUTINE LULOGO | |
5 | ||
6 | C...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 | ||
14 | C...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 | ||
93 | C...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 | ||
109 | C...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 | ||
125 | C...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 | ||
135 | C...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 | ||
150 | C...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 | ||
158 | C...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 |