D	A=IFIX(1000**A)
	J=J-J
	B=1/(A+1)
	END