integer function cteq6_common_block_address(common_block_name)
c-----------------------------------------------------------------------
c  revision history:
c  -----------------
c *0001 Jul 05 2003 P.Murat
c-----------------------------------------------------------------------
#include "cteq6.inc"
c
      character*(*) common_block_name
c-----------------------------------------------------------------------
      integer       cteq6_gcaddi
      integer       common_block_address
c-----------------------------------------------------------------------
      common_block_address = 0
c-----------------------------------------------------------------------
c  GEANT common-blocks
c-----------------------------------------------------------------------
      if     (common_block_name.eq."CTQPAR1") then
        common_block_address = cteq6_gcaddi(AL)
      elseif (common_block_name.eq."CTQPAR2") then
        common_block_address = cteq6_gcaddi(NX)
      elseif (common_block_name.eq."XQRANGE") then
        common_block_address = cteq6_gcaddi(QINI)
      elseif (common_block_name.eq."QCDTABLE") then
        common_block_address = cteq6_gcaddi(ALAMBDA)
      elseif (common_block_name.eq."MASSTBL") then
        common_block_address = cteq6_gcaddi(AMASS(1))
      endif
c
      cteq6_common_block_address = common_block_address
      end