INTEGER*4 ICPBRG_MAXBRIDGES, ICPBRG_MAXBRGROUTE,
     +		ICPBRG_QUEUESIZE, ICPBRG_QEFN
      PARAMETER(ICPBRG_MAXBRIDGES=45,
     +		ICPBRG_MAXBRGROUTE=ICPBRG_MAXBRIDGES,
     +		ICPBRG_QUEUESIZE=16,
     +		ICPBRG_QEFN=15)		! event flag for queue data passing
C
      BYTE	BCVBRG_ROOTPRIO(0:ICPBRG_MAXBRIDGES),
     +		BCVBRG_MSGBUF(1500,0:ICPBRG_QUEUESIZE-1)
      CHARACTER*1500 CCVBRG_MSGBUF(0:ICPBRG_QUEUESIZE-1)
      INTEGER*2 NCVBRG_HOPS(0:ICPBRG_MAXBRIDGES),
     +		NCVBRG_ROUTPTR(0:1,ICPBRG_MAXBRGROUTE,0:ICPBRG_MAXBRIDGES),
     +		NCVBRG_MSGLEN(0:ICPBRG_QUEUESIZE-1),
     +		NCVBRG_MSGPROT(0:ICPBRG_QUEUESIZE-1)
      INTEGER*4 ICVBRG_ADDRPTR(0:ICPBRG_MAXBRIDGES),
     +		ICVBRG_NUMBRIDGES, ICVBRG_QPRODUCER, ICVBRG_QCONSUMER,
     +		ICVBRG_QCOUNT
      LOGICAL*1 LCVBRG_MAPCMD, LCVBRG_MAPOK, LCVBRG_TIMEOUT
      COMMON /ETHERMON_BRIDGES/
     +		ICVBRG_NUMBRIDGES,
     +		ICVBRG_QPRODUCER,
     +		ICVBRG_QCONSUMER,
     +		ICVBRG_QCOUNT,
     +		ICVBRG_ADDRPTR,
     +		NCVBRG_HOPS,
     +		NCVBRG_ROUTPTR,
     +		NCVBRG_MSGLEN,
     +		NCVBRG_MSGPROT,
     +		LCVBRG_MAPCMD,	! MAP command in progress, collect messages
     +		LCVBRG_MAPOK,	! map has not been obsoleted by new data
     +		LCVBRG_TIMEOUT,
     +		BCVBRG_MSGBUF,
     +		BCVBRG_ROOTPRIO
      EQUIVALENCE (BCVBRG_MSGBUF, CCVBRG_MSGBUF)