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)
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))