HERWIG/herwig6_common_block_address.f

   1       integer function herwig6_common_block_address(common_block_name)
   2 c-----------------------------------------------------------------------
   3       include "herwig65.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       integer       herwig6_addressl, herwig6_addressdc
  11       external      herwig6_addressc, herwig6_addressi
  12       external      herwig6_addressd, herwig6_addressf
  13       external      herwig6_addressl, herwig6_addressdc
  14       integer       common_block_address
  15 c-----------------------------------------------------------------------
  16       common_block_address = 0
  17 c-----------------------------------------------------------------------
  18       if     (common_block_name.eq."HEPEVT") then
  19         common_block_address = herwig6_addressi(NEVHEP)
  20       elseif (common_block_name.eq."HWBEAM") then
  21         common_block_address = herwig6_addressi(IPART1)
  22       elseif (common_block_name.eq."HWBMCH") then
  23         common_block_address = herwig6_addressc(PART1)
  24       elseif (common_block_name.eq."HWPROC") then
  25         common_block_address = herwig6_addressd(EBEAM1)
  26       elseif (common_block_name.eq."HWPRAM") then
  27         common_block_address = herwig6_addressd(AFCH)
  28       elseif (common_block_name.eq."HWPRCH") then
  29         common_block_address = herwig6_addressc(AUTPDF)
  30       elseif (common_block_name.eq."HWPART") then
  31         common_block_address = herwig6_addressi(NEVPAR)
  32       elseif (common_block_name.eq."HWPARP") then
  33         common_block_address = herwig6_addressd(DECPAR)
  34       elseif (common_block_name.eq."HWBOSC") then
  35         common_block_address = herwig6_addressd(ALPFAC)
  36       elseif (common_block_name.eq."HWPARC") then
  37         common_block_address = herwig6_addressi(JCOPAR)
  38       elseif (common_block_name.eq."HWBRCH") then
  39         common_block_address = herwig6_addressd(ANOMSC)
  40       elseif (common_block_name.eq."HWEVNT") then
  41         common_block_address = herwig6_addressd(AVWGT)
  42       elseif (common_block_name.eq."HWHARD") then
  43         common_block_address = herwig6_addressd(ASFIXD)
  44       elseif (common_block_name.eq."HWPROP") then
  45         common_block_address = herwig6_addressd(RLTIM)
  46       elseif (common_block_name.eq."HWUNAM") then
  47         common_block_address = herwig6_addressc(RNAME)
  48       elseif (common_block_name.eq."HWUPDT") then
  49         common_block_address = herwig6_addressd(BRFRAC)
  50       elseif (common_block_name.eq."HWUWTS") then
  51         common_block_address = herwig6_addressd(REPWT)
  52       elseif (common_block_name.eq."HWUCLU") then
  53         common_block_address = herwig6_addressd(CLDKWT)
  54       elseif (common_block_name.eq."HWDIST") then
  55         common_block_address = herwig6_addressd(EXAG)
  56       elseif (common_block_name.eq."HWQDKS") then
  57         common_block_address = herwig6_addressd(VTXQDK)
  58       elseif (common_block_name.eq."HWUSUD") then
  59         common_block_address = herwig6_addressd(ACCUR)
  60       elseif (common_block_name.eq."HWSUSY") then
  61         common_block_address = herwig6_addressd(TANB)
  62       elseif (common_block_name.eq."HWRPAR") then
  63         common_block_address = herwig6_addressd(LAMDA1)
  64       elseif (common_block_name.eq."HWMINB") then
  65         common_block_address = herwig6_addressd(PMBN1)
  66       elseif (common_block_name.eq."HWCLUS") then
  67         common_block_address = herwig6_addressd(PPCL)
  68       elseif (common_block_name.eq."HWGRAV") then
  69         common_block_address = herwig6_addressd(GRVLAM)
  70       elseif (common_block_name.eq."HW6202") then
  71         common_block_address = herwig6_addressd(VIPWID)
  72       elseif (common_block_name.eq."HW6203") then
  73         common_block_address = herwig6_addressd(ABWGT)
  74       elseif (common_block_name.eq."HW6300") then
  75         common_block_address = herwig6_addressd(MJJMIN)
  76       elseif (common_block_name.eq."HWPMRS") then
  77         common_block_address = herwig6_addressd(FMRS)
  78       elseif (common_block_name.eq."HWCIRC") then
  79         common_block_address = herwig6_addressi(CIRCOP)
  80       elseif (common_block_name.eq."HWDSPB") then
  81         common_block_address = herwig6_addressd(ABMODE)
  82       elseif (common_block_name.eq."HWDSP2") then
  83         common_block_address = herwig6_addressd(A2MODE)
  84       elseif (common_block_name.eq."HWDSP3") then
  85         common_block_address = herwig6_addressd(A3MODE)
  86       elseif (common_block_name.eq."HWDSP4") then
  87         common_block_address = herwig6_addressd(A4MODE)
  88       elseif (common_block_name.eq."HWDSPN") then
  89         common_block_address = herwig6_addressi(NDECSY)
  90       elseif (common_block_name.eq."HWSPIN") then
  91         common_block_address = herwig6_addressdc(MESPN)
  92       elseif (common_block_name.eq."HWSTAU") then
  93         common_block_address = herwig6_addressi(JAK1)
  94       elseif (common_block_name.eq."HWGUPR") then
  95         common_block_address = herwig6_addressd(LHWGT)
  96       elseif (common_block_name.eq."HW6500") then
  97         common_block_address = herwig6_addressl(PRESPL)
  98       elseif (common_block_name.eq."HW6504") then
  99         common_block_address = herwig6_addressi(ITOPRD)
 100       elseif (common_block_name.eq."HW6506") then
 101         common_block_address = herwig6_addressd(PDFX0)
 102       endif
 103 c-----------------------------------------------------------------------
 104       herwig6_common_block_address = common_block_address
 105       end