BLOCK DATA
	COMMON /DFILE/IBUF(4090)
	END