INTEGER NCN		!NUMBER OF CHAINS
	INTEGER ICNLOC(NMCHAN+1)	!POINTER INTO CHAIN-LIST TABLE
	BYTE ICHAIN(2,NMCHPN)	!CHAIN-LIST TABLE
	COMMON / CHAINS / NCN,ICNLOC,ICHAIN
C