30-nov-2002 NvE Vertex position errors based on fResolution introduced in AliCollider...
[u/mrichter/AliRoot.git] / PYTHIA6 / pythia6_common_block_address.F
CommitLineData
952cc209 1 integer function pythia6_common_block_address(common_block_name)
2c-----------------------------------------------------------------------
3c revision history:
4c -----------------
5c *0001 Jun 29 1998 P.Murat: created
6c *0002 Apr 30 1999 P.Murat: force loading in the BLOCK DATA
7c-----------------------------------------------------------------------
8#include "pythia6.inc"
9c#include "stdhep.inc"
10c
11 character*(*) common_block_name
12 external pydata
13c
14c-----------------------------------------------------------------------
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
20c-----------------------------------------------------------------------
21 common_block_address = 0
22c-----------------------------------------------------------------------
23c GEANT common-blocks
24c-----------------------------------------------------------------------
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
72c
73 pythia6_common_block_address = common_block_address
74 end