tebdol

commit 621b566fb4c305d4ab8dcc1f214ea5e16ace0502
parent d3780098760abe02f519b1fcd0e2d4808694f32e
Author: Miroslav Urbanek <mu@miroslavurbanek.com>
Date:   Thu,  8 Oct 2015 11:18:28 +0200

Rename mps:load-state to mps:load-mps

Diffstat:
examples/balancer.lisp
 | 
2
+-
examples/revivals.lisp
 | 
2
+-
examples/trotzky.lisp
 | 
2
+-
tebdol/mps.lisp
 | 
4
++--

4 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/examples/balancer.lisp b/examples/balancer.lisp
@@ -112,7 +112,7 @@
 
 (defparameter *partition* (uniform-partition *size* *length*))
 
-(defparameter *mps* (load-state *rank* *partition* *state*))
+(defparameter *mps* (load-mps *rank* *partition* *state*))
 (defparameter *mph* (make-hamiltonian *dimension* *length* *j*))
 (defparameter *mpq* (make-quasimomentum-mpo *dimension* *length* 0))
 
diff --git a/examples/revivals.lisp b/examples/revivals.lisp
@@ -112,7 +112,7 @@
 
 (defparameter *partition* (uniform-partition *size* *length*))
 
-(defparameter *mps* (load-state *rank* *partition* *state*))
+(defparameter *mps* (load-mps *rank* *partition* *state*))
 (defparameter *mph* (make-hamiltonian *dimension* *length* *j*))
 (defparameter *mpq* (make-quasimomentum-mpo *dimension* *length* 0))
 
diff --git a/examples/trotzky.lisp b/examples/trotzky.lisp
@@ -115,7 +115,7 @@
 
 (defparameter *partition* (uniform-partition *size* *length*))
 
-(defparameter *mps* (load-state *rank* *partition* *state*))
+(defparameter *mps* (load-mps *rank* *partition* *state*))
 (defparameter *mph* (make-hamiltonian *dimension* *length* *j* *k*))
 (defparameter *mpn* (make-particle-number-mpo *dimension* *length* #'oddp))
 
diff --git a/tebdol/mps.lisp b/tebdol/mps.lisp
@@ -13,7 +13,7 @@
 	   :save-mps
 	   :state-parameter
 	   :state-tensor
-	   :load-state))
+	   :load-mps))
 
 (in-package :mps)
 
@@ -186,7 +186,7 @@
      do (setf (svref a i) (state-tensor pathname j))
      finally (return (make-submps :start start :size d :tensors a))))
 
-(defun load-state (rank partition pathname)
+(defun load-mps (rank partition pathname)
   (let ((s (if (zerop rank) 0 (nth (1- rank) partition)))
 	(e (nth rank partition)))
     (load-submps pathname s e)))