HERWIG/herwig6_common_block_address.f

   1       integer function herwig6_common_block_address(common_block_name)
   2 c-----------------------------------------------------------------------
   3       include "HERWIG61.INC"
   4
   5       character*(*) common_block_name
   6       external      HWUDAT
   7 c-----------------------------------------------------------------------
   8       integer       herwig6_addressc, herwig6_addressi
   9       integer       herwig6_addressd, herwig6_addressf
  10       external      herwig6_addressc, herwig6_addressi
  11       external      herwig6_addressd, herwig6_addressf
  12       integer       common_block_address
  13 c-----------------------------------------------------------------------
  14       common_block_address = 0
  15 c-----------------------------------------------------------------------
  16       if     (common_block_name.eq."HEPEVT") then
  17         common_block_address = herwig6_addressi(NEVHEP)
  18       elseif (common_block_name.eq."HWBEAM") then
  19         common_block_address = herwig6_addressi(IPART1)
  20       elseif (common_block_name.eq."HWBMCH") then
  21         common_block_address = herwig6_addressc(PART1)
  22       elseif (common_block_name.eq."HWPROC") then
  23         common_block_address = herwig6_addressd(EBEAM1)
  24       elseif (common_block_name.eq."HWPRAM") then
  25         common_block_address = herwig6_addressd(AFCH)
  26       elseif (common_block_name.eq."HWPRCH") then
  27         common_block_address = herwig6_addressc(AUTPDF)
  28       elseif (common_block_name.eq."HWPART") then
  29         common_block_address = herwig6_addressi(NEVPAR)
  30       elseif (common_block_name.eq."HWPARP") then
  31         common_block_address = herwig6_addressd(DECPAR)
  32       elseif (common_block_name.eq."HWBOSC") then
  33         common_block_address = herwig6_addressd(ALPFAC)
  34       elseif (common_block_name.eq."HWPARC") then
  35         common_block_address = herwig6_addressi(JCOPAR)
  36       elseif (common_block_name.eq."HWBRCH") then
  37         common_block_address = herwig6_addressd(ANOMSC)
  38       elseif (common_block_name.eq."HWEVNT") then
  39         common_block_address = herwig6_addressd(AVWGT)
  40       elseif (common_block_name.eq."HWHARD") then
  41         common_block_address = herwig6_addressd(ASFIXD)
  42       elseif (common_block_name.eq."HWPROP") then
  43         common_block_address = herwig6_addressd(RLTIM)
  44       elseif (common_block_name.eq."HWUNAM") then
  45         common_block_address = herwig6_addressc(RNAME)
  46       elseif (common_block_name.eq."HWUPDT") then
  47         common_block_address = herwig6_addressd(BRFRAC)
  48       elseif (common_block_name.eq."HWUWTS") then
  49         common_block_address = herwig6_addressd(REPWT)
  50       elseif (common_block_name.eq."HWUCLU") then
  51         common_block_address = herwig6_addressd(CLDKWT)
  52       elseif (common_block_name.eq."HWDIST") then
  53         common_block_address = herwig6_addressd(EXAG)
  54       elseif (common_block_name.eq."HWQDKS") then
  55         common_block_address = herwig6_addressd(VTXQDK)
  56       elseif (common_block_name.eq."HWUSUD") then
  57         common_block_address = herwig6_addressd(ACCUR)
  58       elseif (common_block_name.eq."HWSUSY") then
  59         common_block_address = herwig6_addressd(TANB)
  60       elseif (common_block_name.eq."HWRPAR") then
  61         common_block_address = herwig6_addressd(LAMDA1)
  62       elseif (common_block_name.eq."HWMINB") then
  63         common_block_address = herwig6_addressd(PMBN1)
  64       elseif (common_block_name.eq."HWCLUS") then
  65         common_block_address = herwig6_addressd(PPCL)
  66       endif
  67 c-----------------------------------------------------------------------
  68       herwig6_common_block_address = common_block_address
  69       end