FUNCTION IBITR(J,NU)
	J1=J
	IBITR=0
	DO 200,I=1,NU
	J2=J1/2
	IBITR=IBITR*2+(J1-2*J2)
200	J1=J2
	RETURN
	END