INTEGER IELOC(NMCHIP+1)	!ELECTRICAL TABLE POINTERS
	BYTE IPINEL(2,NMEPIN)	!ELECTRICAL TABLE
	INTEGER NXEENT		!NEXT UNUSED ENTRY IN IPINEL
	COMMON / ELECTR / IELOC,NXEENT,IPINEL
C