Using only the first 6 characters of the common block name
authorhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Fri, 16 Dec 2005 06:36:38 +0000 (06:36 +0000)
committerhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Fri, 16 Dec 2005 06:36:38 +0000 (06:36 +0000)
PYTHIA6/pythia6_common_block_address.F

index 9194323..96d6151 100644 (file)
@@ -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
         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
         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