HERWIG version 6.507
[u/mrichter/AliRoot.git] / HERWIG / herwig6_common_block_address.f
CommitLineData
d909f169 1 integer function herwig6_common_block_address(common_block_name)
2c-----------------------------------------------------------------------
3 include "HERWIG61.INC"
4
5 character*(*) common_block_name
6 external HWUDAT
7c-----------------------------------------------------------------------
8 integer herwig6_addressc, herwig6_addressi
9 integer herwig6_addressd, herwig6_addressf
10 external herwig6_addressc, herwig6_addressi
11 external herwig6_addressd, herwig6_addressf
12 integer common_block_address
13c-----------------------------------------------------------------------
14 common_block_address = 0
15c-----------------------------------------------------------------------
16 if (common_block_name.eq."HEPEVT") then
17 common_block_address = herwig6_addressi(NEVHEP)
18 elseif (common_block_name.eq."HWBEAM") then
19 common_block_address = herwig6_addressi(IPART1)
20 elseif (common_block_name.eq."HWBMCH") then
21 common_block_address = herwig6_addressc(PART1)
22 elseif (common_block_name.eq."HWPROC") then
23 common_block_address = herwig6_addressd(EBEAM1)
24 elseif (common_block_name.eq."HWPRAM") then
25 common_block_address = herwig6_addressd(AFCH)
26 elseif (common_block_name.eq."HWPRCH") then
27 common_block_address = herwig6_addressc(AUTPDF)
28 elseif (common_block_name.eq."HWPART") then
29 common_block_address = herwig6_addressi(NEVPAR)
30 elseif (common_block_name.eq."HWPARP") then
31 common_block_address = herwig6_addressd(DECPAR)
32 elseif (common_block_name.eq."HWBOSC") then
33 common_block_address = herwig6_addressd(ALPFAC)
34 elseif (common_block_name.eq."HWPARC") then
35 common_block_address = herwig6_addressi(JCOPAR)
36 elseif (common_block_name.eq."HWBRCH") then
37 common_block_address = herwig6_addressd(ANOMSC)
38 elseif (common_block_name.eq."HWEVNT") then
39 common_block_address = herwig6_addressd(AVWGT)
40 elseif (common_block_name.eq."HWHARD") then
41 common_block_address = herwig6_addressd(ASFIXD)
42 elseif (common_block_name.eq."HWPROP") then
43 common_block_address = herwig6_addressd(RLTIM)
44 elseif (common_block_name.eq."HWUNAM") then
45 common_block_address = herwig6_addressc(RNAME)
46 elseif (common_block_name.eq."HWUPDT") then
47 common_block_address = herwig6_addressd(BRFRAC)
48 elseif (common_block_name.eq."HWUWTS") then
49 common_block_address = herwig6_addressd(REPWT)
50 elseif (common_block_name.eq."HWUCLU") then
51 common_block_address = herwig6_addressd(CLDKWT)
52 elseif (common_block_name.eq."HWDIST") then
53 common_block_address = herwig6_addressd(EXAG)
54 elseif (common_block_name.eq."HWQDKS") then
55 common_block_address = herwig6_addressd(VTXQDK)
56 elseif (common_block_name.eq."HWUSUD") then
57 common_block_address = herwig6_addressd(ACCUR)
58 elseif (common_block_name.eq."HWSUSY") then
59 common_block_address = herwig6_addressd(TANB)
60 elseif (common_block_name.eq."HWRPAR") then
61 common_block_address = herwig6_addressd(LAMDA1)
62 elseif (common_block_name.eq."HWMINB") then
63 common_block_address = herwig6_addressd(PMBN1)
64 elseif (common_block_name.eq."HWCLUS") then
65 common_block_address = herwig6_addressd(PPCL)
66 endif
67c-----------------------------------------------------------------------
68 herwig6_common_block_address = common_block_address
69 end