]>
Commit | Line | Data |
---|---|---|
a978596b | 1 | #if defined (__ia64) || defined (__x86_64) |
d9f43611 | 2 | integer*8 |
3 | #else | |
4 | integer | |
5 | #endif | |
6 | + function pythia6_common_block_address(common_block_name) | |
952cc209 | 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----------------------------------------------------------------------- | |
a978596b | 20 | #if defined (__ia64) || defined (__x86_64) |
d9f43611 | 21 | integer*8 |
22 | #else | |
23 | integer | |
24 | #endif | |
25 | + pythia6_addressc, pythia6_addressi, | |
26 | + pythia6_addressd, pythia6_addressf, | |
27 | + common_block_address | |
75f4f395 | 28 | external pythia6_addressc, pythia6_addressi |
29 | external pythia6_addressd, pythia6_addressf | |
952cc209 | 30 | c----------------------------------------------------------------------- |
31 | common_block_address = 0 | |
32 | c----------------------------------------------------------------------- | |
33 | c GEANT common-blocks | |
34 | c----------------------------------------------------------------------- | |
f9916c38 | 35 | if (common_block_name(1:6).eq."HEPEVT") then |
952cc209 | 36 | common_block_address = pythia6_addressi(NEVHEP) |
f9916c38 | 37 | elseif (common_block_name(1:6).eq."PYJETS") then |
952cc209 | 38 | common_block_address = pythia6_addressi(N) |
f9916c38 | 39 | elseif (common_block_name(1:6).eq."PYDAT1") then |
952cc209 | 40 | common_block_address = pythia6_addressi(MSTU) |
f9916c38 | 41 | elseif (common_block_name(1:6).eq."PYDAT2") then |
952cc209 | 42 | common_block_address = pythia6_addressi(KCHG) |
f9916c38 | 43 | elseif (common_block_name(1:6).eq."PYDAT3") then |
952cc209 | 44 | common_block_address = pythia6_addressi(MDCY) |
f9916c38 | 45 | elseif (common_block_name(1:6).eq."PYDAT4") then |
952cc209 | 46 | common_block_address = pythia6_addressc(CHAF) |
f9916c38 | 47 | elseif (common_block_name(1:6).eq."PYDATR") then |
952cc209 | 48 | common_block_address = pythia6_addressi(MRPY) |
f9916c38 | 49 | elseif (common_block_name(1:6).eq."PYSUBS") then |
952cc209 | 50 | common_block_address = pythia6_addressi(MSEL) |
f9916c38 | 51 | elseif (common_block_name(1:6).eq."PYPARS") then |
952cc209 | 52 | common_block_address = pythia6_addressi(MSTP) |
f9916c38 | 53 | elseif (common_block_name(1:6).eq."PYINT1") then |
952cc209 | 54 | common_block_address = pythia6_addressi(MINT) |
f9916c38 | 55 | elseif (common_block_name(1:6).eq."PYINT2") then |
952cc209 | 56 | common_block_address = pythia6_addressi(ISET) |
f9916c38 | 57 | elseif (common_block_name(1:6).eq."PYINT3") then |
952cc209 | 58 | common_block_address = pythia6_addressd(XSFX) |
f9916c38 | 59 | elseif (common_block_name(1:6).eq."PYINT4") then |
952cc209 | 60 | common_block_address = pythia6_addressi(MWID) |
f9916c38 | 61 | elseif (common_block_name(1:6).eq."PYINT5" ) then |
952cc209 | 62 | common_block_address = pythia6_addressi(NGENPD) |
f9916c38 | 63 | elseif (common_block_name(1:6).eq."PYINT6" ) then |
952cc209 | 64 | common_block_address = pythia6_addressc(PROC) |
f9916c38 | 65 | elseif (common_block_name(1:6).eq."PYINT7") then |
952cc209 | 66 | common_block_address = pythia6_addressd(SIGT) |
1c83e2e8 | 67 | elseif (common_block_name(1:6).eq."PYINT8") then |
952cc209 | 68 | common_block_address = pythia6_addressd(XPVMD) |
f9916c38 | 69 | elseif (common_block_name(1:6).eq."PYINT9") then |
952cc209 | 70 | common_block_address = pythia6_addressd(VXPVMD) |
f9916c38 | 71 | elseif (common_block_name(1:6).eq."PYUPPR") then |
952cc209 | 72 | common_block_address = pythia6_addressi(NUP) |
f9916c38 | 73 | elseif (common_block_name(1:6).eq."PYMSSM") then |
952cc209 | 74 | common_block_address = pythia6_addressi(IMSS) |
1c83e2e8 | 75 | elseif (common_block_name(1:6).eq."PYSSMT") then |
952cc209 | 76 | common_block_address = pythia6_addressd(ZMIX) |
f9916c38 | 77 | elseif (common_block_name(1:6).eq."PYINTS") then |
952cc209 | 78 | common_block_address = pythia6_addressd(XXM(1)) |
f9916c38 | 79 | elseif (common_block_name(1:6).eq."PYBINS") then |
952cc209 | 80 | common_block_address = pythia6_addressi(IHIST(1)) |
81 | endif | |
82 | c | |
83 | pythia6_common_block_address = common_block_address | |
84 | end |