	SUBROUTINE CHEEL (ITABLE,IBUF)
C	PRINT THE ELEMENTS CORRESPONDING TO THE BITS SET IN THE MAP
C
C	ITABLE		ELEMENT SYMBOL TABLE
C	IBUF		BUFFER WITH ELEMENT BIT MAP
C
C	CALLED BY:	CHEPRM
C	CALLS:		NONE
C
	IMPLICIT BYTE (B), LOGICAL*1 (L), INTEGER*2 (I-K,M,N)
	DIMENSION IBUF(1),ITABLE(1),IBITS(16)
C BITS 1-16
	DATA IBITS/"1,    "2,    "4,    "10,    "20,    "40,
     *		   "100,  "200,  "400,  "1000,  "2000,  "4000,
     *		   "10000,"20000,"40000,"100000/
	IE = 0
	IPRT = 0
	DO 100 I=1,6
	  IBIT = 1
	  DO 90 J=1,16
	    IE = IE + 1			!ELEMENT SYMBOL #
C	    TEST BIT 
	    IF ((IBITS(J).AND.IBUF(I)) .NE. 0) GOTO 90
	    WRITE (6,80) ITABLE(IE)	!PRINT SYMBOL
80	    FORMAT ('+',$,A3)
	    IPRT = IPRT + 1		!SEE IF NEW LINE IS NEEDED
	    IF (MOD(IPRT,20).EQ.0) WRITE (6,70)		!SET NEW LINE
70	    FORMAT (2X)
90	    CONTINUE
100	  CONTINUE
	RETURN
	END
