integer function stntuple_common_block_address(common_block_name)
c-----------------------------------------------------------------------
c  returns address of QQ common-block by name
c  revision history:
c  -----------------
c-----------------------------------------------------------------------
      implicit      none
c
      character*(*) common_block_name
c
#ifdef CDF1
#include "stntuple/exo_phoinfo.inc"
c-----------------------------------------------------------------------
      integer       address, loc
      integer       common_block_address
c-----------------------------------------------------------------------
      common_block_address = 0
c-----------------------------------------------------------------------
      if     (common_block_name.eq."PHOINFOC") then
        common_block_address = loc(NCENCL)
      endif
c
      stntuple_common_block_address = common_block_address
#else
      stntuple_common_block_address = 0
#endif
      return
      end