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