	SUBROUTINE FCLOSE(LUN)
	INTEGER LUN
	CLOSE(LUN)
	END