replaces AliPHOSAliEnFile: references to AliEn removed
[u/mrichter/AliRoot.git] / PYTHIA6 / pythia6_common_block_address.F
CommitLineData
d9f43611 1#ifdef __ia64
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-----------------------------------------------------------------------
d9f43611 20#ifdef __ia64
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-----------------------------------------------------------------------
35 if (common_block_name.eq."HEPEVT") then
36 common_block_address = pythia6_addressi(NEVHEP)
37 elseif (common_block_name.eq."PYJETS") then
38 common_block_address = pythia6_addressi(N)
39 elseif (common_block_name.eq."PYDAT1") then
40 common_block_address = pythia6_addressi(MSTU)
41 elseif (common_block_name.eq."PYDAT2") then
42 common_block_address = pythia6_addressi(KCHG)
43 elseif (common_block_name.eq."PYDAT3") then
44 common_block_address = pythia6_addressi(MDCY)
45 elseif (common_block_name.eq."PYDAT4") then
46 common_block_address = pythia6_addressc(CHAF)
47 elseif (common_block_name.eq."PYDATR") then
48 common_block_address = pythia6_addressi(MRPY)
49 elseif (common_block_name.eq."PYSUBS") then
50 common_block_address = pythia6_addressi(MSEL)
51 elseif (common_block_name.eq."PYPARS") then
52 common_block_address = pythia6_addressi(MSTP)
53 elseif (common_block_name.eq."PYINT1") then
54 common_block_address = pythia6_addressi(MINT)
55 elseif (common_block_name.eq."PYINT2") then
56 common_block_address = pythia6_addressi(ISET)
57 elseif (common_block_name.eq."PYINT3") then
58 common_block_address = pythia6_addressd(XSFX)
59 elseif (common_block_name.eq."PYINT4") then
60 common_block_address = pythia6_addressi(MWID)
61 elseif (common_block_name.eq."PYINT5" ) then
62 common_block_address = pythia6_addressi(NGENPD)
63 elseif (common_block_name.eq."PYINT6" ) then
64 common_block_address = pythia6_addressc(PROC)
65 elseif (common_block_name.eq."PYINT7") then
66 common_block_address = pythia6_addressd(SIGT)
67 elseif (common_block_name.eq."PYINT8") then
68 common_block_address = pythia6_addressd(XPVMD)
69 elseif (common_block_name.eq."PYINT9") then
70 common_block_address = pythia6_addressd(VXPVMD)
71 elseif (common_block_name.eq."PYUPPR") then
72 common_block_address = pythia6_addressi(NUP)
73 elseif (common_block_name.eq."PYMSSM") then
74 common_block_address = pythia6_addressi(IMSS)
75 elseif (common_block_name.eq."PYSSMT") then
76 common_block_address = pythia6_addressd(ZMIX)
77 elseif (common_block_name.eq."PYINTS") then
78 common_block_address = pythia6_addressd(XXM(1))
79 elseif (common_block_name.eq."PYBINS") then
80 common_block_address = pythia6_addressi(IHIST(1))
81 endif
82c
83 pythia6_common_block_address = common_block_address
84 end