integer function herwig6_common_block_address(common_block_name)
c-----------------------------------------------------------------------
- include "HERWIG61.INC"
+ include "herwig65.inc"
character*(*) common_block_name
external HWUDAT
c-----------------------------------------------------------------------
integer herwig6_addressc, herwig6_addressi
integer herwig6_addressd, herwig6_addressf
+ integer herwig6_addressl, herwig6_addressdc
external herwig6_addressc, herwig6_addressi
external herwig6_addressd, herwig6_addressf
+ external herwig6_addressl, herwig6_addressdc
integer common_block_address
c-----------------------------------------------------------------------
common_block_address = 0
common_block_address = herwig6_addressd(PMBN1)
elseif (common_block_name.eq."HWCLUS") then
common_block_address = herwig6_addressd(PPCL)
+ elseif (common_block_name.eq."HWGRAV") then
+ common_block_address = herwig6_addressd(GRVLAM)
+ elseif (common_block_name.eq."HW6202") then
+ common_block_address = herwig6_addressd(VIPWID)
+ elseif (common_block_name.eq."HW6203") then
+ common_block_address = herwig6_addressd(ABWGT)
+ elseif (common_block_name.eq."HW6300") then
+ common_block_address = herwig6_addressd(MJJMIN)
+ elseif (common_block_name.eq."HWPMRS") then
+ common_block_address = herwig6_addressd(FMRS)
+ elseif (common_block_name.eq."HWCIRC") then
+ common_block_address = herwig6_addressi(CIRCOP)
+ elseif (common_block_name.eq."HWDSPB") then
+ common_block_address = herwig6_addressd(ABMODE)
+ elseif (common_block_name.eq."HWDSP2") then
+ common_block_address = herwig6_addressd(A2MODE)
+ elseif (common_block_name.eq."HWDSP3") then
+ common_block_address = herwig6_addressd(A3MODE)
+ elseif (common_block_name.eq."HWDSP4") then
+ common_block_address = herwig6_addressd(A4MODE)
+ elseif (common_block_name.eq."HWDSPN") then
+ common_block_address = herwig6_addressi(NDECSY)
+ elseif (common_block_name.eq."HWSPIN") then
+ common_block_address = herwig6_addressdc(MESPN)
+ elseif (common_block_name.eq."HWSTAU") then
+ common_block_address = herwig6_addressi(JAK1)
+ elseif (common_block_name.eq."HWGUPR") then
+ common_block_address = herwig6_addressd(LHWGT)
+ elseif (common_block_name.eq."HW6500") then
+ common_block_address = herwig6_addressl(PRESPL)
+ elseif (common_block_name.eq."HW6504") then
+ common_block_address = herwig6_addressi(ITOPRD)
+ elseif (common_block_name.eq."HW6506") then
+ common_block_address = herwig6_addressd(PDFX0)
endif
c-----------------------------------------------------------------------
herwig6_common_block_address = common_block_address