Writing back ITS alignement data (Ruben).
[u/mrichter/AliRoot.git] / PYTHIA6 / pythia6_common_block_address.F
CommitLineData
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 7c-----------------------------------------------------------------------
8c revision history:
9c -----------------
10c *0001 Jun 29 1998 P.Murat: created
11c *0002 Apr 30 1999 P.Murat: force loading in the BLOCK DATA
12c-----------------------------------------------------------------------
13#include "pythia6.inc"
14c#include "stdhep.inc"
15c
16 character*(*) common_block_name
17 external pydata
18c
19c-----------------------------------------------------------------------
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 30c-----------------------------------------------------------------------
31 common_block_address = 0
32c-----------------------------------------------------------------------
33c GEANT common-blocks
34c-----------------------------------------------------------------------
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
82c
83 pythia6_common_block_address = common_block_address
84 end