Modifications in the output of the BF task (merging) - Michael Weber

[u/mrichter/AliRoot.git] / PYTHIA6 / pythia6_common_block_address.F

diff --git a/PYTHIA6/pythia6_common_block_address.F b/PYTHIA6/pythia6_common_block_address.F
index d74b5594d242d1e5eafca72ed6bc5b7858ab40da..b99a6cc61ca9847522fbc5e0f1a862d4c5608a08 100644 (file)
--- a/PYTHIA6/pythia6_common_block_address.F
+++ b/PYTHIA6/pythia6_common_block_address.F
@@ -1,4 +1,9 @@
-      integer function pythia6_common_block_address(common_block_name)
+#if defined (__ia64) || defined (__x86_64)
+      integer*8 
+#else
+      integer
+#endif
+     + function pythia6_common_block_address(common_block_name)
 c-----------------------------------------------------------------------
 c  revision history:
 c  -----------------
@@ -12,59 +17,66 @@ c
       external      pydata
 c
 c-----------------------------------------------------------------------
-      integer       adrressc, pythia6_addressi, pythia6_addressf
-      integer       pythia6_addressd
-      integer       common_block_address
+#if defined (__ia64) || defined (__x86_64)
+      integer*8
+#else
+      integer
+#endif
+     +     pythia6_addressc, pythia6_addressi,
+     +     pythia6_addressd, pythia6_addressf,
+     +     common_block_address
+      external      pythia6_addressc, pythia6_addressi
+      external      pythia6_addressd, pythia6_addressf
 c-----------------------------------------------------------------------
       common_block_address = 0
 c-----------------------------------------------------------------------
 c  GEANT common-blocks
 c-----------------------------------------------------------------------
-      if     (common_block_name.eq."HEPEVT") then
+      if     (common_block_name(1:6).eq."HEPEVT") then
         common_block_address = pythia6_addressi(NEVHEP)
-      elseif (common_block_name.eq."PYJETS") then
+      elseif (common_block_name(1:6).eq."PYJETS") then
         common_block_address = pythia6_addressi(N)
-      elseif (common_block_name.eq."PYDAT1") then
+      elseif (common_block_name(1:6).eq."PYDAT1") then
         common_block_address = pythia6_addressi(MSTU)
-      elseif (common_block_name.eq."PYDAT2") then
+      elseif (common_block_name(1:6).eq."PYDAT2") then
         common_block_address = pythia6_addressi(KCHG)
-      elseif (common_block_name.eq."PYDAT3") then
+      elseif (common_block_name(1:6).eq."PYDAT3") then
         common_block_address = pythia6_addressi(MDCY)
-      elseif (common_block_name.eq."PYDAT4") then
+      elseif (common_block_name(1:6).eq."PYDAT4") then
         common_block_address = pythia6_addressc(CHAF)
-      elseif (common_block_name.eq."PYDATR") then
+      elseif (common_block_name(1:6).eq."PYDATR") then
         common_block_address = pythia6_addressi(MRPY)
-      elseif (common_block_name.eq."PYSUBS") then
+      elseif (common_block_name(1:6).eq."PYSUBS") then
         common_block_address = pythia6_addressi(MSEL)
-      elseif (common_block_name.eq."PYPARS") then
+      elseif (common_block_name(1:6).eq."PYPARS") then
         common_block_address = pythia6_addressi(MSTP)
-      elseif (common_block_name.eq."PYINT1") then
+      elseif (common_block_name(1:6).eq."PYINT1") then
         common_block_address = pythia6_addressi(MINT)
-      elseif (common_block_name.eq."PYINT2") then
+      elseif (common_block_name(1:6).eq."PYINT2") then
         common_block_address = pythia6_addressi(ISET)
-      elseif (common_block_name.eq."PYINT3") then
+      elseif (common_block_name(1:6).eq."PYINT3") then
         common_block_address = pythia6_addressd(XSFX)
-      elseif (common_block_name.eq."PYINT4") then
+      elseif (common_block_name(1:6).eq."PYINT4") then
         common_block_address = pythia6_addressi(MWID)
-      elseif (common_block_name.eq."PYINT5" ) then
+      elseif (common_block_name(1:6).eq."PYINT5" ) then
         common_block_address = pythia6_addressi(NGENPD)
-      elseif (common_block_name.eq."PYINT6" ) then
+      elseif (common_block_name(1:6).eq."PYINT6" ) then
         common_block_address = pythia6_addressc(PROC)
-      elseif (common_block_name.eq."PYINT7") then
+      elseif (common_block_name(1:6).eq."PYINT7") then
         common_block_address = pythia6_addressd(SIGT)
-      elseif (common_block_name.eq."PYINT8") then
+      elseif (common_block_name(1:6).eq."PYINT8") then
         common_block_address = pythia6_addressd(XPVMD)
-      elseif (common_block_name.eq."PYINT9") then
+      elseif (common_block_name(1:6).eq."PYINT9") then
         common_block_address = pythia6_addressd(VXPVMD)
-      elseif (common_block_name.eq."PYUPPR") then
+      elseif (common_block_name(1:6).eq."PYUPPR") then
         common_block_address = pythia6_addressi(NUP)
-      elseif (common_block_name.eq."PYMSSM") then
+      elseif (common_block_name(1:6).eq."PYMSSM") then
         common_block_address = pythia6_addressi(IMSS)
-      elseif (common_block_name.eq."PYSSMT") then
+      elseif (common_block_name(1:6).eq."PYSSMT") then
         common_block_address = pythia6_addressd(ZMIX)
-      elseif (common_block_name.eq."PYINTS") then
+      elseif (common_block_name(1:6).eq."PYINTS") then
         common_block_address = pythia6_addressd(XXM(1))
-      elseif (common_block_name.eq."PYBINS") then
+      elseif (common_block_name(1:6).eq."PYBINS") then
         common_block_address = pythia6_addressi(IHIST(1))
       endif
 c