tebdol

commit 0d404b0e2d3d10a2fc552048e797d4a34fd2e422
parent 556a0755b6616ca2c95b124f74f3c97100abf5f6
Author: Miroslav Urbanek <mu@miroslavurbanek.com>
Date:   Sun, 28 Aug 2016 21:34:12 +0200

Change the order of fusion indices in examples

This does not change the results, because for fusion of two indices,
changing their order is equivalent to using :reverse type. However, it
makes the code correct.

Diffstat:
states/revivals.lisp
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/states/revivals.lisp b/states/revivals.lisp
@@ -130,9 +130,9 @@
        (tensor-fuse
 	(tensor-permute
 	 (tensor-contract (svref mpo i) 2 (svref mps i) 1)
-	 '(0 2 4 1 3))
+	 '(0 2 3 1 4))
 	'(2 3)
-	'(:normal :normal :normal))))))
+	'(:normal :normal :reverse))))))
 
 (defun make-vacuum-mps (dimension length)
   (let* ((m (make-array length))