Changes for Root6 (Mikolaj)
[u/mrichter/AliRoot.git] / HERWIG / herwig6_common_block_address.f
1       integer function herwig6_common_block_address(common_block_name)
2 c-----------------------------------------------------------------------
3       include "herwig65.inc"
4
5       character*(*) common_block_name
6       external      HWUDAT
7 c-----------------------------------------------------------------------
8       integer       herwig6_addressc, herwig6_addressi
9       integer       herwig6_addressd, herwig6_addressf
10       integer       herwig6_addressl, herwig6_addressdc
11       external      herwig6_addressc, herwig6_addressi
12       external      herwig6_addressd, herwig6_addressf
13       external      herwig6_addressl, herwig6_addressdc
14       integer       common_block_address
15 c-----------------------------------------------------------------------
16       common_block_address = 0
17 c-----------------------------------------------------------------------
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)
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
91         common_block_address = herwig6_addressdc(MESPN)
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)
102       endif
103 c-----------------------------------------------------------------------
104       herwig6_common_block_address = common_block_address
105       end