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