	SUBROUTINE CHEFLG (IFLG)
C	PRINT THE FLAGS USED IN THE SEARCH
C
C	IFLG		WORD WITH SPECIAL FLAGS BITS SET
C
C	CALLED BY:	CHEPRM
C	CALLS:		NONE
C
	IMPLICIT BYTE (B), LOGICAL*1 (L), INTEGER*2 (I-K,M,N)
	DATA I1,I2,I4,I40,I100/1,2,4,"40,"100/
	WRITE (6,5)
5	FORMAT ('+ ',$)
	IF ((IFLG.AND.I1).NE.0) WRITE (6,10)
10	FORMAT ('+Mineral  ',$)
	IF ((IFLG.AND.I2).NE.0) WRITE (6,20)
20	FORMAT ('+Deleted ',$)
	IF ((IFLG.AND.I4).NE.0) WRITE (6,30)
30	FORMAT ('+Hydrate  ',$)
	IF ((IFLG.AND.I40).NE.0) WRITE (6,40)
40	FORMAT ('+Ammonium  ',$)
	IF ((IFLG.AND.I100).NE.0) WRITE (6,50)
50	FORMAT ('+Alloy ',$)
	WRITE (6,60)
60	FORMAT (2X)
	RETURN
	END
