Using herwig65.inc instead of HERWIG65.INC
[u/mrichter/AliRoot.git] / HERWIG / herwig6_common_block_address.f
CommitLineData
d909f169 1 integer function herwig6_common_block_address(common_block_name)
2c-----------------------------------------------------------------------
c63d70bc 3 include "herwig65.inc"
d909f169 4
5 character*(*) common_block_name
6 external HWUDAT
7c-----------------------------------------------------------------------
8 integer herwig6_addressc, herwig6_addressi
9 integer herwig6_addressd, herwig6_addressf
ba6ac08e 10 integer herwig6_addressl, herwig6_addressdc
d909f169 11 external herwig6_addressc, herwig6_addressi
12 external herwig6_addressd, herwig6_addressf
ba6ac08e 13 external herwig6_addressl, herwig6_addressdc
d909f169 14 integer common_block_address
15c-----------------------------------------------------------------------
16 common_block_address = 0
17c-----------------------------------------------------------------------
18 if (common_block_name.eq."HEPEVT") then
19 common_block_address = herwig6_addressi(NEVHEP)
20 elseif (common_block_name.eq."HWBEAM") then
21 common_block_address = herwig6_addressi(IPART1)
22 elseif (common_block_name.eq."HWBMCH") then
23 common_block_address = herwig6_addressc(PART1)
24 elseif (common_block_name.eq."HWPROC") then
25 common_block_address = herwig6_addressd(EBEAM1)
26 elseif (common_block_name.eq."HWPRAM") then
27 common_block_address = herwig6_addressd(AFCH)
28 elseif (common_block_name.eq."HWPRCH") then
29 common_block_address = herwig6_addressc(AUTPDF)
30 elseif (common_block_name.eq."HWPART") then
31 common_block_address = herwig6_addressi(NEVPAR)
32 elseif (common_block_name.eq."HWPARP") then
33 common_block_address = herwig6_addressd(DECPAR)
34 elseif (common_block_name.eq."HWBOSC") then
35 common_block_address = herwig6_addressd(ALPFAC)
36 elseif (common_block_name.eq."HWPARC") then
37 common_block_address = herwig6_addressi(JCOPAR)
38 elseif (common_block_name.eq."HWBRCH") then
39 common_block_address = herwig6_addressd(ANOMSC)
40 elseif (common_block_name.eq."HWEVNT") then
41 common_block_address = herwig6_addressd(AVWGT)
42 elseif (common_block_name.eq."HWHARD") then
43 common_block_address = herwig6_addressd(ASFIXD)
44 elseif (common_block_name.eq."HWPROP") then
45 common_block_address = herwig6_addressd(RLTIM)
46 elseif (common_block_name.eq."HWUNAM") then
47 common_block_address = herwig6_addressc(RNAME)
48 elseif (common_block_name.eq."HWUPDT") then
49 common_block_address = herwig6_addressd(BRFRAC)
50 elseif (common_block_name.eq."HWUWTS") then
51 common_block_address = herwig6_addressd(REPWT)
52 elseif (common_block_name.eq."HWUCLU") then
53 common_block_address = herwig6_addressd(CLDKWT)
54 elseif (common_block_name.eq."HWDIST") then
55 common_block_address = herwig6_addressd(EXAG)
56 elseif (common_block_name.eq."HWQDKS") then
57 common_block_address = herwig6_addressd(VTXQDK)
58 elseif (common_block_name.eq."HWUSUD") then
59 common_block_address = herwig6_addressd(ACCUR)
60 elseif (common_block_name.eq."HWSUSY") then
61 common_block_address = herwig6_addressd(TANB)
62 elseif (common_block_name.eq."HWRPAR") then
63 common_block_address = herwig6_addressd(LAMDA1)
64 elseif (common_block_name.eq."HWMINB") then
65 common_block_address = herwig6_addressd(PMBN1)
66 elseif (common_block_name.eq."HWCLUS") then
67 common_block_address = herwig6_addressd(PPCL)
5cd3389e 68 elseif (common_block_name.eq."HWGRAV") then
69 common_block_address = herwig6_addressd(GRVLAM)
70 elseif (common_block_name.eq."HW6202") then
71 common_block_address = herwig6_addressd(VIPWID)
72 elseif (common_block_name.eq."HW6203") then
73 common_block_address = herwig6_addressd(ABWGT)
74 elseif (common_block_name.eq."HW6300") then
75 common_block_address = herwig6_addressd(MJJMIN)
76 elseif (common_block_name.eq."HWPMRS") then
77 common_block_address = herwig6_addressd(FMRS)
78 elseif (common_block_name.eq."HWCIRC") then
79 common_block_address = herwig6_addressi(CIRCOP)
80 elseif (common_block_name.eq."HWDSPB") then
81 common_block_address = herwig6_addressd(ABMODE)
82 elseif (common_block_name.eq."HWDSP2") then
83 common_block_address = herwig6_addressd(A2MODE)
84 elseif (common_block_name.eq."HWDSP3") then
85 common_block_address = herwig6_addressd(A3MODE)
86 elseif (common_block_name.eq."HWDSP4") then
87 common_block_address = herwig6_addressd(A4MODE)
88 elseif (common_block_name.eq."HWDSPN") then
89 common_block_address = herwig6_addressi(NDECSY)
90 elseif (common_block_name.eq."HWSPIN") then
ba6ac08e 91 common_block_address = herwig6_addressdc(MESPN)
5cd3389e 92 elseif (common_block_name.eq."HWSTAU") then
93 common_block_address = herwig6_addressi(JAK1)
94 elseif (common_block_name.eq."HWGUPR") then
95 common_block_address = herwig6_addressd(LHWGT)
96 elseif (common_block_name.eq."HW6500") then
97 common_block_address = herwig6_addressl(PRESPL)
98 elseif (common_block_name.eq."HW6504") then
99 common_block_address = herwig6_addressi(ITOPRD)
100 elseif (common_block_name.eq."HW6506") then
101 common_block_address = herwig6_addressd(PDFX0)
d909f169 102 endif
103c-----------------------------------------------------------------------
104 herwig6_common_block_address = common_block_address
105 end