include("Hamiltonian.jl")
mode = cpu_tensor
T = Float32 # single-precision mode

V_gauss(r2) =
    -10 * exp(-(sqrt(r2)) ^ 2)

d = 3
n = 2
N = 96
ϕ = pi/6
n_imag = 1

open("ComplexScaling-FV-P-res.dat", "w") do f
    for L = range(20, 35, length=16)
        println("Calculating L=", L)
        s = system{T}(d, n, N, L)
        H = Hamiltonian{T}(s, V_gauss, ϕ, n_imag, mode)
        @time evals, _, info = eig(H, 40)

        dataline = vcat([L], hcat(real.(evals), imag.(evals))'[:])
        println(f, join(dataline, '\t'))
    end
end