character*(*) common_block_name
external HWUDAT
c-----------------------------------------------------------------------
integer herwig6_addressc, herwig6_addressi
integer herwig6_addressd, herwig6_addressf
character*(*) common_block_name
external HWUDAT
c-----------------------------------------------------------------------
integer herwig6_addressc, herwig6_addressi
integer herwig6_addressd, herwig6_addressf