	SUBROUTINE INTBIT(I,IBIT)
C	decode I word into bit pattern, store in IBIT:
	LOGICAL*1 IBIT(16)
	K1=I
	IBIT(16)=0
	IF(K1.LT.0) IBIT(16)=1
	IF(K1.LT.0) K1=(K1+1)+32767
	DO 1 I1=2,16
	I2=17-I1
	IBIT(I2)=0
	J1=16-I1
	N=2**J1
	IF(K1.LT.N) GOTO 1
	IBIT(I2)=1
	K1=K1-N
1	CONTINUE
	RETURN
	END
