Small mods.
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Sat, 18 Mar 2006 18:47:07 +0000 (18:47 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Sat, 18 Mar 2006 18:47:07 +0000 (18:47 +0000)
PYTHIA6/pythia6_common_block_address.F

index 96d6151..b99a6cc 100644 (file)
@@ -64,7 +64,7 @@ c-----------------------------------------------------------------------
         common_block_address = pythia6_addressc(PROC)
       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(1:6).eq."PYINT9") then
         common_block_address = pythia6_addressd(VXPVMD)
@@ -72,7 +72,7 @@ c-----------------------------------------------------------------------
         common_block_address = pythia6_addressi(NUP)
       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(1:6).eq."PYINTS") then
         common_block_address = pythia6_addressd(XXM(1))