]>
Commit | Line | Data |
---|---|---|
d909f169 | 1 | integer function herwig6_common_block_address(common_block_name) |
2 | c----------------------------------------------------------------------- | |
c63d70bc | 3 | include "herwig65.inc" |
d909f169 | 4 | |
5 | character*(*) common_block_name | |
6 | external HWUDAT | |
7 | c----------------------------------------------------------------------- | |
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 |
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) | |
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 |
103 | c----------------------------------------------------------------------- | |
104 | herwig6_common_block_address = common_block_address | |
105 | end |