c  For herwig version 6.2 , April-2001
      function herwig_common_block_address(common_block_name)
c-----------------------------------------------------------------------
c  returns address of HERWIG common-block by name
c  revision history:
c  -----------------
c *0001 Sep 09 1997 P.Murat: replace 'locf' with 'address' (locf returns 
c                            the address in 4-byte word units)
c-----------------------------------------------------------------------
C      implicit      none
c
c
cc#include "herwig.inc"
#include "HERWIG62.INC"
      character*(*) common_block_name
      integer herwig_common_block_address
c
c-----------------------------------------------------------------------
      integer       address
      integer       common_block_address
c-----------------------------------------------------------------------
      common_block_address = 0
c-----------------------------------------------------------------------
      if (common_block_name.eq.'HWBEAM')then
       herwig_common_block_address = address(ipart1)

      else if (common_block_name.eq.'HWBMCH')then
       herwig_common_block_address = address(part1)

      else if (common_block_name.eq.'HWPROC')then
       herwig_common_block_address = address(ebeam1)

      else if (common_block_name.eq.'HWPRAM')then
       herwig_common_block_address = address(afch)

      else if (common_block_name.eq.'HWPRCH')then
       herwig_common_block_address = address(autpdf)

      else if (common_block_name.eq.'HWPART')then
       herwig_common_block_address = address(nevpar)
    
      else if (common_block_name.eq.'HWPARP')then
       herwig_common_block_address = address(decpar)

      else if (common_block_name.eq.'HWBOSC')then
       herwig_common_block_address = address(alpfac)

      else if (common_block_name.eq.'HWPARC')then
       herwig_common_block_address = address(jcopar)

      else if (common_block_name.eq.'HWBRCH')then
       herwig_common_block_address = address(anomsc)

      else if (common_block_name.eq.'HWEVNT')then
       herwig_common_block_address = address(avwgt)
 
      else if (common_block_name.eq.'HWHARD')then
       herwig_common_block_address = address(asfixd)

      else if (common_block_name.eq.'HWPROP')then
       herwig_common_block_address = address(rltim)

      else if (common_block_name.eq.'HWUNAM')then
       herwig_common_block_address = address(rname)
 
      else if (common_block_name.eq.'HWUPDT')then
       herwig_common_block_address = address(brfrac)

      else if (common_block_name.eq.'HWUWTS')then
       herwig_common_block_address = address(repwt)
 
      else if (common_block_name.eq.'HWUCLU')then
       herwig_common_block_address = address(cldkwt)
 
      else if (common_block_name.eq.'HWDIST')then
       herwig_common_block_address = address(exag)

      else if (common_block_name.eq.'HWQDKS')then
       herwig_common_block_address = address(vtxqdk)

      else if (common_block_name.eq.'HWUSUD')then
       herwig_common_block_address = address(accur)     

cc v6.1
      else if (common_block_name.eq.'HWSUSY')then
       herwig_common_block_address = address(tanb)
 
      else if (common_block_name.eq.'HWRPAR')then
       herwig_common_block_address = address(lamda1)
 
      else if (common_block_name.eq.'HWMINB')then
       herwig_common_block_address = address(pmbn1)
 
      else if (common_block_name.eq.'HWCLUS')then
       herwig_common_block_address = address(ppcl)
 
cc v6.202
      else if (common_block_name.eq.'HWGRAV')then
       herwig_common_block_address = address(grvlam)
 
      else if (common_block_name.eq.'HW6202')then
       herwig_common_block_address = address(vipwid)
 
cc
      else if (common_block_name.eq.'HWUMSC')then
       herwig_common_block_address = address(lhwout)      

      else  

       write(6,*) " Unknown Common Block Name:  " , common_block_name 

      end if

 
      return
      end