split MPOHamiltonian creation from local operator into Finite and Infinite case

Author: VictorVanthilt

src/operators/mpohamiltonian.jl

@@ -595,15 +595,18 @@ function InfiniteMPOHamiltonian(lattice::AbstractArray{<:VectorSpace},
     return InfiniteMPOHamiltonian(lattice, local_operators...)
 end
 
-for MPOHamType in (:FiniteMPOHamiltonian, :InfiniteMPOHamiltonian)
-    @eval begin 
-        function $MPOHamType(local_operator::TensorMap{E,S,N,N}) where {E,S,N}
-            lattice_space = space(local_operator, 1)
-            n_sites = length(domain(local_operator))
-            lattice = fill(lattice_space, n_sites)
-            return $MPOHamType(lattice, (tuple(collect(1:n_sites)...) => local_operator))
-        end
-    end
+function FiniteMPOHamiltonian(local_operator::TensorMap{E,S,N}) where {E,S,N}
+    lattice_space = space(local_operator, 1)
+    n_sites = length(domain(local_operator))
+    lattice = fill(lattice_space, n_sites)
+    return FiniteMPOHamiltonian(lattice, (tuple(collect(1:n_sites)...) => local_operator))
+end
+
+function InfiniteMPOHamiltonian(local_operator::TensorMap{E,S,N,N}) where {E,S,N}
+    lattice_space = space(local_operator, 1)
+    n_sites = length(domain(local_operator))
+    lattice = PeriodicArray([lattice_space])
+    return InfiniteMPOHamiltonian(lattice, (tuple(collect(1:n_sites)...) => local_operator))
 end
 
 Base.parent(H::AbstractMPOHamiltonian) = H.data