SUBROUTINE CLOSE (LEVEL)
	CLOSE (UNIT=LEVEL)
	RETURN
	END