Fixing in/out tags in documentation

[u/mrichter/AliRoot.git] / HERWIG / herwig6_common_block_address.f

      integer function herwig6_common_block_address(common_block_name)
c-----------------------------------------------------------------------
      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
c-----------------------------------------------------------------------
      if     (common_block_name.eq."HEPEVT") then
        common_block_address = herwig6_addressi(NEVHEP)
      elseif (common_block_name.eq."HWBEAM") then
        common_block_address = herwig6_addressi(IPART1)
      elseif (common_block_name.eq."HWBMCH") then
        common_block_address = herwig6_addressc(PART1)
      elseif (common_block_name.eq."HWPROC") then
        common_block_address = herwig6_addressd(EBEAM1)
      elseif (common_block_name.eq."HWPRAM") then
        common_block_address = herwig6_addressd(AFCH)
      elseif (common_block_name.eq."HWPRCH") then
        common_block_address = herwig6_addressc(AUTPDF)
      elseif (common_block_name.eq."HWPART") then
        common_block_address = herwig6_addressi(NEVPAR)
      elseif (common_block_name.eq."HWPARP") then
        common_block_address = herwig6_addressd(DECPAR)
      elseif (common_block_name.eq."HWBOSC") then
        common_block_address = herwig6_addressd(ALPFAC)
      elseif (common_block_name.eq."HWPARC") then
        common_block_address = herwig6_addressi(JCOPAR)
      elseif (common_block_name.eq."HWBRCH") then
        common_block_address = herwig6_addressd(ANOMSC)
      elseif (common_block_name.eq."HWEVNT") then
        common_block_address = herwig6_addressd(AVWGT)
      elseif (common_block_name.eq."HWHARD") then
        common_block_address = herwig6_addressd(ASFIXD)
      elseif (common_block_name.eq."HWPROP") then
        common_block_address = herwig6_addressd(RLTIM)
      elseif (common_block_name.eq."HWUNAM") then
        common_block_address = herwig6_addressc(RNAME)
      elseif (common_block_name.eq."HWUPDT") then
        common_block_address = herwig6_addressd(BRFRAC)
      elseif (common_block_name.eq."HWUWTS") then
        common_block_address = herwig6_addressd(REPWT)
      elseif (common_block_name.eq."HWUCLU") then
        common_block_address = herwig6_addressd(CLDKWT)
      elseif (common_block_name.eq."HWDIST") then
        common_block_address = herwig6_addressd(EXAG)
      elseif (common_block_name.eq."HWQDKS") then
        common_block_address = herwig6_addressd(VTXQDK)
      elseif (common_block_name.eq."HWUSUD") then
        common_block_address = herwig6_addressd(ACCUR)
      elseif (common_block_name.eq."HWSUSY") then
        common_block_address = herwig6_addressd(TANB)
      elseif (common_block_name.eq."HWRPAR") then
        common_block_address = herwig6_addressd(LAMDA1)
      elseif (common_block_name.eq."HWMINB") then
        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
      end