]>
Commit | Line | Data |
---|---|---|
952cc209 | 1 | integer function pythia6_common_block_address(common_block_name) |
2 | c----------------------------------------------------------------------- | |
3 | c revision history: | |
4 | c ----------------- | |
5 | c *0001 Jun 29 1998 P.Murat: created | |
6 | c *0002 Apr 30 1999 P.Murat: force loading in the BLOCK DATA | |
7 | c----------------------------------------------------------------------- | |
8 | #include "pythia6.inc" | |
9 | c#include "stdhep.inc" | |
10 | c | |
11 | character*(*) common_block_name | |
12 | external pydata | |
13 | c | |
14 | c----------------------------------------------------------------------- | |
75f4f395 | 15 | integer pythia6_addressc, pythia6_addressi |
16 | integer pythia6_addressd, pythia6_addressf | |
17 | external pythia6_addressc, pythia6_addressi | |
18 | external pythia6_addressd, pythia6_addressf | |
952cc209 | 19 | integer common_block_address |
20 | c----------------------------------------------------------------------- | |
21 | common_block_address = 0 | |
22 | c----------------------------------------------------------------------- | |
23 | c GEANT common-blocks | |
24 | c----------------------------------------------------------------------- | |
25 | if (common_block_name.eq."HEPEVT") then | |
26 | common_block_address = pythia6_addressi(NEVHEP) | |
27 | elseif (common_block_name.eq."PYJETS") then | |
28 | common_block_address = pythia6_addressi(N) | |
29 | elseif (common_block_name.eq."PYDAT1") then | |
30 | common_block_address = pythia6_addressi(MSTU) | |
31 | elseif (common_block_name.eq."PYDAT2") then | |
32 | common_block_address = pythia6_addressi(KCHG) | |
33 | elseif (common_block_name.eq."PYDAT3") then | |
34 | common_block_address = pythia6_addressi(MDCY) | |
35 | elseif (common_block_name.eq."PYDAT4") then | |
36 | common_block_address = pythia6_addressc(CHAF) | |
37 | elseif (common_block_name.eq."PYDATR") then | |
38 | common_block_address = pythia6_addressi(MRPY) | |
39 | elseif (common_block_name.eq."PYSUBS") then | |
40 | common_block_address = pythia6_addressi(MSEL) | |
41 | elseif (common_block_name.eq."PYPARS") then | |
42 | common_block_address = pythia6_addressi(MSTP) | |
43 | elseif (common_block_name.eq."PYINT1") then | |
44 | common_block_address = pythia6_addressi(MINT) | |
45 | elseif (common_block_name.eq."PYINT2") then | |
46 | common_block_address = pythia6_addressi(ISET) | |
47 | elseif (common_block_name.eq."PYINT3") then | |
48 | common_block_address = pythia6_addressd(XSFX) | |
49 | elseif (common_block_name.eq."PYINT4") then | |
50 | common_block_address = pythia6_addressi(MWID) | |
51 | elseif (common_block_name.eq."PYINT5" ) then | |
52 | common_block_address = pythia6_addressi(NGENPD) | |
53 | elseif (common_block_name.eq."PYINT6" ) then | |
54 | common_block_address = pythia6_addressc(PROC) | |
55 | elseif (common_block_name.eq."PYINT7") then | |
56 | common_block_address = pythia6_addressd(SIGT) | |
57 | elseif (common_block_name.eq."PYINT8") then | |
58 | common_block_address = pythia6_addressd(XPVMD) | |
59 | elseif (common_block_name.eq."PYINT9") then | |
60 | common_block_address = pythia6_addressd(VXPVMD) | |
61 | elseif (common_block_name.eq."PYUPPR") then | |
62 | common_block_address = pythia6_addressi(NUP) | |
63 | elseif (common_block_name.eq."PYMSSM") then | |
64 | common_block_address = pythia6_addressi(IMSS) | |
65 | elseif (common_block_name.eq."PYSSMT") then | |
66 | common_block_address = pythia6_addressd(ZMIX) | |
67 | elseif (common_block_name.eq."PYINTS") then | |
68 | common_block_address = pythia6_addressd(XXM(1)) | |
69 | elseif (common_block_name.eq."PYBINS") then | |
70 | common_block_address = pythia6_addressi(IHIST(1)) | |
71 | endif | |
72 | c | |
73 | pythia6_common_block_address = common_block_address | |
74 | end |