HERWIG fortran code to be used with THerwig and AliGenHerwig
[u/mrichter/AliRoot.git] / HERWIG / herwig6_common_block_address.f
1       integer function herwig6_common_block_address(common_block_name)
2 c-----------------------------------------------------------------------
3       include "HERWIG61.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       external      herwig6_addressc, herwig6_addressi
11       external      herwig6_addressd, herwig6_addressf
12       integer       common_block_address
13 c-----------------------------------------------------------------------
14       common_block_address = 0
15 c-----------------------------------------------------------------------
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
67 c-----------------------------------------------------------------------
68       herwig6_common_block_address = common_block_address
69       end