Corner Transfer Matrix AlgorithmΒΆ