162 IMPLICIT DOUBLE PRECISION(a-
h, o-
z)
166 common/
pydat1/mstu(200),paru(200),mstj(200),parj(200)
170 COMMON /scipar/mswi(2),parsci(2)
173 parameter(mxtuns=500)
174 CHARACTER*8 chvers, chdoc
175 parameter(chvers=
'1.012 ',chdoc=
'Sep 2007')
176 CHARACTER*16 chnams(0:mxtuns), chname
177 CHARACTER*42 chmstj(50), chmstp(51:100), chparp(61:100),
178 & chparj(41:100), ch40
181 DATA (chnams(
i),
i=0,1)/
'Default',
' '/
182 DATA (chnams(
i),
i=100,110)/
183 &
'Tune A',
'Tune AW',
'Tune BW',
'Tune DW',
'Tune DWT',
'Tune QW',
184 &
'ATLAS Tune',
'Tune ACR',
'Tune D6',
'Tune D6T',
' '/
185 DATA (chnams(
i),
i=300,310)/
186 &
'Tune S0',
'Tune S1',
'Tune S2',
'Tune S0A',
'NOCR',
'Old',
187 5
'ATLAS-CSC Tune',
'Yale Tune',
'Yale-K Tune',2*
' '/
188 DATA (chnams(
i),
i=200,210)/
189 &
'IM Tune 1',
'Tune APT',9*
' '/
190 DATA (chnams(
i),
i=400,410)/
191 &
'GAL Tune 0',
'SCI Tune 0',
'GAL Tune 1',
'SCI Tune 1',7*
' '/
192 DATA (chmstj(
i),
i=11,20)/
193 &
'HAD choice of fragmentation function(s)',4*
' ',
194 &
'HAD treatment of small-mass systems',4*
' '/
195 DATA (chmstj(
i),
i=41,50)/
196 &
'FSR type (Q2 or pT) for old framework',9*
' '/
197 DATA (chmstp(
i),
i=51,100)/
198 5
'PDF set',
'PDF set internal (=1) or pdflib (=2)',8*
' ',
199 6
'ISR master switch',6*
' ',
200 6
'ISR phase space choice & ME corrections',
' ',
201 7
'ISR IR regularization scheme',
' ',
202 7
'ISR scheme for FSR off ISR',8*
' ',
204 8
'UE hadron transverse mass distribution',5*
' ',
205 8
'BR composite scheme',
'BR colour scheme',
206 9
'BR primordial kT compensation',
207 9
'BR primordial kT distribution',
208 9
'BR energy partitioning scheme',2*
' ',
209 9
'FSI colour (re-)connection model',5*
' '/
210 DATA (chparp(
i),
i=61,100)/
211 6
' ',
'ISR IR cutoff',
' ',
'ISR renormalization scale prefactor',
212 6 2*
' ',
'ISR Q2max factor',3*
' ',
213 7
'FSR Q2max factor for non-s-channel procs',5*
' ',
214 7
'FSI colour reconnection turnoff scale',
215 7
'FSI colour reconnection strength',
216 7
'BR composite x enhancement',
'BR breakup suppression',
217 8 2*
'UE IR cutoff at reference ecm',
218 8 2*
'UE mass distribution parameter',
219 8
'UE gg colour correlated fraction',
'UE total gg fraction',
221 8
'UE IR cutoff reference ecm',
'UE IR cutoff ecm scaling power',
222 9
'BR primordial kT width <|kT|>',
' ',
223 9
'BR primordial kT UV cutoff',7*
' '/
224 DATA (chparj(
i),
i=41,90)/
225 4
' ',
'HAD string parameter b',8*
' ',
226 5 3*
' ',
'HAD charm parameter',
'HAD bottom parameter',5*
' ',
228 8
'FSR Lambda_QCD scale',
'FSR IR cutoff',8*
' '/
235 IF (itune.LE.mxtuns.AND.itune.GE.0)
THEN
237 IF (itune.EQ.0) goto 9999
239 CALL
pyerrm(9,
'(PYTUNE:) Tune number > max. Using defaults.')
244 IF (m13.GE.1)
WRITE(m11,5000) chvers, chdoc
250 IF (itune.GE.300.AND.itune.LE.305)
THEN
251 IF (m13.GE.1)
WRITE(m11,5010) itune, chname
252 IF (
mstp(181).LE.5.OR.(
mstp(181).EQ.6.AND.
mstp(182).LE.405))
THEN
253 CALL
pyerrm(9,
'(PYTUNE:) linked PYTHIA version incompatible'//
273 IF (itune.EQ.300.OR.itune.EQ.303)
THEN
275 ch60=
'see P. Skands & D. Wicke, hep-ph/0703081'
277 ch60=
'M. Sandhoff & P. Skands, in hep-ph/0604120'
279 ch60=
'and T. Sjostrand & P. Skands, EPJC39(2005)129'
295 IF (itune.EQ.303)
parp(90)=0.25d0
307 ELSEIF(itune.EQ.301)
THEN
309 ch60=
'see M. Sandhoff & P. Skands, in hep-ph/0604120'
311 ch60=
'and T. Sjostrand & P. Skands, EPJC39(2005)129'
336 ELSEIF(itune.EQ.302)
THEN
338 ch60=
'see M. Sandhoff & P. Skands, in hep-ph/0604120'
340 ch60=
'and T. Sjostrand & P. Skands, EPJC39(2005)129'
365 ELSEIF(itune.EQ.304)
THEN
367 ch60=
'"best try" without colour reconnections'
369 ch60=
'see P. Skands & D. Wicke, hep-ph/0703081'
371 ch60=
'and T. Sjostrand & P. Skands, EPJC39(2005)129'
395 ELSEIF(itune.EQ.305)
THEN
397 ch60=
'"Lo FSR retune" with primitive colour reconnections'
399 ch60=
'see T. Sjostrand & P. Skands, EPJC39(2005)129'
426 WRITE(m11,5040) 51,
mstp(51), chmstp(51)
427 WRITE(m11,5040) 52,
mstp(52), chmstp(52)
428 WRITE(m11,5050) 64,
parp(64), chparp(64)
429 WRITE(m11,5040) 68,
mstp(68), chmstp(68)
430 ch60=
'(Note: MSTP(68) is not explicitly (re-)set by PYTUNE)'
432 WRITE(m11,5040) 70,
mstp(70), chmstp(70)
433 WRITE(m11,5040) 72,
mstp(72), chmstp(72)
434 WRITE(m11,5050) 71,
parp(71), chparp(71)
435 WRITE(m11,5060) 81, parj(81), chparj(81)
436 WRITE(m11,5040) 81,
mstp(81), chmstp(81)
437 WRITE(m11,5050) 82,
parp(82), chparp(82)
438 WRITE(m11,5050) 89,
parp(89), chparp(89)
439 WRITE(m11,5050) 90,
parp(90), chparp(90)
440 WRITE(m11,5040) 82,
mstp(82), chmstp(82)
441 WRITE(m11,5050) 83,
parp(83), chparp(83)
442 WRITE(m11,5040) 88,
mstp(88), chmstp(88)
443 WRITE(m11,5040) 89,
mstp(89), chmstp(89)
444 WRITE(m11,5050) 79,
parp(79), chparp(79)
445 WRITE(m11,5050) 80,
parp(80), chparp(80)
446 WRITE(m11,5050) 93,
parp(93), chparp(93)
447 WRITE(m11,5040) 95,
mstp(95), chmstp(95)
448 WRITE(m11,5050) 78,
parp(78), chparp(78)
453 ELSEIF (itune.EQ.306)
THEN
454 IF (m13.GE.1)
WRITE(m11,5010) itune, chname
455 IF (
mstp(181).LE.5.OR.(
mstp(181).EQ.6.AND.
mstp(182).LE.405))
THEN
456 CALL
pyerrm(9,
'(PYTUNE:) linked PYTHIA version incompatible'//
479 ch60=
'see presentations by A. Moraes (ATLAS),'
481 ch60=
'and T. Sjostrand & P. Skands, EPJC39(2005)129'
484 ch70=
'NB! This tune requires CTEQ6.1 pdfs to be '//
485 &
'externally linked and'
487 ch70=
'MSTP(51) should be set manually according to '//
526 WRITE(m11,5040) 51,
mstp(51), chmstp(51)
527 WRITE(m11,5040) 52,
mstp(52), chmstp(52)
528 WRITE(m11,5050) 64,
parp(64), chparp(64)
529 WRITE(m11,5040) 68,
mstp(68), chmstp(68)
530 ch60=
'(Note: MSTP(68) is not explicitly (re-)set by PYTUNE)'
532 WRITE(m11,5040) 70,
mstp(70), chmstp(70)
533 WRITE(m11,5040) 72,
mstp(72), chmstp(72)
534 WRITE(m11,5050) 71,
parp(71), chparp(71)
535 WRITE(m11,5060) 81, parj(81), chparj(81)
536 WRITE(m11,5040) 81,
mstp(81), chmstp(81)
537 WRITE(m11,5050) 82,
parp(82), chparp(82)
538 WRITE(m11,5050) 89,
parp(89), chparp(89)
539 WRITE(m11,5050) 90,
parp(90), chparp(90)
540 WRITE(m11,5040) 82,
mstp(82), chmstp(82)
541 WRITE(m11,5050) 83,
parp(83), chparp(83)
542 WRITE(m11,5050) 84,
parp(84), chparp(84)
543 WRITE(m11,5040) 88,
mstp(88), chmstp(88)
544 WRITE(m11,5040) 89,
mstp(89), chmstp(89)
545 WRITE(m11,5040) 90,
mstp(90), chmstp(90)
546 WRITE(m11,5050) 79,
parp(79), chparp(79)
547 WRITE(m11,5050) 80,
parp(80), chparp(80)
548 WRITE(m11,5050) 93,
parp(93), chparp(93)
549 WRITE(m11,5040) 95,
mstp(95), chmstp(95)
550 WRITE(m11,5050) 78,
parp(78), chparp(78)
551 WRITE(m11,5070) 11, mstj(11), chmstj(11)
552 WRITE(m11,5060) 54, parj(54), chparj(54)
553 WRITE(m11,5060) 55, parj(55), chparj(55)
559 ELSEIF ((itune.GE.100.AND.itune.LE.106).OR.itune.EQ.108.OR.
561 IF (m13.GE.1.AND.itune.NE.106)
THEN
562 WRITE(m11,5010) itune, chname
563 ch60=
'see R.D. Field (CDF), in hep-ph/0610012'
565 ch60=
'and T. Sjostrand & M. v. Zijl, PRD36(1987)2019'
576 IF (itune.EQ.105)
THEN
579 ELSEIF(itune.EQ.108.OR.itune.EQ.109)
THEN
601 IF(itune.EQ.100.OR.itune.EQ.101)
THEN
616 IF (itune.EQ.101)
THEN
624 ELSEIF (itune.EQ.102)
THEN
640 ELSEIF (itune.EQ.103)
THEN
656 ELSEIF (itune.EQ.104)
THEN
675 ELSEIF(itune.EQ.105)
THEN
678 ch70=
'NB! This tune requires CTEQ6.1 pdfs to be '//
679 &
'externally linked and'
681 ch70=
'MSTP(51) should be set manually according to '//
700 ELSEIF(itune.EQ.108.OR.itune.EQ.109)
THEN
703 ch70=
'NB! This tune requires CTEQ6L pdfs to be '//
704 &
'externally linked and'
706 ch70=
'MSTP(51) should be set manually according to '//
717 IF (itune.EQ.108)
THEN
738 ELSEIF(itune.EQ.106)
THEN
740 WRITE(m11,5010) itune, chname
741 ch60=
'see A. Moraes et al., SN-ATLAS-2006-057'
743 ch60=
'and T. Sjostrand & M. v. Zijl, PRD36(1987)2019'
773 WRITE(m11,5040) 51,
mstp(51), chmstp(51)
774 WRITE(m11,5040) 52,
mstp(52), chmstp(52)
775 WRITE(m11,5050) 62,
parp(62), chparp(62)
776 WRITE(m11,5050) 64,
parp(64), chparp(64)
777 WRITE(m11,5050) 67,
parp(67), chparp(67)
778 WRITE(m11,5040) 68,
mstp(68), chmstp(68)
779 ch60=
'(Note: MSTP(68) is not explicitly (re-)set by PYTUNE)'
781 WRITE(m11,5050) 71,
parp(71), chparp(71)
782 WRITE(m11,5060) 81, parj(81), chparj(81)
783 WRITE(m11,5040) 81,
mstp(81), chmstp(81)
784 WRITE(m11,5050) 82,
parp(82), chparp(82)
785 WRITE(m11,5050) 89,
parp(89), chparp(89)
786 WRITE(m11,5050) 90,
parp(90), chparp(90)
787 WRITE(m11,5040) 82,
mstp(82), chmstp(82)
788 WRITE(m11,5050) 83,
parp(83), chparp(83)
789 WRITE(m11,5050) 84,
parp(84), chparp(84)
790 WRITE(m11,5050) 85,
parp(85), chparp(85)
791 WRITE(m11,5050) 86,
parp(86), chparp(86)
792 WRITE(m11,5040) 91,
mstp(91), chmstp(91)
793 WRITE(m11,5050) 91,
parp(91), chparp(91)
794 WRITE(m11,5050) 93,
parp(93), chparp(93)
795 WRITE(m11,5070) 11, mstj(11), chmstj(11)
796 WRITE(m11,5060) 54, parj(54), chparj(54)
797 WRITE(m11,5060) 55, parj(55), chparj(55)
802 ELSEIF(itune.EQ.107)
THEN
804 WRITE(m11,5010) itune, chname
805 ch60=
'Tune A modified with new colour reconnections'
807 ch60=
'PARP(85)=0D0 and amount of CR is regulated by PARP(78)'
809 ch60=
'see P. Skands & D. Wicke, hep-ph/0703081,'
811 ch60=
'R.D. Field (CDF), in hep-ph/0610012 (Tune A)'
813 ch60=
'and T. Sjostrand & M. v. Zijl, PRD36(1987)2019'
816 IF (
mstp(181).LE.5.OR.(
mstp(181).EQ.6.AND.
mstp(182).LE.406))
THEN
817 CALL
pyerrm(9,
'(PYTUNE:) linked PYTHIA version incompatible'//
818 &
' with tune. Using defaults.')
849 WRITE(m11,5040) 51,
mstp(51), chmstp(51)
850 WRITE(m11,5040) 52,
mstp(52), chmstp(52)
851 WRITE(m11,5050) 62,
parp(62), chparp(62)
852 WRITE(m11,5050) 64,
parp(64), chparp(64)
853 WRITE(m11,5050) 67,
parp(67), chparp(67)
854 WRITE(m11,5040) 68,
mstp(68), chmstp(68)
855 ch60=
'(Note: MSTP(68) is not explicitly (re-)set by PYTUNE)'
857 WRITE(m11,5050) 71,
parp(71), chparp(71)
858 WRITE(m11,5060) 81, parj(81), chparj(81)
859 WRITE(m11,5040) 81,
mstp(81), chmstp(81)
860 WRITE(m11,5050) 82,
parp(82), chparp(82)
861 WRITE(m11,5050) 89,
parp(89), chparp(89)
862 WRITE(m11,5050) 90,
parp(90), chparp(90)
863 WRITE(m11,5040) 82,
mstp(82), chmstp(82)
864 WRITE(m11,5050) 83,
parp(83), chparp(83)
865 WRITE(m11,5050) 84,
parp(84), chparp(84)
866 WRITE(m11,5050) 85,
parp(85), chparp(85)
867 WRITE(m11,5050) 86,
parp(86), chparp(86)
868 WRITE(m11,5040) 91,
mstp(91), chmstp(91)
869 WRITE(m11,5050) 91,
parp(91), chparp(91)
870 WRITE(m11,5050) 93,
parp(93), chparp(93)
871 WRITE(m11,5040) 95,
mstp(95), chmstp(95)
872 WRITE(m11,5050) 78,
parp(78), chparp(78)
873 WRITE(m11,5070) 11, mstj(11), chmstj(11)
874 WRITE(m11,5060) 54, parj(54), chparj(54)
875 WRITE(m11,5060) 55, parj(55), chparj(55)
880 ELSEIF(itune.EQ.200)
THEN
882 WRITE(m11,5010) itune, chname
883 ch60=
'see T. Sjostrand & P. Skands, JHEP03(2004)053'
886 IF (
mstp(181).LE.5.OR.(
mstp(181).EQ.6.AND.
mstp(182).LE.405))
THEN
887 CALL
pyerrm(9,
'(PYTUNE:) linked PYTHIA version incompatible'//
925 WRITE(m11,5040) 51,
mstp(51), chmstp(51)
926 WRITE(m11,5040) 52,
mstp(52), chmstp(52)
927 WRITE(m11,5050) 62,
parp(62), chparp(62)
928 WRITE(m11,5050) 64,
parp(64), chparp(64)
929 WRITE(m11,5050) 67,
parp(67), chparp(67)
930 WRITE(m11,5040) 68,
mstp(68), chmstp(68)
931 ch60=
'(Note: MSTP(68) is not explicitly (re-)set by PYTUNE)'
933 WRITE(m11,5050) 71,
parp(71), chparp(71)
934 WRITE(m11,5060) 81, parj(81), chparj(81)
935 WRITE(m11,5040) 81,
mstp(81), chmstp(81)
936 WRITE(m11,5050) 82,
parp(82), chparp(82)
937 WRITE(m11,5050) 89,
parp(89), chparp(89)
938 WRITE(m11,5050) 90,
parp(90), chparp(90)
939 WRITE(m11,5040) 82,
mstp(82), chmstp(82)
940 WRITE(m11,5050) 83,
parp(83), chparp(83)
941 WRITE(m11,5040) 88,
mstp(88), chmstp(88)
942 WRITE(m11,5040) 89,
mstp(89), chmstp(89)
943 WRITE(m11,5050) 79,
parp(79), chparp(79)
944 WRITE(m11,5050) 80,
parp(80), chparp(80)
945 WRITE(m11,5050) 93,
parp(93), chparp(93)
946 WRITE(m11,5040) 95,
mstp(95), chmstp(95)
947 WRITE(m11,5050) 78,
parp(78), chparp(78)
948 WRITE(m11,5070) 11, mstj(11), chmstj(11)
949 WRITE(m11,5060) 54, parj(54), chparj(54)
950 WRITE(m11,5060) 55, parj(55), chparj(55)
954 ELSEIF(itune.EQ.201)
THEN
956 WRITE(m11,5010) itune, chname
957 ch60=
'see P. Skands & D. Wicke, hep-ph/0703081 (Tune APT),'
959 ch60=
'R.D. Field (CDF), in hep-ph/0610012 (Tune A)'
961 ch60=
'T. Sjostrand & M. v. Zijl, PRD36(1987)2019'
963 ch60=
'and T. Sjostrand & P. Skands, EPJC39(2005)129'
966 IF (
mstp(181).LE.5.OR.(
mstp(181).EQ.6.AND.
mstp(182).LE.411))
THEN
967 CALL
pyerrm(9,
'(PYTUNE:) linked PYTHIA version incompatible'//
1010 WRITE(m11,5040) 51,
mstp(51), chmstp(51)
1011 WRITE(m11,5040) 52,
mstp(52), chmstp(52)
1012 WRITE(m11,5050) 62,
parp(62), chparp(62)
1013 WRITE(m11,5050) 64,
parp(64), chparp(64)
1014 WRITE(m11,5050) 67,
parp(67), chparp(67)
1015 WRITE(m11,5040) 68,
mstp(68), chmstp(68)
1016 ch60=
'(Note: MSTP(68) is not explicitly (re-)set by PYTUNE)'
1017 WRITE(m11,5030) ch60
1018 WRITE(m11,5070) 41, mstj(41), chmstj(41)
1019 WRITE(m11,5050) 71,
parp(71), chparp(71)
1020 WRITE(m11,5060) 81, parj(81), chparj(81)
1021 WRITE(m11,5040) 81,
mstp(81), chmstp(81)
1022 WRITE(m11,5050) 82,
parp(82), chparp(82)
1023 WRITE(m11,5050) 89,
parp(89), chparp(89)
1024 WRITE(m11,5050) 90,
parp(90), chparp(90)
1025 WRITE(m11,5040) 82,
mstp(82), chmstp(82)
1026 WRITE(m11,5050) 83,
parp(83), chparp(83)
1027 WRITE(m11,5050) 84,
parp(84), chparp(84)
1028 WRITE(m11,5050) 85,
parp(85), chparp(85)
1029 WRITE(m11,5050) 86,
parp(86), chparp(86)
1030 WRITE(m11,5040) 91,
mstp(91), chmstp(91)
1031 WRITE(m11,5050) 91,
parp(91), chparp(91)
1032 WRITE(m11,5050) 93,
parp(93), chparp(93)
1033 WRITE(m11,5070) 11, mstj(11), chmstj(11)
1034 WRITE(m11,5060) 54, parj(54), chparj(54)
1035 WRITE(m11,5060) 55, parj(55), chparj(55)
1040 ELSEIF(chname.EQ.
'GAL Tune 0'.OR.chname.EQ.
'GAL Tune 1')
THEN
1042 WRITE(m11,5010) itune, chname
1043 ch60=
'see J. Rathsman, PLB452(1999)364'
1044 WRITE(m11,5030) ch60
1047 ch60=
'and T. Sjostrand & M. v. Zijl, PRD36(1987)2019'
1048 WRITE(m11,5030) ch60
1050 ch70=
'NB! The GAL model must be run with modified '//
1052 WRITE(m11,5035) ch70
1053 ch70=
'available from http://www.isv.uu.se/thep/MC/scigal/'
1054 WRITE(m11,5035) ch70
1070 IF(chname.EQ.
'GAL Tune 1')
THEN
1077 WRITE(m11,5040) 81,
mstp(81), chmstp(81)
1078 WRITE(m11,5050) 82,
parp(82), chparp(82)
1079 WRITE(m11,5040) 82,
mstp(82), chmstp(82)
1080 WRITE(m11,5050) 83,
parp(83), chparp(83)
1081 WRITE(m11,5050) 84,
parp(84), chparp(84)
1085 WRITE(m11,5040) 81,
mstp(81), chmstp(81)
1086 WRITE(m11,5050) 81,
parp(81), chparp(81)
1087 WRITE(m11,5040) 82,
mstp(82), chmstp(82)
1092 WRITE(m11,5050) 62,
parp(62), chparp(62)
1093 WRITE(m11,5060) 82, parj(82), chparj(82)
1094 WRITE(m11,5040) 92,
mstp(92), chmstp(92)
1095 ch40=
'FSI SCI/GAL selection'
1096 WRITE(m11,6040) 1, mswi(1), ch40
1097 ch40=
'FSI SCI/GAL sea quark treatment'
1098 WRITE(m11,6040) 2, mswi(2), ch40
1099 ch40=
'FSI SCI/GAL sea quark treatment parm'
1100 WRITE(m11,6050) 1, parsci(1), ch40
1101 ch40=
'FSI SCI/GAL string reco probability R_0'
1102 WRITE(m11,6050) 2, parsci(2), ch40
1103 WRITE(m11,5060) 42, parj(42), chparj(42)
1104 WRITE(m11,5070) 16, mstj(16), chmstj(16)
1106 ELSEIF(chname.EQ.
'SCI Tune 0'.OR.chname.EQ.
'SCI Tune 1')
THEN
1108 WRITE(m11,5010) itune, chname
1109 ch60=
'see A.Edin et al, PLB366(1996)371, Z.Phys.C75(1997)57,'
1110 WRITE(m11,5030) ch60
1111 ch60=
'and T. Sjostrand & M. v. Zijl, PRD36(1987)2019'
1112 WRITE(m11,5030) ch60
1114 ch70=
'NB! The SCI model must be run with modified '//
1116 WRITE(m11,5035) ch70
1117 ch70=
'available from http://www.isv.uu.se/thep/MC/scigal/'
1118 WRITE(m11,5035) ch70
1131 IF (chname.EQ.
'SCI Tune 1')
THEN
1140 WRITE(m11,5040) 81,
mstp(81), chmstp(81)
1141 WRITE(m11,5050) 82,
parp(82), chparp(82)
1142 WRITE(m11,5040) 82,
mstp(82), chmstp(82)
1143 WRITE(m11,5050) 83,
parp(83), chparp(83)
1144 WRITE(m11,5050) 62,
parp(62), chparp(62)
1148 WRITE(m11,5040) 81,
mstp(81), chmstp(81)
1149 WRITE(m11,5050) 81,
parp(81), chparp(81)
1150 WRITE(m11,5040) 82,
mstp(82), chmstp(82)
1155 WRITE(m11,5040) 92,
mstp(92), chmstp(92)
1156 ch40=
'FSI SCI/GAL selection'
1157 WRITE(m11,6040) 1, mswi(1), ch40
1158 ch40=
'FSI SCI/GAL sea quark treatment'
1159 WRITE(m11,6040) 2, mswi(2), ch40
1160 ch40=
'FSI SCI/GAL sea quark treatment parm'
1161 WRITE(m11,6050) 1, parsci(1), ch40
1162 ch40=
'FSI SCI/GAL string reco probability R_0'
1163 WRITE(m11,6050) 2, parsci(2), ch40
1164 WRITE(m11,5070) 16, mstj(16), chmstj(16)
1168 IF (mstu(13).GE.1)
WRITE(m11,5020) itune
1172 9998
IF (mstu(13).GE.1)
WRITE(m11,6000)
1176 5000
FORMAT(1
x,78(
'*')/
' *',76
x,
'*'/
' *',3
x,
'PYTUNE v',a6,
' : ',
1177 &
'Presets for underlying-event (and min-bias)',13
x,
'*'/
' *',
1178 & 20
x,
'Last Change : ',a8,
' - P. Skands',22
x,
'*'/
' *',76
x,
'*')
1179 5010
FORMAT(
' *',3
x,
i4,1
x,a16,52
x,
'*')
1180 5020
FORMAT(
' *',3
x,
'Tune ',
i4,
' not recognized. Using defaults.')
1181 5030
FORMAT(
' *',3
x,10
x,a60,3
x,
'*')
1182 5035
FORMAT(
' *',3
x,a70,3
x,
'*')
1183 5040
FORMAT(
' *',5
x,
'MSTP(',
i2,
') = ',i12,3
x,a42,3
x,
'*')
1184 5050
FORMAT(
' *',5
x,
'PARP(',
i2,
') = ',f12.4,3
x,a40,5
x,
'*')
1185 5060
FORMAT(
' *',5
x,
'PARJ(',
i2,
') = ',f12.4,3
x,a40,5
x,
'*')
1186 5070
FORMAT(
' *',5
x,
'MSTJ(',
i2,
') = ',i12,3
x,a40,5
x,
'*')
1187 5140
FORMAT(
' *',5
x,
'MSTP(',
i3,
')= ',i12,3
x,a40,5
x,
'*')
1188 5150
FORMAT(
' *',5
x,
'PARP(',
i3,
')= ',f12.4,3
x,a40,5
x,
'*')
1189 6000
FORMAT(
' *',76
x,
'*'/1
x,32(
'*'),1
x,
'END OF PYTUNE',1
x,31(
'*'))
1190 6040
FORMAT(
' *',5
x,
'MSWI(',
i1,
') = ',i12,3
x,a40,5
x,
'*')
1191 6050
FORMAT(
' *',5
x,
'PARSCI(',
i1,
')= ',f12.4,3
x,a40,5
x,
'*')