integer function hepevt_address()
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), 'address'
c                            is defined in evt/
c *0002 Aug 03 1998 P.Murat: use /hepevt/ definition from STDHEP
c-----------------------------------------------------------------------
#include "hepevt.inc"
      integer       tgeant_var_address
      hepevt_address = tgeant_var_address(nevhep)
      return
      end