subroutine dummypythia6
*      common / pythia6_common_block_address / d13
      end

      integer function pythia6_common_block_address(common_block_name)
      pythia6_common_block_address=0
      return
      end