flistTreeFrame attribute added; fCanvasWindow removed
[u/mrichter/AliRoot.git] / PYTHIA6 / pythia6_common_block_address.F
1       integer function pythia6_common_block_address(common_block_name)
2 c-----------------------------------------------------------------------
3 c  revision history:
4 c  -----------------
5 c *0001 Jun 29 1998 P.Murat: created
6 c *0002 Apr 30 1999 P.Murat: force loading in the BLOCK DATA
7 c-----------------------------------------------------------------------
8 #include "pythia6.inc"
9 c#include "stdhep.inc"
10 c
11       character*(*) common_block_name
12       external      pydata
13 c
14 c-----------------------------------------------------------------------
15       integer       pythia6_addressc, pythia6_addressi
16       integer       pythia6_addressd, pythia6_addressf
17       external      pythia6_addressc, pythia6_addressi
18       external      pythia6_addressd, pythia6_addressf
19       integer       common_block_address
20 c-----------------------------------------------------------------------
21       common_block_address = 0
22 c-----------------------------------------------------------------------
23 c  GEANT common-blocks
24 c-----------------------------------------------------------------------
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
72 c
73       pythia6_common_block_address = common_block_address
74       end