Simulation of ultracold atoms in optical lattices
git clone https://miroslavurbanek.com/git/tebdol.git
Log | Files | Refs | README

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

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)))