Double_t 4-momentum

[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 9194323fbf1d5d415d2c07cce0d92be5dc4c1717..b99a6cc61ca9847522fbc5e0f1a862d4c5608a08 100644 (file)
--- a/PYTHIA6/pythia6_common_block_address.F
+++ b/PYTHIA6/pythia6_common_block_address.F
@@ -32,51 +32,51 @@ c-----------------------------------------------------------------------
 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