module Measurements

using Printf
using FFTW
using LinearAlgebra
using Parameters
using Statistics
using Parameters

using ..Utilities: get_index, get_site, get_τ, θ, δ, reshaped, translational_average!, simpson
using ..Models: HolsteinModel, SSHModel, AbstractModel
using ..SimulationParams: SimulationParameters
using ..GreensFunctions: EstimateGreensFunction, update!, estimate
using ..GreensFunctions: update!, setup!, measure_GΔ0, measure_GΔ0_GΔ0, measure_GΔΔ_G00, measure_GΔ0_G0Δ

export initialize_measurements_container
export initialize_measurement_folders!
export make_measurements!
export process_measurements!
export write_measurements!
export reset_measurements!

"""
Construct a container to hold the measurements. The input `info` is a dictionary containing the information
from the `measurements` table in the config file.
"""
function initialize_measurements_container(holstein::HolsteinModel{T1,T2,T3},info::Dict,datafolder::String) where {T1,T2,T3}

    Lₜ = holstein.Lτ
    L₁ = holstein.lattice.L1
    L₂ = holstein.lattice.L2
    L₃ = holstein.lattice.L3
    nₒ = holstein.lattice.unit_cell.norbits

    # number of random vectors used to make measurements
    if haskey(info,"num_random_vectors")
        num_random_vectors = info["num_random_vectors"]
    else
        num_random_vectors = 1
    end

    container = Dict()
    container["global_meas"]    = Dict()
    container["onsite_meas"]    = Dict()
    container["intersite_meas"] = Dict()
    container["onsite_corr"]    = Dict()
    container["intersite_corr"] = Dict()
    container["onsite_susc"]    = Dict()
    container["intersite_susc"] = Dict()
    container["snapshots"]      = Dict()
    container["n_rand_vecs"]    = num_random_vectors

    ###########################
    ## SNAPSHOT MEASUREMENTS ##
    ###########################

    # see if any snapshots have been declared
    if haskey(info,"Snapshots")

        container["snapshots"] = Vector{Symbol}()

        # density snapshots
        if haskey(info["Snapshots"],"density")
            if info["Snapshots"]["density"]
                push!(container["snapshots"],:density)
            end
        end

        # double occupancy snapshots
        if haskey(info["Snapshots"],"double_occupancy")
            if info["Snapshots"]["double_occupancy"]
                push!(container["snapshots"],:double_occupancy)
            end
        end

        # phonon position snapshots
        if haskey(info["Snapshots"],"phonon_position")
            if info["Snapshots"]["phonon_position"]
                push!(container["snapshots"],:phonon_position)
            end
        end
    end

    #########################
    ## GLOBAL MEASUREMENTS ##
    #########################

    container["global_meas"]["Nsqr"]    = Complex{T1}(0.0)
    container["global_meas"]["density"] = Complex{T1}(0.0)
    container["global_meas"]["mu"]      = Complex{T1}(0.0)

    ##########################
    ## ON-SITE MEASUREMENTS ##
    ##########################

    container["onsite_meas"]["density"]     = zeros(Complex{T1},nₒ)
    container["onsite_meas"]["double_occ"]  = zeros(Complex{T1},nₒ)
    container["onsite_meas"]["x"]           = zeros(Complex{T1},nₒ)
    container["onsite_meas"]["x2"]          = zeros(Complex{T1},nₒ)
    container["onsite_meas"]["x4"]          = zeros(Complex{T1},nₒ)
    container["onsite_meas"]["phonon_pe"]   = zeros(Complex{T1},nₒ)
    container["onsite_meas"]["phonon_ke"]   = zeros(Complex{T1},nₒ)
    container["onsite_meas"]["elph_energy"] = zeros(Complex{T1},nₒ)
    container["onsite_meas"]["mu"]          = zeros(Complex{T1},nₒ)

    #############################
    ## INTER-SITE MEASUREMENTS ##
    #############################

    container["intersite_meas"]["el_ke"] = zeros(Complex{T1},length(holstein.bond_definitions))

    ###################################
    ## ON-SITE CORRELATION FUNCTIONS ##
    ###################################

    # electron green function
    init_corr_container!(container["onsite_corr"],"Greens",info,holstein,nₒ,L₃,L₂,L₁,Lₜ)

    # density-density correlation
    init_corr_container!(container["onsite_corr"],"DenDen",info,holstein,nₒ,L₃,L₂,L₁,Lₜ)

    # spin-spin correlation
    init_corr_container!(container["onsite_corr"],"SpinSpin",info,holstein,nₒ,L₃,L₂,L₁,Lₜ)

    # pair green function
    init_corr_container!(container["onsite_corr"],"PairGreens",info,holstein,nₒ,L₃,L₂,L₁,Lₜ)

    # phonon green function
    init_corr_container!(container["onsite_corr"],"PhononGreens",info,holstein,nₒ,L₃,L₂,L₁,Lₜ)

    ######################################
    ## INTER-SITE CORRELATION FUNCTIONS ##
    ######################################

    # bond-bond correlation function
    init_corr_container!(container["intersite_corr"],"BondBond",info,holstein,holstein.nbonds,L₃,L₂,L₁,Lₜ)

    # Current-Current correlation function
    init_corr_container!(container["intersite_corr"],"CurrentCurrent",info,holstein,holstein.nbonds,L₃,L₂,L₁,Lₜ)

    # Bond Pair Greens function
    init_corr_container!(container["intersite_corr"],"BondPairGreens",info,holstein,holstein.nbonds,L₃,L₂,L₁,Lₜ)

    ############################
    ## ON-SITE SUSCEPTIBILITY ##
    ############################

    # pair susceptibility
    init_susc_container!(container["onsite_susc"],container["onsite_corr"],"PairSusc","PairGreens",holstein)

    # charge susceptibility
    init_susc_container!(container["onsite_susc"],container["onsite_corr"],"ChargeSusc","DenDen",holstein)

    # spin susceptibility
    init_susc_container!(container["onsite_susc"],container["onsite_corr"],"SpinSusc","SpinSpin",holstein)

    ###############################
    ## INTER-SITE SUSCEPTIBILITY ##
    ###############################

    # bond pair susceptibility
    init_susc_container!(container["intersite_susc"],container["intersite_corr"],"BondPairSusc","BondPairGreens",holstein)

    ##########################################
    ## CONVERTING FROM DICTS TO NAMEDTUPLES ##
    ##########################################

    container["datafolder"]     = datafolder
    container["onsite_meas"]    = (;(Symbol(k)=>container["onsite_meas"][k] for k in keys(container["onsite_meas"]))...)
    container["intersite_meas"] = (;(Symbol(k)=>container["intersite_meas"][k] for k in keys(container["intersite_meas"]))...)
    container["onsite_corr"]    = (;(Symbol(k)=>container["onsite_corr"][k] for k in keys(container["onsite_corr"]))...)
    container["intersite_corr"] = (;(Symbol(k)=>container["intersite_corr"][k] for k in keys(container["intersite_corr"]))...)
    container["onsite_susc"]    = (;(Symbol(k)=>container["onsite_susc"][k] for k in keys(container["onsite_susc"]))...)
    container["intersite_susc"] = (;(Symbol(k)=>container["intersite_susc"][k] for k in keys(container["intersite_susc"]))...)
    container                   = (;(Symbol(k) => container[k] for k in keys(container))...)

    return container
end

function initialize_measurements_container(ssh::SSHModel{T1,T2,T3},info::Dict,datafolder::String) where {T1,T2,T3}

    Lₜ = ssh.Lτ
    L₁ = ssh.lattice.L1
    L₂ = ssh.lattice.L2
    L₃ = ssh.lattice.L3
    nₒ = ssh.lattice.unit_cell.norbits

    # number of random vectors used to make measurements
    if haskey(info,"num_random_vectors")
        num_random_vectors = info["num_random_vectors"]
    else
        num_random_vectors = 1
    end

    container = Dict()
    container["global_meas"]    = Dict()
    container["onsite_meas"]    = Dict()
    container["intersite_meas"] = Dict()
    container["onsite_corr"]    = Dict()
    container["intersite_corr"] = Dict()
    container["onsite_susc"]    = Dict()
    container["intersite_susc"] = Dict()
    container["snapshots"]      = Vector{Symbol}()
    container["n_rand_vecs"]    = num_random_vectors

    ###########################
    ## SNAPSHOT MEASUREMENTS ##
    ###########################

    # see if any snapshots have been declared
    if haskey(info,"Snapshots")

        # density snapshots
        if haskey(info["Snapshots"],"density")
            push!(container["snapshots"],:density)
        end

        # double occupancy snapshots
        if haskey(info["Snapshots"],"double_occupancy")
            push!(container["snapshots"],:double_occupancy)
        end

        # phonon position snapshots
        if haskey(info["Snapshots"],"phonon_position")
            push!(container["snapshots"],:phonon_position)
        end
    end

    #########################
    ## GLOBAL MEASUREMENTS ##
    #########################

    container["global_meas"]["density"] = Complex{T1}(0.0)
    container["global_meas"]["Nsqr"]    = Complex{T1}(0.0)
    container["global_meas"]["mu"]      = Complex{T1}(0.0)

    ##########################
    ## ON-SITE MEASUREMENTS ##
    ##########################

    container["onsite_meas"]["density"]    = zeros(Complex{T1},nₒ)
    container["onsite_meas"]["double_occ"] = zeros(Complex{T1},nₒ)
    container["onsite_meas"]["mu"]         = zeros(Complex{T1},nₒ)

    #############################
    ## INTER-SITE MEASUREMENTS ##
    #############################

    # number of phonon species
    nᵥ = ssh.nbonds

    # intialize containers for measurements
    container["intersite_meas"]["x"]           = zeros(Complex{T1},nᵥ)
    container["intersite_meas"]["x2"]          = zeros(Complex{T1},nᵥ)
    container["intersite_meas"]["x4"]          = zeros(Complex{T1},nᵥ)
    container["intersite_meas"]["phonon_pe"]   = zeros(Complex{T1},nᵥ)
    container["intersite_meas"]["phonon_ke"]   = zeros(Complex{T1},nᵥ)
    container["intersite_meas"]["elph_energy"] = zeros(Complex{T1},nᵥ)
    container["intersite_meas"]["el_ke"]       = zeros(Complex{T1},nᵥ)

    ###################################
    ## ON-SITE CORRELATION FUNCTIONS ##
    ###################################

    # electron green function
    init_corr_container!(container["onsite_corr"],"Greens",info,ssh,nₒ,L₃,L₂,L₁,Lₜ)

    # density-density correlation
    init_corr_container!(container["onsite_corr"],"DenDen",info,ssh,nₒ,L₃,L₂,L₁,Lₜ)

    # spin-spin correlation
    init_corr_container!(container["onsite_corr"],"SpinSpin",info,ssh,nₒ,L₃,L₂,L₁,Lₜ)

    # pair green function
    init_corr_container!(container["onsite_corr"],"PairGreens",info,ssh,nₒ,L₃,L₂,L₁,Lₜ)

    ######################################
    ## INTER-SITE CORRELATION FUNCTIONS ##
    ######################################

    # phonon greens function
    if ssh.nph>0
        init_corr_container!(container["intersite_corr"],"PhononGreens",info,ssh,ssh.nph,L₃,L₂,L₁,Lₜ)
    end

    # bond-bond correlation function
    init_corr_container!(container["intersite_corr"],"BondBond",info,ssh,ssh.nbonds,L₃,L₂,L₁,Lₜ)

    # current-current correlation function
    init_corr_container!(container["intersite_corr"],"CurrentCurrent",info,ssh,ssh.nbonds,L₃,L₂,L₁,Lₜ)

    # Bond Pair Greens function
    init_corr_container!(container["intersite_corr"],"BondPairGreens",info,ssh,ssh.nbonds,L₃,L₂,L₁,Lₜ)

    ############################
    ## ON-SITE SUSCEPTIBILITY ##
    ############################

    # pair susceptibility
    init_susc_container!(container["onsite_susc"],container["onsite_corr"],"PairSusc","PairGreens",ssh)

    # charge susceptibility
    init_susc_container!(container["onsite_susc"],container["onsite_corr"],"ChargeSusc","DenDen",ssh)

    # spin susceptibility
    init_susc_container!(container["onsite_susc"],container["onsite_corr"],"SpinSusc","SpinSpin",ssh)

    ###############################
    ## INTER-SITE SUSCEPTIBILITY ##
    ###############################

    # bond pair susceptibility
    init_susc_container!(container["intersite_susc"],container["intersite_corr"],"BondPairSusc","BondPairGreens",ssh)

    ##########################################
    ## CONVERTING FROM DICTS TO NAMEDTUPLES ##
    ##########################################

    container["datafolder"]     = datafolder
    container["onsite_meas"]    = (;(Symbol(k)=>container["onsite_meas"][k] for k in keys(container["onsite_meas"]))...)
    container["intersite_meas"] = (;(Symbol(k)=>container["intersite_meas"][k] for k in keys(container["intersite_meas"]))...)
    container["onsite_corr"]    = (;(Symbol(k)=>container["onsite_corr"][k] for k in keys(container["onsite_corr"]))...)
    container["intersite_corr"] = (;(Symbol(k)=>container["intersite_corr"][k] for k in keys(container["intersite_corr"]))...)
    container["onsite_susc"]    = (;(Symbol(k)=>container["onsite_susc"][k] for k in keys(container["onsite_susc"]))...)
    container["intersite_susc"] = (;(Symbol(k)=>container["intersite_susc"][k] for k in keys(container["intersite_susc"]))...)
    container                   = (;(Symbol(k) => container[k] for k in keys(container))...)

    return container
end

"""
Initialize Measurement Files.
"""
function initialize_measurement_folders!(container::NamedTuple)

    # data folder name
    datafolder = container.datafolder

    #############################################
    ## Initialize snapshot Measurement Folders ##
    #############################################

    # create folder of snapshot measurements
    for k in container.snapshots

        # declare folder to hold snapshot measurement
        measurement = "$(k)_snapshots"
        folder      = joinpath(datafolder,"$(measurement)_f")
        mkdir(folder)
    end

    ###############################################
    ## Initialize Folder For Global Measurements ##
    ###############################################

    mkdir(joinpath(datafolder,"global_measurements_f"))

    ################################################
    ## Initialize Folder For On-Site Measurements ##
    ################################################

    mkdir(joinpath(datafolder,"onsite_measurements_f"))

    ###################################################
    ## Initialize Folder For Inter-Site Measurements ##
    ###################################################

    mkdir(joinpath(datafolder,"intersite_measurements_f"))

    #################################################
    ## Initialize Folders For On-Site Correlations ##
    #################################################

    # iterate over on-site correlation functions
    for k in keys(container.onsite_corr)

        # make directory of position space measurements
        pos_corr_folder = joinpath(datafolder,"$(k)_position_f")
        mkdir(pos_corr_folder)

        # write position correlation key file
        pos_corr_key = joinpath(pos_corr_folder,"$(k)_position_key.out")
        open(pos_corr_key,"w") do file
            write(file, "index orbit1 orbit2 r3 r2 r1 tau\n")
            for (i,c) in enumerate(CartesianIndices(container.onsite_corr[k].position))
                p  = c[5]
                o₁ = container.onsite_corr[k].pairs[1,p]
                o₂ = container.onsite_corr[k].pairs[2,p]
                @printf file "%d %d %d %d %d %d %d\n" i o₁ o₂ c[4]-1 c[3]-1 c[2]-1 c[1]-1
            end
        end

        # make directory of momentum space measurements
        mom_corr_folder = joinpath(datafolder,"$(k)_momentum_f")
        mkdir(mom_corr_folder)

        # write momentum correlation key file
        mom_corr_key = joinpath(mom_corr_folder,"$(k)_momentum_key.out")
        open(mom_corr_key,"w") do file
            write(file, "index orbit1 orbit2 k3 k2 k1 tau\n")
            for (i,c) in enumerate(CartesianIndices(container.onsite_corr[k].momentum))
                p  = c[5]
                o₁ = container.onsite_corr[k].pairs[1,p]
                o₂ = container.onsite_corr[k].pairs[2,p]
                @printf file "%d %d %d %d %d %d %d\n" i o₁ o₂ c[4]-1 c[3]-1 c[2]-1 c[1]-1
            end
        end
    end

    ##################################################
    ## Initialize Files For Inter-Site Correlations ##
    ##################################################

    # iterate over inter-site correlation functions
    for k in keys(container.intersite_corr)

        # make directory of position space measurements
        pos_corr_folder = joinpath(datafolder,"$(k)_position_f")
        mkdir(pos_corr_folder)

        # write position correlation key file
        pos_corr_key = joinpath(pos_corr_folder,"$(k)_position_key.out")
        open(pos_corr_key,"w") do file
            write(file, "index bond1 bond2 r3 r2 r1 tau\n")
            for (i,c) in enumerate(CartesianIndices(container.intersite_corr[k].position))
                p  = c[5]
                o₁ = container.intersite_corr[k].pairs[1,p]
                o₂ = container.intersite_corr[k].pairs[2,p]
                @printf file "%d %d %d %d %d %d %d\n" i o₁ o₂ c[4]-1 c[3]-1 c[2]-1 c[1]-1
            end
        end

        # make directory of momentum space measurements
        mom_corr_folder = joinpath(datafolder,"$(k)_momentum_f")
        mkdir(mom_corr_folder)

        # write momentum correlation key file
        mom_corr_key = joinpath(mom_corr_folder,"$(k)_momentum_key.out")
        open(mom_corr_key,"w") do file
            write(file, "index bond1 bond2 k3 k2 k1 tau\n")
            for (i,c) in enumerate(CartesianIndices(container.intersite_corr[k].momentum))
                p  = c[5]
                o₁ = container.intersite_corr[k].pairs[1,p]
                o₂ = container.intersite_corr[k].pairs[2,p]
                @printf file "%d %d %d %d %d %d %d\n" i o₁ o₂ c[4]-1 c[3]-1 c[2]-1 c[1]-1
            end
        end
    end

    ###################################################
    ## Initialize Files For On-Site Susceptibilities ##
    ###################################################

    # iterate over on-site correlation functions
    for k in keys(container.onsite_susc)

        # make directory of position space measurements
        pos_susc_folder = joinpath(datafolder,"$(k)_position_f")
        mkdir(pos_susc_folder)

        # write position correlation key file
        pos_susc_key = joinpath(pos_susc_folder,"$(k)_position_key.out")
        open(pos_susc_key,"w") do file
            write(file, "index orbit1 orbit2 r3 r2 r1\n")
            for (i,c) in enumerate(CartesianIndices(container.onsite_susc[k].position))
                p  = c[4]
                o₁ = container.onsite_susc[k].pairs[1,p]
                o₂ = container.onsite_susc[k].pairs[2,p]
                @printf file "%d %d %d %d %d %d\n" i o₁ o₂ c[3]-1 c[2]-1 c[1]-1
            end
        end

        # make directory of momentum space measurements
        mom_susc_folder = joinpath(datafolder,"$(k)_momentum_f")
        mkdir(mom_susc_folder)

        # write momentum correlation key file
        mom_susc_key = joinpath(mom_susc_folder,"$(k)_momentum_key.out")
        open(mom_susc_key,"w") do file
            write(file, "index orbit1 orbit2 k3 k2 k1\n")
            for (i,c) in enumerate(CartesianIndices(container.onsite_susc[k].momentum))
                p  = c[4]
                o₁ = container.onsite_susc[k].pairs[1,p]
                o₂ = container.onsite_susc[k].pairs[2,p]
                @printf file "%d %d %d %d %d %d\n" i o₁ o₂ c[3]-1 c[2]-1 c[1]-1
            end
        end
    end

    ######################################################
    ## Initialize Files For Inter-Site Susceptibilities ##
    ######################################################

    # iterate over on-site correlation functions
    for k in keys(container.intersite_susc)

        # make directory of position space measurements
        pos_susc_folder = joinpath(datafolder,"$(k)_position_f")
        mkdir(pos_susc_folder)

        # write position correlation key file
        pos_susc_key = joinpath(pos_susc_folder,"$(k)_position_key.out")
        open(pos_susc_key,"w") do file
            write(file, "index bond1 bond2 r3 r2 r1\n")
            for (i,c) in enumerate(CartesianIndices(container.intersite_susc[k].position))
                p  = c[4]
                o₁ = container.intersite_susc[k].pairs[1,p]
                o₂ = container.intersite_susc[k].pairs[2,p]
                @printf file "%d %d %d %d %d %d\n" i o₁ o₂ c[3]-1 c[2]-1 c[1]-1
            end
        end

        # make directory of momentum space measurements
        mom_susc_folder = joinpath(datafolder,"$(k)_momentum_f")
        mkdir(mom_susc_folder)

        # write momentum correlation key file
        mom_susc_key = joinpath(mom_susc_folder,"$(k)_momentum_key.out")
        open(mom_susc_key,"w") do file
            write(file, "index bond1 bond2 k3 k2 k1\n")
            for (i,c) in enumerate(CartesianIndices(container.intersite_susc[k].momentum))
                p  = c[4]
                o₁ = container.intersite_susc[k].pairs[1,p]
                o₂ = container.intersite_susc[k].pairs[2,p]
                @printf file "%d %d %d %d %d %d\n" i o₁ o₂ c[3]-1 c[2]-1 c[1]-1
            end
        end
    end

    return nothing
end

"""
Make measurements.
"""
function make_measurements!(container::NamedTuple,model::AbstractModel,Gr::EstimateGreensFunction,nmeas::Int,preconditioner)

    # sample new random vectors and solve corresponding linear systems
    update!(Gr,model,preconditioner)

    # iterate over all possible pairs of random vectors
    for i in 1:(Gr.nᵥ-1)
        for j in (i+1):Gr.nᵥ
            setup!(Gr,i,j)
            make_global_measurements!(container,model,Gr)
            measure_onsite_correlations!(container,model,Gr)
            measure_intersite_correlations!(container,model,Gr)
            make_onsite_measurements!(container,model,Gr)
            make_intersite_measurements!(container,model,Gr)
        end
    end

    # make snapshot measurements
    make_snapshot_measurements!(container,model,Gr,nmeas)

    return nothing
end

"""
Process Measurments. This includes:
1. fourier transforming measurements from position to momentum space.
2. normalizing measurements by bin size.
3. measure various susceptibilities.
"""
function process_measurements!(container::NamedTuple,sim_params::SimulationParameters,model::AbstractModel)

    #########################################
    ## FOURIER TRANSFORM TO MOMENTUM SPACE ##
    #########################################

    # fourier transform on-site correlation functions
    fourier_transform_correlations!(container.onsite_corr)

    # fourier transform inter-site correlation functions
    fourier_transform_correlations!(container.intersite_corr)

    ############################
    ## NORMALIZE MEASUREMENTS ##
    ############################

    # bin size
    bin_size = sim_params.bin_size

    # number of random vectors used to make measurements
    n_rand_vecs = container.n_rand_vecs

    # normalization constant
    V = bin_size * binomial(n_rand_vecs,2)

    # normalize global measurements
    global_meas = container.global_meas
    for key in keys(global_meas)
        global_meas[key] /= V
    end

    # normalize on-site measurements
    onsite_meas = container.onsite_meas
    for key in keys(onsite_meas)
        onsite_meas[key] ./= V
    end

    # normalize inter-site measurements
    intersite_meas = container.intersite_meas
    for key in keys(intersite_meas)
        intersite_meas[key] ./= V
    end

    # normalize on-site correlation
    onsite_corr = container.onsite_corr
    for key in keys(onsite_corr)
        onsite_corr[key].position ./= V
        onsite_corr[key].momentum ./= V
    end

    # normalize inter-site correlation
    intersite_corr = container.intersite_corr
    for key in keys(intersite_corr)
        intersite_corr[key].position ./= V
        intersite_corr[key].momentum ./= V
    end

    ##############################
    ## MEASURE SUSCEPTIBILITIES ##
    ##############################

    # measure pair susceptibility
    if haskey(container.onsite_susc,:PairSusc)
        measure_susceptibility!(container.onsite_susc.PairSusc.position,
                                container.onsite_corr.PairGreens.position,
                                model)
        measure_susceptibility!(container.onsite_susc.PairSusc.momentum,
                                container.onsite_corr.PairGreens.momentum,
                                model)
    end

    # measure charge susceptibility
    if haskey(container.onsite_susc,:ChargeSusc)
        measure_susceptibility!(container.onsite_susc.ChargeSusc.position,
                                container.onsite_corr.DenDen.position,
                                model)
        measure_susceptibility!(container.onsite_susc.ChargeSusc.momentum,
                                container.onsite_corr.DenDen.momentum,
                                model)
    end

    # measure spin susceptibility
    if haskey(container.onsite_susc,:SpinSusc)
        measure_susceptibility!(container.onsite_susc.SpinSusc.position,
                                container.onsite_corr.SpinSpin.position,
                                model)
        measure_susceptibility!(container.onsite_susc.SpinSusc.momentum,
                                container.onsite_corr.SpinSpin.momentum,
                                model)
    end

    # measure bond pair susceptibility
    if haskey(container.intersite_susc,:BondPairSusc)
        measure_susceptibility!(container.intersite_susc.BondPairSusc.position,
                                container.intersite_corr.BondPairGreens.position,
                                model)
        measure_susceptibility!(container.intersite_susc.BondPairSusc.momentum,
                                container.intersite_corr.BondPairGreens.momentum,
                                model)
    end

    return nothing
end

"""
Write measurements to file.
"""
function write_measurements!(container::NamedTuple,model::AbstractModel{T1,T2},bin::Int) where {T1,T2}

    datafolder = container.datafolder
    write_global_measurements!(    container.global_meas,    datafolder, model, bin)
    write_onsite_measurements!(    container.onsite_meas,    datafolder, model, bin)
    write_intersite_measurements!( container.intersite_meas, datafolder, model, bin)
    write_correlations!(           container.onsite_corr,    datafolder, model, bin)
    write_correlations!(           container.intersite_corr, datafolder, model, bin)
    write_correlations!(           container.onsite_susc,    datafolder, model, bin)
    write_correlations!(           container.intersite_susc, datafolder, model, bin)

    return nothing
end

"""
Reset the measurements container i.e. resent all values to zero.
"""
function reset_measurements!(container::NamedTuple,model::AbstractModel{T1,T2}) where {T1,T2}

    # reset global measurements
    global_measurements = container.global_meas
    for key in keys(global_measurements)
        global_measurements[key] = 0.0
    end

    # reset on-site measurements
    onsite_measurements = container.onsite_meas
    for key in keys(onsite_measurements)
        measurement = onsite_measurements[key]::Vector{Complex{T1}}
        fill!(measurement,0.0)
    end

    # reset inter-site measurements
    intersite_measurements = container.intersite_meas
    for key in keys(intersite_measurements)
        measurement = intersite_measurements[key]::Vector{Complex{T1}}
        fill!(measurement,0.0)
    end

    # reset on-site correlations
    onsite_correlations = container.onsite_corr
    for key  in keys(onsite_correlations)
        position = onsite_correlations[key].position::Array{Complex{T1},5}
        momentum = onsite_correlations[key].momentum::Array{Complex{T1},5}
        fill!(position,0.0)
        fill!(momentum,0.0)
    end

    # reset inter-site correlations
    intersite_correlations = container.intersite_corr
    for key in keys(intersite_correlations)
        position = intersite_correlations[key].position::Array{Complex{T1},5}
        momentum = intersite_correlations[key].momentum::Array{Complex{T1},5}
        fill!(position,0.0)
        fill!(momentum,0.0)
    end

    # reset susceptibilities
    susceptibility = container.onsite_susc
    for key in keys(susceptibility)
        position = susceptibility[key].position::Array{Complex{T1},4}
        momentum = susceptibility[key].momentum::Array{Complex{T1},4}
        fill!(position,0.0)
        fill!(momentum,0.0)
    end

    # reset susceptibilities
    susceptibility = container.intersite_susc
    for key in keys(susceptibility)
        position = susceptibility[key].position::Array{Complex{T1},4}
        momentum = susceptibility[key].momentum::Array{Complex{T1},4}
        fill!(position,0.0)
        fill!(momentum,0.0)
    end

    return nothing
end

#####################
## PRIVATE METHODS ##
#####################

"""
Intialize multi-dimensional array to contain correlation measurement.
"""
function init_corr_container!(container::Dict,measurement::String,info::Dict,model::AbstractModel{T1,T2,T3},
                              n::Int,L₃::Int,L₂::Int,L₁::Int,Lₜ::Int) where {T1,T2,T3}

    # check if key associated with measurement is present
    if haskey(info,measurement)
        # check if measurement is to be made
        if info[measurement]["measure"]==true
            container[measurement] = Dict()
            # get which pairs of said correlation function are to be measured
            if haskey(info[measurement],"pairs")
                pairs = info[measurement]["pairs"]::Vector{Vector{Int}}
                sort!(pairs)
            else
                pairs = [[i,j] for i in 1:n for j in 1:n]::Vector{Vector{Int}}
            end
            pairs  = hcat(pairs...)::Matrix{Int}
            nₚ     = size(pairs,2)
            # declare multi-dimnesional arrays to hold measurement
            if info[measurement]["time_dependent"]==true
                position = zeros(Complex{T1},Lₜ+1,L₁,L₂,L₃,nₚ)
                momentum = zeros(Complex{T1},Lₜ+1,L₁,L₂,L₃,nₚ)
            else
                position = zeros(Complex{T1},1,L₁,L₂,L₃,nₚ)
                momentum = zeros(Complex{T1},1,L₁,L₂,L₃,nₚ)
            end
            container[measurement] = (position=position, momentum=momentum, pairs=pairs)
        end
    end
    return nothing
end

"""
Initialize susceptibility container
"""
function init_susc_container!(susc_container::Dict,corr_container::Dict,susc::String,corr::String,
                              model::AbstractModel{T1,T2,T3}) where {T1,T2,T3}

    # if correlation function is being measured
    if haskey(corr_container,corr)
        # get pairs
        pairs = corr_container[corr].pairs
        # size of container for correlation measurements
        Lₜ, L₁, L₂, L₃, nₚ = size(corr_container[corr].position)
        # if time-dependent correlation function is being measured
        if Lₜ > 1
            position = zeros(Complex{T1}, L₁, L₂, L₃, nₚ)
            momentum = zeros(Complex{T1}, L₁, L₂, L₃, nₚ)
            susc_container[susc] = (position=position,momentum=momentum,pairs=pairs)
        end
    end

    return nothing
end

"""
Make snapshot measurements.
"""
function make_snapshot_measurements!(container::NamedTuple,model::AbstractModel,Gr::EstimateGreensFunction,nmeas::Int)

    snapshots  = container.snapshots
    datafolder = container.datafolder

    for measurement in snapshots
        if measurement == :density
            take_density_snapshot!(model,Gr,nmeas,datafolder)
        elseif measurement == :double_occupancy
            take_double_occupancy_snapshot!(model,Gr,nmeas,datafolder)
        elseif measurement == :phonon_position
            take_phonon_position_snapshot!(model,Gr,nmeas,datafolder)
        end
    end

    return nothing
end

"""
Make global measurements.
"""
function make_global_measurements!(container::NamedTuple,model::AbstractModel,Gr::EstimateGreensFunction)

    global_meas = container.global_meas::Dict

    # measure density ⟨n̂⟩
    n  = measure_density(model,Gr)
    global_meas["density"] += n

    # measure ⟨N̂²⟩
    N² = measure_N²(model,Gr)
    global_meas["Nsqr"] += N²

    # measure μ
    global_meas["mu"] += mean(model.μ)

    return nothing
end

"""
Measure on-site correlation functions
"""
function measure_onsite_correlations!(container::NamedTuple,model::AbstractModel,Gr::EstimateGreensFunction)

    onsite_corr = container.onsite_corr

    for measurement in keys(onsite_corr)
        pos_corr = onsite_corr[measurement].position
        pairs    = onsite_corr[measurement].pairs
        if measurement == :Greens
            measure_Greens!(pos_corr,pairs,model,Gr)
        elseif measurement == :DenDen
            measure_DenDen!(pos_corr,pairs,model,Gr)
        elseif measurement == :SpinSpin
            measure_SpinSpin!(pos_corr,pairs,model,Gr)
        elseif measurement == :PairGreens
            measure_PairGreens!(pos_corr,pairs,model,Gr)
        elseif measurement == :PhononGreens
            measure_PhononGreens!(pos_corr,pairs,model,Gr)
        end
    end

    return nothing
end

"""
Measure inter-site correlation functions
"""
function measure_intersite_correlations!(container::NamedTuple,model::AbstractModel,Gr::EstimateGreensFunction)

    intersite_corr = container.intersite_corr

    for measurement in keys(intersite_corr)
        pos_corr = intersite_corr[measurement].position
        pairs    = intersite_corr[measurement].pairs
        if measurement == :BondBond
            measure_BondBond!(pos_corr,pairs,model,Gr)
        elseif measurement == :PhononGreens
            measure_PhononGreens!(pos_corr,pairs,model,Gr)
        elseif measurement == :CurrentCurrent
            measure_CurrentCurrent!(pos_corr,pairs,model,Gr)
        elseif measurement == :BondPairGreens
            measure_BondPairGreens!(pos_corr,pairs,model,Gr)
        end
    end

    return nothing
end

"""
Make on-site measurements.
"""
function make_onsite_measurements!(container::NamedTuple,model::HolsteinModel,Gr::EstimateGreensFunction)

    # measurements container
    onsite_meas = container.onsite_meas

    # phonon fields
    x = model.x

    # getting number of orbitals
    norbits = model.lattice.unit_cell.norbits::Int

    # number of physical sites in lattice
    nsites = model.Nsites::Int

    # length of imaginary time axis
    Lτ = model.Lτ::Int

    # for measuring phonon kinetic energy
    Δτ  = model.Δτ
    Δτ² = Δτ * Δτ

    # normalization
    normalization = div(nsites,norbits)*Lτ

    # iterating over orbital types
    for orbit in 1:norbits
        # iterating over orbits of the current type
        for site in orbit:norbits:nsites
            # iterating over time slices
            for τ in 1:Lτ
                # getting current index
                index = get_index(τ,site,Lτ)
                # estimate ⟨cᵢ(τ)c⁺ᵢ(τ)⟩
                G1 = estimate(Gr,site,site,τ,τ,1)
                G2 = estimate(Gr,site,site,τ,τ,2)
                # measure density
                onsite_meas.density[orbit] += ((1.0-G1)+(1.0-G2)) / normalization
                # measure double occupancy
                onsite_meas.double_occ[orbit] += (1.0-G1)*(1.0-G2) / normalization
                # measuring phonon kinetic energy such that
                # ⟨KE⟩ = 1/(2Δτ) - ⟨(1/2)[xᵢ(τ+1)-xᵢ(τ)]²/Δτ²⟩
                Δx = x[get_index(τ%Lτ+1,site,Lτ)]-x[index]
                onsite_meas.phonon_ke[orbit] += (0.5/Δτ-(Δx^2)/Δτ²/2) / normalization
                # measuring phonon potential energy
                onsite_meas.phonon_pe[orbit] += (model.ω[site]^2*x[index]^2/2 + model.ω₄[site]*x[index]^4) / normalization
                # measuring the electron phonon energy λ⟨x⋅(n₊+n₋)⟩
                onsite_meas.elph_energy[orbit] += model.λ[site]*x[index]*(2.0-G1-G2) / normalization
                # measure ⟨x⟩
                onsite_meas.x[orbit]  += x[index] / normalization
                # measure ⟨x²⟩
                onsite_meas.x2[orbit] += x[index]^2 / normalization
                # measure ⟨x⁴⟩
                onsite_meas.x4[orbit] += x[index]^4 / normalization
                # measure chemical potential
                onsite_meas.mu[orbit] += model.μ[site] / normalization
            end
        end
    end

    return nothing
end

function make_onsite_measurements!(container::NamedTuple,model::SSHModel,Gr::EstimateGreensFunction)

    # measurements container
    onsite_meas = container.onsite_meas

    # phonon fields
    x = model.x

    # getting number of orbitals
    norbits = model.lattice.unit_cell.norbits::Int

    # number of physical sites in lattice
    nsites = model.Nsites::Int

    # length of imaginary time axis
    Lτ = model.Lτ::Int

    # for measuring phonon kinetic energy
    Δτ  = model.Δτ
    Δτ² = Δτ * Δτ

    # normalization
    normalization = div(nsites,norbits)*Lτ

    # iterating over orbital types
    for orbit in 1:norbits
        # iterating over orbits of the current type
        for site in orbit:norbits:nsites
            # iterating over time slices
            for τ in 1:Lτ
                # getting current index
                index = get_index(τ,site,Lτ)
                # estimate ⟨cᵢ(τ)c⁺ᵢ(τ)⟩
                G1 = estimate(Gr,site,site,τ,τ,1)
                G2 = estimate(Gr,site,site,τ,τ,2)
                # measure density
                onsite_meas.density[orbit] += ((1.0-G1)+(1.0-G2)) / normalization
                # measure double occupancy
                onsite_meas.double_occ[orbit] += (1.0-G1)*(1.0-G2) / normalization
                # measure chemical potential
                onsite_meas.mu[orbit] += model.μ[site] / normalization
            end
        end
    end

    return nothing
end

"""
Make inter-site measurements.
"""
function make_intersite_measurements!(container::NamedTuple,model::HolsteinModel{T1,T2,T3},Gr::EstimateGreensFunction) where{T1,T2,T3}

    # number of types of bonds in lattice
    nbonds = length(model.bond_definitions)

    # number of unit cells in lattice
    ncells = model.lattice.ncells::Int

    # length of imaginarty time axis
    Lτ = model.Lτ

    # normalization constant
    V = ncells*Lτ

    # iterate of types of bonds
    for bond_def in 1:nbonds
        # iterate over unit cells
        for cell in 1:ncells
            # get bond
            bond = (bond_def-1)*ncells + cell
            # get pair of neighboring sites assoicated with bond
            index = model.checkerboard_perm[bond]
            s₁    = model.neighbor_table[1,index]
            s₂    = model.neighbor_table[2,index]
            # get hopping amplitude
            t = model.t[bond]
            # iterate over imaginary time slices
            for τ in 1:Lτ
                # get hopping amplitude h = ∑ₛ⟨c⁺ₛᵢcₛⱼ+h.c.⟩
                G1 = estimate(Gr,s₁,s₂,τ,τ,1)
                G2 = estimate(Gr,s₂,s₁,τ,τ,1)
                G3 = estimate(Gr,s₁,s₂,τ,τ,2)
                G4 = estimate(Gr,s₂,s₁,τ,τ,2)
                h  = -G1-G2-G3-G4
                # calculate electron kinetic energy
                container.intersite_meas.el_ke[bond_def] += -t*h/V
            end
        end
    end

    return nothing
end

function make_intersite_measurements!(container::NamedTuple,ssh::SSHModel{T1,T2,T3},Gr::EstimateGreensFunction{T1}) where {T1,T2,T3}

    # container for measurements
    intersite_meas = container.intersite_meas

    # length of imaginary time axis
    Lτ = ssh.Lτ

    # number of bonds in lattices
    Nbonds = ssh.Nbonds

    # number of types of bonds lattice
    nbonds = ssh.nbonds

    # phonon fields
    x = reshaped(ssh.x,(Lτ,ssh.Nph))

    # imaginary time step
    Δτ  = ssh.Δτ
    Δτ² = Δτ^2

    # normalization
    V = div(Nbonds,nbonds)*Lτ

    # keeps track of phonon species
    phonon_species = 0

    # iterate over bonds in lattice
    for bond in 1:ssh.Nbonds
        # get bond definitions
        bond_def = ssh.bond_to_definition[bond]
        # get phonon
        phonon = ssh.bond_to_phonon[bond]
        # get hopping energy
        t = ssh.t[bond]
        # get pair of sites associated with bond
        index = ssh.checkerboard_perm[bond]
        s₁    = ssh.neighbor_table[1,index]
        s₂    = ssh.neighbor_table[2,index]
        # get phonon parameters
        if phonon!=0
            ω = ssh.ω[phonon]
            α = ssh.α[phonon]
        else
            ω = 0.0
            α = 0.0
        end
        # iterate over time slices
        for τ in 1:Lτ
            # get hopping amplitude h = ∑ₛ⟨c⁺ₛᵢcₛⱼ+h.c.⟩
            G1 = estimate(Gr,s₁,s₂,τ,τ,1)
            G2 = estimate(Gr,s₂,s₁,τ,τ,1)
            G3 = estimate(Gr,s₁,s₂,τ,τ,2)
            G4 = estimate(Gr,s₂,s₁,τ,τ,2)
            h   = -G1-G2-G3-G4
            # get phonon field info
            if phonon!=0
                # get xᵢ[τ] phonon field
                xτ   = x[τ,phonon]
                # get xᵢ[τ+1] phonon field
                xτp1 = x[mod1(τ+1,Lτ),phonon]
                # Δx = xᵢ[τ+1]-xᵢ[τ]
                Δx   = xτp1-xτ
                # phonon potential energy
                intersite_meas.phonon_pe[bond_def]   += (ω^2*xτ^2/2)/V
                # phonon kinetic energy
                intersite_meas.phonon_ke[bond_def]   += (0.5/Δτ-(Δx^2)/Δτ²/2)/V
                # electron-phonon energy
                intersite_meas.elph_energy[bond_def] += (α*h*xτ)/V
                # ⟨x⟩
                intersite_meas.x[bond_def]           += xτ/V
                # ⟨x²⟩
                intersite_meas.x2[bond_def]          += (xτ^2)/V
                # ⟨x⁴⟩
                intersite_meas.x4[bond_def]          += (xτ^4)/V
            else
                intersite_meas.phonon_pe[bond_def]   += 0.0
                # phonon kinetic energy
                intersite_meas.phonon_ke[bond_def]   += 0.0
                # electron-phonon energy
                intersite_meas.elph_energy[bond_def] += 0.0
                # ⟨x⟩
                intersite_meas.x[bond_def]           += 0.0
                # ⟨x²⟩
                intersite_meas.x2[bond_def]          += 0.0
                # ⟨x⁴⟩
                intersite_meas.x4[bond_def]          += 0.0
            end
            # calculate modulated hopping amplitude
            t′ = ssh.t′[τ,bond]
            # calculate electron kinetic energy
            intersite_meas.el_ke[bond_def]       += -t′*h/V
        end
    end

    return nothing
end

"""
Fourier transform position space correlation functions to momentum space.
"""
function fourier_transform_correlations!(container::NamedTuple)

    for measurement in keys(container)
        position = container[measurement].position
        momentum = container[measurement].momentum
        copyto!(momentum,position)
        fft!(momentum,(2,3,4))
    end

    return nothing
end

"""
Write global measurements to file.
"""
function write_global_measurements!(container::Dict,datafolder::String,model::AbstractModel{T1,T2,T3},bin::Int) where {T1,T2,T3}

    folder   = joinpath(datafolder,"global_measurements_f")
    filename = joinpath(folder,@sprintf("global_measurements_%.5d.out",bin))

    open(filename,"w") do file
        for k in keys(container)
            @printf file "%s %.8f\n" k real(container[k])
        end
    end

    return nothing
end

"""
Write on-site measurements to file.
"""
function write_onsite_measurements!(container::NamedTuple,datafolder::String,model::AbstractModel{T1,T2,T3},bin::Int) where {T1,T2,T3}

    # number of orbitals per unit cell
    nₒ = model.lattice.unit_cell.norbits::Int

    # filename
    folder   = joinpath(datafolder,"onsite_measurements_f")
    filename = joinpath(folder,@sprintf("onsite_measurements_%.5d.out",bin))

    open(filename,"w") do file
        write(file,"measurement orbit value\n")
        for k in keys(container)
            for o in 1:nₒ
                @printf file "%s %d %.8f\n" k o real(container[k][o])
            end
        end
    end

    return nothing
end

"""
Write inter-site measurements to file.
"""
function write_intersite_measurements!(container::NamedTuple,datafolder::String,model::AbstractModel{T1,T2,T3},bin::Int) where {T1,T2,T3}

    # number of orbitals per unit cell
    nbonds = model.nbonds::Int

    # filename
    folder   = joinpath(datafolder,"intersite_measurements_f")
    filename = joinpath(folder,@sprintf("intersite_measurements_%.5d.out",bin))

    open(filename,"w") do file
        write(file,"measurement bond value\n")
        for k in keys(container)
            for b in 1:nbonds
                @printf file "%s %d %.8f\n" k b real(container[k][b])
            end
        end
    end

    return nothing
end

"""
Write all different correlation functions or susceptibilities to file.
"""
function write_correlations!(container::NamedTuple,datafolder::String,model::AbstractModel{T1,T2,T3},bin::Int) where {T1,T2,T3}

    # iterate over on-site correlation functions
    for corr in keys(container)

        # write position space correlations to file
        write_correlation!(container[corr].position,corr,:position,datafolder,bin)

        # write momentum space correlation to file
        write_correlation!(container[corr].momentum,corr,:momentum,datafolder,bin)
    end

    return nothing
end

"""
Write a correlation function or susceptibility to file.
"""
function write_correlation!(correlations::Array{Complex{T}},corr::Symbol,space::Symbol,datafolder::String,bin::Int) where {T<:AbstractFloat}

    # construct filename
    measurement = "$(corr)_$(space)"
    folder      = joinpath(datafolder,"$(measurement)_f")
    filename    = joinpath(folder,@sprintf("%s_%.5d.out",measurement,bin))

    # write data to file
    open(filename,"w") do file
        @printf file "index %s\n" measurement
        for i in eachindex(correlations)
            @printf file "%d %.8f\n" i real(correlations[i])
        end
    end

    return nothing
end

######################################
## IMPLEMENTING GLOBAL MEASUREMENTS ##
######################################

"""
Measure density ⟨n̂⟩.
"""
function measure_density(model::AbstractModel,estimator::EstimateGreensFunction)

    @unpack r₁, M⁻¹r₁, r₂, M⁻¹r₂, N, L = estimator

    N₁ = 2*(N - dot(M⁻¹r₁,r₁)/L)
    N₂ = 2*(N - dot(M⁻¹r₂,r₂)/L)
    n  = (N₁+N₂)/(2*N)

    return n
end

"""
Measure ⟨N̂²⟩.
"""
function measure_N²(model::AbstractModel,estimator::EstimateGreensFunction)

    @unpack r₁, M⁻¹r₁, r₂, M⁻¹r₂, GΔ0, GΔ0_G0Δ, L, N, NL, nₛ = estimator
    @unpack β = model

    N²      = 0.0
    TrG̃₁    = dot(M⁻¹r₁,r₁)/L # ∑ᵢ⟨cᵢc⁺ᵢ⟩
    TrG̃₂    = dot(M⁻¹r₂,r₂)/L # ∑ᵢ⟨cᵢc⁺ᵢ⟩
    N₁      = 2*(N - TrG̃₁)    # ⟨N̂⟩
    N₂      = 2*(N - TrG̃₂)    # ⟨N̂⟩
    N̄²      = N₁ * N₂         # ⟨N̂⟩² = ⟨N̂⟩⋅⟨N̂⟩
    Gr0_G0r = @view GΔ0_G0Δ[1,:,:,:,:,:]
    N²     += N̄² + TrG̃₁ + TrG̃₂ - 2*(N/nₛ)*sum(Gr0_G0r)

    return N²
end

"""
Measure the compressibility κ.
β   = inverse temperature
N   = system size/sites in lattice
N²  = ⟨N̂²⟩
ΔN² = error in measurement of ⟨N̂²⟩
n   = density ⟨n̂⟩
Δn  = error in measurement of density ⟨n̂⟩
"""
function measure_κ(β,N,N²,ΔN²,n,Δn)

    # calculate ⟨N̂⟩
    N̄ = N * n

    # calculate error in measurement of ⟨N̂⟩
    ΔN̄ = N*Δn

    # calculate ⟨N̂⟩²
    N̄² = N̄^2

    # calculate error in measurement of ⟨N̂⟩²
    ΔN̄² = N̄²*(2*ΔN̄/N̄)

    # calculate κ = β⋅(⟨N̂²⟩-⟨N̂⟩²)
    κ = β*(N²-N̄²)

    # calculate error in measurement of κ
    Δκ = β*sqrt(ΔN²^2 + ΔN̄²^2)

    return κ/N, Δκ/N^2
end

########################################
## IMPLEMENTING SNAPSHOT MEASUREMENTS ##
########################################

"""
Take density snapshot measurement.
"""
function take_density_snapshot!(model::AbstractModel{T1,T2,T3},estimator::EstimateGreensFunction{T1},nmeas::Int,
                                datafolder::String) where {T1,T2,T3}

    @unpack Nsites, Lτ = model

    nᵥ   = estimator.nᵥ
    R    = reshaped( estimator.R    , (Lτ,Nsites,nᵥ) )
    M⁻¹R = reshaped( estimator.M⁻¹R , (Lτ,Nsites,nᵥ) )
    V    = nᵥ * Lτ

    filename = joinpath( datafolder , "density_snapshots_f" , @sprintf("density_snapshot_%.6d.out",nmeas))

    open(filename,"w") do file
        write(file,"density\n")
        # iterate over sites in lattice
        for i in 1:Nsites
            # initialize density measurement
            val = 0.0
            # iterate over time slices
            for τ in 1:Lτ
                # iterate over first random vector
                for n in 1:nᵥ
                    # measure density
                    M⁻¹R₁ = M⁻¹R[τ,i,n]
                    R₁    = R[τ,i,n]
                    val += 2 * (1-M⁻¹R₁*R₁)
                end
            end
            # normalize measurement
            val = val / V
            # write measurement to file
            @printf file "%.8f\n" val
        end
    end

    return nothing
end

"""
Take double occupancy snapshot measurement.
"""
function take_double_occupancy_snapshot!(model::AbstractModel{T1,T2,T3},estimator::EstimateGreensFunction{T1},
                                         nmeas::Int,datafolder::String) where {T1,T2,T3}

    @unpack Nsites, Lτ = model

    nᵥ   = estimator.nᵥ
    R    = reshaped( estimator.R    , (Lτ,Nsites,nᵥ) )
    M⁻¹R = reshaped( estimator.M⁻¹R , (Lτ,Nsites,nᵥ) )
    V    = binomial(nᵥ,2) * Lτ

    filename = joinpath( datafolder , "double_occupancy_snapshots_f" , @sprintf("double_occupancy_snapshot_%.6d.out",nmeas))

    open(filename,"w") do file
        write(file,"double_occupancy\n")
        # iterate over sites in lattice
        for i in 1:Nsites
            # initialize density measurement
            val = 0.0
            # iterate over time slices
            for τ in 1:Lτ
                # iterate over first random vector
                for n in 1:nᵥ-1
                    for m in 2:nᵥ
                        # measure density
                        M⁻¹R₁ = M⁻¹R[τ,i,n]
                        R₁    = R[τ,i,n]
                        M⁻¹R₂ = M⁻¹R[τ,i,m]
                        R₂    = R[τ,i,m]
                        val += (1-M⁻¹R₁*R₁) * (1-M⁻¹R₂*R₂)
                    end
                end
            end
            # normalize measurement
            val = val / V
            # write measurement to file
            @printf file "%.8f\n" val
        end
    end

    return nothing
end

"""
Take double occupancy snapshot measurement.
"""
function take_phonon_position_snapshot!(model::AbstractModel{T1,T2,T3},estimator::EstimateGreensFunction{T1},
                                        nmeas::Int,datafolder::String) where {T1,T2,T3}

    @unpack Nph, Lτ = model

    # get phonon fields
    x = reshaped(model.x,(Lτ,Nph))

    filename = joinpath( datafolder , "phonon_position_snapshots_f" , @sprintf("phonon_position_snapshot_%.6d.out",nmeas))

    open(filename,"w") do file
        write(file,"phonon_position\n")
        # iterate over phonons in lattice
        for i in 1:Nph
            xᵢ = @view x[:,i]
            @printf file "%.8f\n" mean(xᵢ)
        end
    end

    return nothing
end

############################################################
## IMPLEMENTING ON-SITE CORRELATION FUNCTION MEASUREMENTS ##
############################################################

"""
Measure time-ordered single-particle electron Green's function ⟨cᵢ₊ᵣ(τ)⋅c⁺ᵢ(0)⟩ for 0≤τ<β
"""
function measure_Greens(model::AbstractModel,estimator::EstimateGreensFunction,
                        l₁::Int,l₂::Int,l₃::Int,o₁::Int,o₂::Int,τ::Int)

    L   = model.Lτ
    Gᵣτ = measure_GΔ0(estimator,l₁,l₂,l₃,o₁,o₂,τ%L)

    # Gᵣ(β) = δᵣ - Gᵣ(0)
    if τ==L
        Gᵣτ = δ(l₁)*δ(l₂)*δ(l₃)*δ(o₁,o₂) - Gᵣτ
    end

    return Gᵣτ
end

"""
Measure the density-density correlation function ⟨nᵢ₊ᵣ(τ)⋅nᵢ(0)⟩ for 0≤τ<β
"""
function measure_DenDen(model::AbstractModel,estimator::EstimateGreensFunction,
                        l₁::Int,l₂::Int,l₃::Int,o₁::Int,o₂::Int,τ::Int)

    L           = model.Lτ
    Gᵣ₀τ0       = measure_GΔ0(estimator,l₁,l₂,l₃,o₁,o₂,τ%L)
    G₀₀00       = measure_GΔ0(estimator,0,0,0,o₁,o₁,0)
    Gᵣᵣττ       = measure_GΔ0(estimator,0,0,0,o₂,o₂,0)
    Gᵣᵣττ_G₀₀00 = measure_GΔΔ_G00(estimator,l₁,l₂,l₃,o₁,o₂,τ%L)
    Gᵣ₀τ0_G₀ᵣ0τ = measure_GΔ0_G0Δ(estimator,l₁,l₂,l₃,o₁,o₂,τ%L)
    δᵣ          = δ(l₁)*δ(l₂)*δ(l₃)*δ(o₁,o₂)
    nᵣτ_n₀0     = 4.0 * ( 1.0 - Gᵣᵣττ - G₀₀00 + Gᵣᵣττ_G₀₀00 + 0.5 * ( δᵣ*δ(τ%L)*Gᵣ₀τ0 - Gᵣ₀τ0_G₀ᵣ0τ ) )

    return nᵣτ_n₀0
end

"""
Measure spin-spin correlation function ⟨sₓ(i+r,τ)⋅sₓ(i,0)⟩ for 0≤τ<β
"""
function measure_SpinSpin(model::AbstractModel,estimator::EstimateGreensFunction,
                          l₁::Int,l₂::Int,l₃::Int,o₁::Int,o₂::Int,τ::Int)

    L  = model.Lτ::Int
    L₁ = model.lattice.L1::Int
    L₂ = model.lattice.L2::Int
    L₃ = model.lattice.L3::Int

    # account for fact that ⟨sₓ(i+r,β)⋅sₓ(i,0)⟩ = ⟨sₓ(i-r,0)⋅sₓ(i,0)⟩
    if τ==L
        τ   = 0
        tmp = o₁
        o₁  = o₂
        o₂  = tmp
        l₁  = mod(-l₁,L₁)
        l₂  = mod(-l₂,L₂)
        l₃  = mod(-l₃,L₃)
    end

    Gᵣ₀τ0_G₀ᵣ0τ = measure_GΔ0_G0Δ(estimator,l₁,l₂,l₃,o₁,o₂,τ)
    Gᵣ₀τ0       = measure_GΔ0(estimator,l₁,l₂,l₃,o₁,o₂,τ)
    δᵣ          = δ(l₁)*δ(l₂)*δ(l₃)*δ(o₁,o₂)
    sₓsₓ        = -2*Gᵣ₀τ0_G₀ᵣ0τ + 2*δᵣ*δ(τ)*Gᵣ₀τ0

    return sₓsₓ
end

"""
Measure pair Green's function ⟨Δᵢ₊ᵣ(τ)⋅Δ⁺ᵢ(0)⟩ where Δᵢ(τ) = cᵢ₊(τ)cᵢ₋(τ) for 0≤τ<β
"""
function measure_PairGreens(model::AbstractModel,estimator::EstimateGreensFunction,
                            l₁::Int,l₂::Int,l₃::Int,o₁::Int,o₂::Int,τ::Int)

    L = model.Lτ

    if τ==L
        # Pᵣ(β) = Pᵣ(0) + δᵣ(1-G↑₀(0)-G↓₀(0))
        Pᵣτ = measure_GΔ0_GΔ0(estimator,l₁,l₂,l₃,o₁,o₂,0)
        if l₁==0 && l₂==0 && l₃==0 && o₁==o₂
            G₀  = measure_GΔ0(estimator,0,0,0,o₁,o₁,0)
            Pᵣτ = Pᵣτ + 1.0 - 2*G₀
        end
    else
        # Pᵣ(τ) = ⟨Δᵢ₊ᵣ(τ)⋅Δ⁺ᵢ(0)⟩ = ⟨c↑ᵢ₊ᵣ(τ)⋅c⁺↑ᵢ(0)⟩⋅⟨c↓ᵢ₊ᵣ(τ)⋅c⁺↓ᵢ(0)⟩
        Pᵣτ = measure_GΔ0_GΔ0(estimator,l₁,l₂,l₃,o₁,o₂,τ)
    end

    return Pᵣτ
end

# defining functions measure_Greens!, measure_DenDen!, measure_DenDen!, measure_PairGreens!
for measurement in [ :Greens , :DenDen , :SpinSpin , :PairGreens ]

    # constructing symbol for function name
    op = Symbol(:measure_,measurement,:!)

    # function to make measurement
    measure = Symbol(:measure_,measurement)

    @eval begin

        function $op(container::Array{Complex{T1},5}, pairs::Matrix{Int}, model::AbstractModel{T1,T2,T3},
                     Gr::EstimateGreensFunction{T1}) where {T1,T2,T3}

            # getting size of system
            L  = size(container,1)-1
            L₁ = size(container,2)
            L₂ = size(container,3)
            L₃ = size(container,4)
            nₚ = size(pairs,2)

            # iterate over all relevant space-time displacement vectors
            for p in 1:nₚ
                o₁ = pairs[1,p]
                o₂ = pairs[2,p]
                for l₃ in 0:L₃-1
                    for l₂ in 0:L₂-1
                        for l₁ in 0:L₁-1
                            for τ in 0:L
                                container[ τ+1, l₁+1, l₂+1, l₃+1, p] += $measure(model,Gr,l₁,l₂,l₃,o₁,o₂,τ)
                            end
                        end
                    end
                end
            end
            return nothing
        end

    end
end

"""
Measure Phonon Green's function for Holstein model.
"""
function measure_PhononGreens!(container::Array{Complex{T1},5}, pairs::Matrix{Int}, model::HolsteinModel{T1,T2,T3},
                               Gr::EstimateGreensFunction{T1}) where {T1,T2,T3}

    @unpack a, b, ab′ = Gr

    # size of lattice
    Lₜ = model.Lτ::Int
    L₁ = model.lattice.L1::Int
    L₂ = model.lattice.L2::Int
    L₃ = model.lattice.L3::Int
    nₒ = model.lattice.unit_cell.norbits::Int
    nᵤ = model.lattice.ncells::Int

    # length of axis corresponding to imaginary time.
    L₀ = size(container,1)

    # get phonon fields
    x₀ = model.x

    # phonon fields
    x = reshaped(x₀,(Lₜ,nₒ,L₁,L₂,L₃))

    # number of pairs
    nₚ = size(pairs,2)

    # containers for performing calculation
    x₁x₂ = reshaped(view(ab′,1:Lₜ*nᵤ), (Lₜ,L₁,L₂,L₃))
    x₁   = reshaped(view(a,  1:Lₜ*nᵤ), (Lₜ,L₁,L₂,L₃))
    x₂   = reshaped(view(b,  1:Lₜ*nᵤ), (Lₜ,L₁,L₂,L₃))

    # iterate over pairs
    for p in 1:nₚ
        # get pair of orbitals
        o₁ = pairs[1,p]
        o₂ = pairs[2,p]
        # phonon fields for orbital o₁
        @views @. x₁ = x[:,o₁,:,:,:]
        # phonon fields for orbital o₂
        @views @. x₂ = x[:,o₂,:,:,:]
        # translationally average
        translational_average!(x₁x₂,x₁,x₂)
        # save the results
        if L₀==1 # equal time measurment
            @views @. container[1,:,:,:,p] += x₁x₂[1,:,:,:]
        else # unequal time measurement
            @views @. container[1:Lₜ,:,:,:,p] += x₁x₂
            # dealing with τ=β time slice
            @views @. container[Lₜ+1,:,:,:,p] += x₁x₂[1,:,:,:]
        end
    end

    return nothing
end

###############################################################
## IMPLEMENTING INTER-SITE CORRELATION FUNCTION MEASUREMENTS ##
###############################################################

"""
Measure Bond-Bond correlation function between all possible pairings of types of bonds.
The bond/hopping operator is K[a,b,r′](τ,r)=[a⁺(↑,i+r+r′,τ)⋅b(↑,i+r,τ)+a⁺(↓,i+r+r′,τ)⋅b(↓,i+r,τ)].
Therefore, the bond-bond correlation is given by
B[a,b,r′;c,d,r″](τ,r) = ⟨K[a,b,r′](τ,r)⋅K[c,d,r″](0,0)⟩
B[a,b,r′;c,d,r″](τ,r) = ⟨[a⁺(↑,i+r+r′,τ)⋅b(↑,i+r,τ)+a⁺(↓,i+r+r′,τ)⋅b(↓,i+r,τ)]⋅[c⁺(↑,i+r″,0)⋅d(↑,i,0)+c⁺(↓,i+r″,0)⋅d(↓,i,0)]⟩
"""
function measure_BondBond!(container::Array{Complex{T1},5},pairs::Matrix{Int},model::AbstractModel{T1,T2,T3},estimator::EstimateGreensFunction{T1}) where {T1,T2,T3}

    # size of lattice
    Lₜ = model.Lτ::Int
    L₁ = model.lattice.L1::Int
    L₂ = model.lattice.L2::Int
    L₃ = model.lattice.L3::Int
    nₒ = model.lattice.unit_cell.norbits::Int
    nᵤ = model.lattice.ncells::Int

    @unpack r₁, M⁻¹r₁, r₂, M⁻¹r₂, ab″, ab′, a, b, = estimator

    r₁    = reshaped(r₁,    (Lₜ,nₒ,L₁,L₂,L₃))
    M⁻¹r₁ = reshaped(M⁻¹r₁, (Lₜ,nₒ,L₁,L₂,L₃))
    r₂    = reshaped(r₂,    (Lₜ,nₒ,L₁,L₂,L₃))
    M⁻¹r₂ = reshaped(M⁻¹r₂, (Lₜ,nₒ,L₁,L₂,L₃))

    # containers for performing calculation
    bondbond = reshaped(view(ab″,1:Lₜ*nᵤ), (Lₜ,L₁,L₂,L₃))
    G₁G₂     = reshaped(view(ab′,1:Lₜ*nᵤ), (Lₜ,L₁,L₂,L₃))
    G₁       = reshaped(view(a,  1:Lₜ*nᵤ), (Lₜ,L₁,L₂,L₃))
    G₂       = reshaped(view(b,  1:Lₜ*nᵤ), (Lₜ,L₁,L₂,L₃))
    R₁′      = G₁
    R₁″      = G₁
    R₂′      = G₂
    R₂″      = G₂

    # displacement vectors describing each type of bond
    bonds = model.bond_definitions

    # length of axis corresponding to imaginary time axis
    L₀ = size(container,1)

    # number of bonds
    nᵥ = length(bonds)

    # number of bond pairs to make measurement for
    nₚ = size(pairs,2)

    # iterate over bond pairs
    for p in 1:nₚ

        # get pair of relevant bonds
        n′ = pairs[2,p]
        n″ = pairs[1,p]

        # vector associated with bond going from orbitals d ⟶ c displaced r″ unit cells
        r″ = bonds[n″].v::Vector{Int} # displacement in unit cells
        d  = bonds[n″].o₁::Int # starting orbital
        c  = bonds[n″].o₂::Int # ending   orbital

        # initialize bond-bond correlation to zero
        fill!(bondbond,0.0)

        # vector associated with bond going from orbitals b ⟶ a displaced r′ unit cells
        r′ = bonds[n′].v::Vector{Int} # displacement in unit cells
        b  = bonds[n′].o₁::Int # starting orbital
        a  = bonds[n′].o₂::Int # ending   orbital

        # CALCULATE G₁⋅G₂ = ⟨T⋅b(i+r,τ)⋅a⁺(i+r+r′,τ)⟩⋅⟨T⋅d(i,0)⋅c⁺(i+r″,0)⟩
        M⁻¹R₁ = @view M⁻¹r₁[:,b,:,:,:]
        R₁    = @view    r₁[:,a,:,:,:]
        M⁻¹R₂ = @view M⁻¹r₂[:,d,:,:,:]
        R₂    = @view    r₂[:,c,:,:,:]
        circshift!(R₁′,R₁,(0,-r′[1],-r′[2],-r′[3])) # R₁′   = shift(R₁,r′)
        circshift!(R₂″,R₂,(0,-r″[1],-r″[2],-r″[3])) # R₂″   = shift(R₂,r″)
        @. G₁ = M⁻¹R₁ * R₁′                      # G₁    = [M⁻¹R₁⋅R₁′]
        @. G₂ = M⁻¹R₂ * R₂″                      # G₂    = [M⁻¹R₂⋅R₂″]
        translational_average!(G₁G₂,G₁,G₂)       # G₁⋅G₂ = [M⁻¹R₁⋅R₁′]⋆[M⁻¹R₂⋅R₂″]

        # B = B + 4*⟨T⋅b(i+r,τ)⋅a⁺(i+r+r′,τ)⟩⋅⟨T⋅d(i,τ)⋅c⁺(i+r″,τ)⟩
        @. bondbond += 4*G₁G₂

        # CALCULATE G₁⋅G₂ = ⟨T⋅b(i+r,τ)⋅c⁺(i+r″,0)⟩⋅⟨T⋅d(i,0)⋅a⁺(i+r+r′,τ)⟩
        M⁻¹R₁ = @view M⁻¹r₁[:,b,:,:,:]
        R₁    = @view    r₁[:,c,:,:,:]
        M⁻¹R₂ = @view M⁻¹r₂[:,d,:,:,:]
        R₂    = @view    r₂[:,a,:,:,:]
        circshift!(R₂′,R₂,(0,-r′[1],-r′[2],-r′[3])) # R₂′   = shift(R₂,r′)
        circshift!(R₁″,R₁,(0,-r″[1],-r″[2],-r″[3])) # R₁″   = shift(R₁,r″)
        @. G₂ = M⁻¹R₁ * R₂′                      # G₂    = [M⁻¹R₁⋅R₂′]
        @. G₁ = M⁻¹R₂ * R₁″                      # G₁    = [M⁻¹R₂⋅R₁″]
        translational_average!(G₁G₂,G₁,G₂)       # G₂⋅G₁ = [M⁻¹R₁⋅R₂′]⋆[M⁻¹R₂⋅R₁″]

        # B = B - 2*⟨T⋅b(i+r,τ)⋅c⁺(i+r″,0)⟩⋅⟨T⋅d(i,0)⋅a⁺(i+r+r′,τ)⟩
        @. bondbond -= 2*G₁G₂

        # CALCULATE G₁ = δ(τ)⋅δ(r′+r)⋅δ(a,d)⋅⟨b(i+r,τ)⋅c⁺(i+r″,0)⟩
        #           G₁ = δ(τ)⋅δ(r′+r)⋅δ(a,d)⋅⟨b(i+r-r″,τ)⋅c⁺(i,0)⟩
        if a==d
            # δ(r+r′)               ⟶ r    = -r′
            # ⟨b(i+r-r″,τ)⋅c⁺(i,0)⟩ ⟶ r-r″ = -r′-r″
            l₁ = mod(-r′[1]-r″[1],L₁)
            l₂ = mod(-r′[2]-r″[2],L₂)
            l₃ = mod(-r′[3]-r″[3],L₃)
            G  = measure_GΔ0(estimator,l₁,l₂,l₃,c,b,0)

            # B = B + 2⋅δ(τ)⋅δ(r′+r)⋅δ(a,d)⋅⟨b(i+r,τ)⋅c⁺(i+r″,0)⟩
            bondbond[1,l₁+1,l₂+1,l₃+1] += 2*G
        end

        # record measurements
        if L₀==1 # if time independent measurement
            @views @. container[1,:,:,:,p]    += bondbond[1,:,:,:]
        else # if time dependent measurement
            @views @. container[1:Lₜ,:,:,:,p] += bondbond
            # deal with τ=β time slice
            for l₃ in 0:L₃-1
                for l₂ in 0:L₂-1
                    for l₁ in 0:L₁-1
                        nl₁ = mod(-l₁,L₁)
                        nl₂ = mod(-l₂,L₂)
                        nl₃ = mod(-l₃,L₃)
                        # B[a,b,r′;c,d,r″](β,r) = B[c,d,r″;a,b,r′](0,-r)
                        container[Lₜ+1,l₁+1,l₂+1,l₃+1,p] += bondbond[1,nl₁+1,nl₂+1,nl₃+1]
                    end
                end
            end
        end
    end

    return nothing
end

"""
Measure current-current correlation.
"""
function measure_CurrentCurrent!(container::Array{Complex{T1},5},pairs::Matrix{Int},model::HolsteinModel{T1,T2,T3},estimator::EstimateGreensFunction{T1}) where {T1,T2,T3}

    # size of lattice
    Lₜ = model.Lτ::Int
    L₁ = model.lattice.L1::Int
    L₂ = model.lattice.L2::Int
    L₃ = model.lattice.L3::Int
    nₒ = model.lattice.unit_cell.norbits::Int
    nᵤ = model.lattice.ncells::Int # number of unit cells in lattice

    @unpack r₁, M⁻¹r₁, r₂, M⁻¹r₂, ab″, ab′, a, b, = estimator
    t₀ = model.t

    r₁    = reshaped(r₁,    (Lₜ,nₒ,L₁,L₂,L₃))
    M⁻¹r₁ = reshaped(M⁻¹r₁, (Lₜ,nₒ,L₁,L₂,L₃))
    r₂    = reshaped(r₂,    (Lₜ,nₒ,L₁,L₂,L₃))
    M⁻¹r₂ = reshaped(M⁻¹r₂, (Lₜ,nₒ,L₁,L₂,L₃))

    # containers for performing calculation
    crntcrnt = reshaped(view(ab″,1:Lₜ*nᵤ), (Lₜ,L₁,L₂,L₃))
    G₁G₂     = reshaped(view(ab′,1:Lₜ*nᵤ), (Lₜ,L₁,L₂,L₃))
    G₁       = reshaped(view(a,  1:Lₜ*nᵤ), (Lₜ,L₁,L₂,L₃))
    G₂       = reshaped(view(b,  1:Lₜ*nᵤ), (Lₜ,L₁,L₂,L₃))
    R₁′      = G₁
    R₁″      = G₁
    M⁻¹R₁′   = G₁
    M⁻¹R₁″   = G₁
    R₂′      = G₂
    R₂″      = G₂
    M⁻¹R₂′   = G₂
    M⁻¹R₂″   = G₂

    # displacement vectors describing each type of bond
    bonds = model.bond_definitions

    # length of axis corresponding to imaginary time axis
    L₀ = size(container,1)

    # number of vectors
    nᵥ = length(bonds)

    # number of pairs
    nₚ = size(pairs,2)

    # hopping ampltidues
    t = reshaped(t₀,(L₁,L₂,L₃,nᵥ))

    # iterate over first bond
    for p in 1:nₚ

        # initialize bond-bond correlation to zero
        fill!(crntcrnt,0.0)

        # get pair of bonds
        n′ = pairs[2,p]
        n″ = pairs[1,p]

        # vector associated with bond going from orbitals d ⟶ c displaced r″ unit cells
        r″ = bonds[n″].v::Vector{Int} # displacement in unit cells
        d  = bonds[n″].o₁::Int # starting orbital
        c  = bonds[n″].o₂::Int # ending   orbital
        t″ = @view t[:,:,:,n″] # hopping amplitudes associated with bond

        # vector associated with bond going from orbitals b ⟶ a displaced r′ unit cells
        r′ = bonds[n′].v::Vector{Int} # displacement in unit cells
        b  = bonds[n′].o₁::Int # starting orbital
        a  = bonds[n′].o₂::Int # ending   orbital
        t′ = @view t[:,:,:,n′] # hopping amplitudes associated with bond

        # CALCULATE ⟨t′(r+i,τ) t″(i,0)⟩⋅⟨b(r+i,τ) a⁺(r′+r+i,τ)⟩⋅⟨c(r″+i,0) d⁺(i,0)⟩
        M⁻¹R₁ = @view M⁻¹r₁[:,b,:,:,:]
        R₁    = @view    r₁[:,a,:,:,:]
        M⁻¹R₂ = @view M⁻¹r₂[:,c,:,:,:]
        R₂    = @view    r₂[:,d,:,:,:]
        circshift!(R₁′,   R₁   ,(0,-r′[1],-r′[2],-r′[3])) # shift(R₁,r′)
        circshift!(M⁻¹R₂″,M⁻¹R₂,(0,-r″[1],-r″[2],-r″[3])) # shift(M⁻¹R₂,r″)
        @. G₁ = M⁻¹R₁  * R₁′ # G₁ = [M⁻¹R₁ ⋅R₁′]
        @. G₂ = M⁻¹R₂″ * R₂  # G₂ = [M⁻¹R₂″⋅R₂ ]
        @views for τ in Lₜ
            @. G₁[τ,:,:,:] *= t′ # G₁ = [t′⋅M⁻¹R₁ ⋅R₁′]
            @. G₂[τ,:,:,:] *= t″ # G₂ = [t″⋅M⁻¹R₂″⋅R₂ ]
        end
        translational_average!(G₁G₂,G₁,G₂) # G₁⋅G₂ = [t′⋅M⁻¹R₁ ⋅R₁′]⋆[t″⋅M⁻¹R₂″⋅R₂ ]

        # J += 4⋅⟨t′(r+i,τ) t″(i,0)⟩⋅⟨b(r+i,τ) a⁺(r′+r+i,τ)⟩⋅⟨c(r″+i,0) d⁺(i,0)⟩
        @. crntcrnt += 4*G₁G₂

        # CALCULATE ⟨t′(r+i,τ) t″(i,0)⟩⋅⟨b(r+i,τ) a⁺(r′+r+i,τ)⟩⋅⟨d(i,0) c⁺(r″+i,0)⟩
        M⁻¹R₁ = @view M⁻¹r₁[:,b,:,:,:]
        R₁    = @view    r₁[:,a,:,:,:]
        M⁻¹R₂ = @view M⁻¹r₂[:,d,:,:,:]
        R₂    = @view    r₂[:,c,:,:,:]
        circshift!(R₁′,R₁,(0,-r′[1],-r′[2],-r′[3])) # shift(R₁,r′)
        circshift!(R₂″,R₂,(0,-r″[1],-r″[2],-r″[3])) # shift(R₂,r″)
        @. G₁ = M⁻¹R₁ * R₁′ # G₁ = [M⁻¹R₁⋅R₁′]
        @. G₂ = M⁻¹R₂ * R₂″ # G₂ = [M⁻¹R₂⋅R₂″]
        @views for τ in Lₜ
            @. G₁[τ,:,:,:] *= t′ # G₁ = [t′⋅M⁻¹R₁⋅R₁′]
            @. G₂[τ,:,:,:] *= t″ # G₂ = [t″⋅M⁻¹R₂⋅R₂″]
        end
        translational_average!(G₁G₂,G₁,G₂) # G₁⋅G₂ = [t′⋅M⁻¹R₁⋅R₁′]⋆[t″⋅M⁻¹R₂⋅R₂″]

        # J -= 4⋅⟨t′(r+i,τ) t″(i,0)⟩⋅⟨b(r+i,τ) a⁺(r′+r+i,τ)⟩⋅⟨d(i,0) c⁺(r″+i,0)⟩
        @. crntcrnt -= 4*G₁G₂

        # CALCULATE ⟨t′(r+i,τ) t″(i,0)⟩⋅⟨a(r′+r+i,τ) b⁺(r+i,τ)⟩⋅⟨c(r″+i,0) d⁺(i,0)⟩
        M⁻¹R₁ = @view M⁻¹r₁[:,a,:,:,:]
        R₁    = @view    r₁[:,b,:,:,:]
        M⁻¹R₂ = @view M⁻¹r₂[:,c,:,:,:]
        R₂    = @view    r₂[:,d,:,:,:]
        circshift!(M⁻¹R₁′,M⁻¹R₁,(0,-r′[1],-r′[2],-r′[3])) # shift(M⁻¹R₁,r′)
        circshift!(M⁻¹R₂″,M⁻¹R₂,(0,-r″[1],-r″[2],-r″[3])) # shift(M⁻¹R₂,r″)
        @. G₁ = M⁻¹R₁′ * R₁ # G₁ = [M⁻¹R₁′⋅R₁]
        @. G₂ = M⁻¹R₂″ * R₂ # G₂ = [M⁻¹R₂″⋅R₂]
        @views for τ in Lₜ
            @. G₁[τ,:,:,:] *= t′ # G₁ = [t′⋅M⁻¹R₁′⋅R₁]
            @. G₂[τ,:,:,:] *= t″ # G₂ = [t″⋅M⁻¹R₂″⋅R₂]
        end
        translational_average!(G₁G₂,G₁,G₂) # G₁⋅G₂ = [t′⋅M⁻¹R₁′⋅R₁]⋆[t″⋅M⁻¹R₂″⋅R₂]

        # J -= 4⋅⟨t′(r+i,τ) t″(i,0)⟩⋅⟨a(r′+r+i,τ) b⁺(r+i,τ)⟩⋅⟨c(r″+i,0) d⁺(i,0)⟩
        @. crntcrnt -= 4*G₁G₂

        # CALCULATE ⟨t′(r+i,τ) t″(i,0)⟩⋅⟨a(r′+r+i,τ) b⁺(r+i,τ)⟩⋅⟨d(i,0) c⁺(r″+i,0)⟩
        M⁻¹R₁ = @view M⁻¹r₁[:,a,:,:,:]
        R₁    = @view    r₁[:,b,:,:,:]
        M⁻¹R₂ = @view M⁻¹r₂[:,d,:,:,:]
        R₂    = @view    r₂[:,c,:,:,:]
        circshift!(M⁻¹R₁′,M⁻¹R₁,(0,-r′[1],-r′[2],-r′[3])) # shift(M⁻¹R₁,r′)
        circshift!(R₂″,R₂,(0,-r″[1],-r″[2],-r″[3]))       # shift(R₂,r″)
        @. G₁ = M⁻¹R₁′* R₁  # G₁ = [M⁻¹R₁′⋅R₁]
        @. G₂ = M⁻¹R₂ * R₂″ # G₂ = [M⁻¹R₂⋅R₂″]
        @views for τ in Lₜ
            @. G₁[τ,:,:,:] *= t′ # G₁ = [t′⋅M⁻¹R₁′⋅R₁]
            @. G₂[τ,:,:,:] *= t″ # G₂ = [t″⋅M⁻¹R₂⋅R₂″]
        end
        translational_average!(G₁G₂,G₁,G₂) # G₁⋅G₂ = [t′⋅M⁻¹R₁′⋅R₁]⋆[t″⋅M⁻¹R₂⋅R₂″]

        # J += 4⋅⟨t′(r+i,τ) t″(i,0)⟩⋅⟨a(r′+r+i,τ) b⁺(r+i,τ)⟩⋅⟨d(i,0) c⁺(r″+i,0)⟩
        @. crntcrnt -= 4*G₁G₂

        # CALCULATE ⟨t′(r+i,τ) t″(i,0)⟩⋅⟨b(r+i,τ) d⁺(i,0)⟩⋅⟨c(r″+i,0) a⁺(r′+r+i,τ)⟩
        M⁻¹R₁ = @view M⁻¹r₁[:,b,:,:,:]
        R₁    = @view    r₁[:,d,:,:,:]
        M⁻¹R₂ = @view M⁻¹r₂[:,c,:,:,:]
        R₂    = @view    r₂[:,a,:,:,:]
        circshift!(M⁻¹R₂″,M⁻¹R₂,(0,-r″[1],-r″[2],-r″[3]))
        circshift!(   R₁′,   R₂,(0,-r′[1],-r′[2],-r′[3]))
        @. G₁ = M⁻¹R₁  * R₁′
        @. G₂ = M⁻¹R₂″ * R₁
        @views for τ in Lₜ
            @. G₁[τ,:,:,:] *= t′
            @. G₂[τ,:,:,:] *= t″
        end
        translational_average!(G₁G₂,G₁,G₂)

        # J -= 2⋅⟨t′(r+i,τ) t″(i,0)⟩⋅⟨b(r+i,τ) d⁺(i,0)⟩⋅⟨c(r″+i,0) a⁺(r′+r+i,τ)⟩
        @. crntcrnt -= 2*G₁G₂

        # CALCULATE ⟨t′(r+i,τ) t″(i,0)⟩⋅⟨b(r+i,τ) c⁺(r″+i,0)⟩⋅⟨d(i,0) a⁺(r′+r+i,τ)⟩
        M⁻¹R₁ = @view M⁻¹r₁[:,b,:,:,:]
        R₁    = @view    r₁[:,c,:,:,:]
        M⁻¹R₂ = @view M⁻¹r₂[:,d,:,:,:]
        R₂    = @view    r₂[:,a,:,:,:]
        circshift!(R₁″,R₁,(0,-r″[1],-r″[2],-r″[3]))
        circshift!(R₂′,R₂,(0,-r′[1],-r′[2],-r′[3]))
        @. G₁ = R₁″   * M⁻¹R₂
        @. G₂ = M⁻¹R₁ * R₂′
        @views for τ in Lₜ
            @. G₁[τ,:,:,:] *= t″
            @. G₂[τ,:,:,:] *= t′
        end
        translational_average!(G₁G₂,G₁,G₂)

        # J += 2⋅⟨t′(r+i,τ) t″(i,0)⟩⋅⟨b(r+i,τ) c⁺(r″+i,0)⟩⋅⟨d(i,0) a⁺(r′+r+i,τ)⟩
        @. crntcrnt += 2*G₁G₂

        # CALCULATE ⟨t′(r+i,τ) t″(i,0)⟩⋅⟨a(r′+r+i,τ) d⁺(i,0)⟩⋅⟨c(r″+i,0) b⁺(r+i,τ)⟩
        M⁻¹R₁ = @view M⁻¹r₁[:,a,:,:,:]
        R₁    = @view    r₁[:,d,:,:,:]
        M⁻¹R₂ = @view M⁻¹r₂[:,c,:,:,:]
        R₂    = @view    r₂[:,b,:,:,:]
        circshift!(M⁻¹R₁′,M⁻¹R₁,(0,-r′[1],-r′[2],-r′[3]))
        circshift!(M⁻¹R₂″,M⁻¹R₂,(0,-r″[1],-r″[2],-r″[3]))
        @. G₁ = M⁻¹R₁′ * R₂
        @. G₂ = R₁     * M⁻¹R₂″
        @views for τ in Lₜ
            @. G₁[τ,:,:,:] *= t′
            @. G₂[τ,:,:,:] *= t″
        end
        translational_average!(G₁G₂,G₁,G₂)

        # J += 2⋅⟨t′(r+i,τ) t″(i,0)⟩⋅⟨a(r′+r+i,τ) d⁺(i,0)⟩⋅⟨c(r″+i,0) b⁺(r+i,τ)⟩
        @. crntcrnt += 2*G₁G₂

        # CALCULATE ⟨t′(r+i,τ) t″(i,0)⟩⋅⟨a(r′+r+i,τ) c⁺(r″+i,0)⟩⋅⟨d(i,0) b⁺(r+i,τ)⟩
        M⁻¹R₁ = @view M⁻¹r₁[:,a,:,:,:]
        R₁    = @view    r₁[:,c,:,:,:]
        M⁻¹R₂ = @view M⁻¹r₂[:,d,:,:,:]
        R₂    = @view    r₂[:,b,:,:,:]
        circshift!(M⁻¹R₁′,M⁻¹R₁,(0,-r′[1],-r′[2],-r′[3]))
        circshift!(R₂″,   R₁,   (0,-r″[1],-r″[2],-r″[3]))
        @. G₁ = M⁻¹R₁′ * R₂
        @. G₂ = R₂″    * M⁻¹R₂
        @views for τ in Lₜ
            @. G₁[τ,:,:,:] *= t′
            @. G₂[τ,:,:,:] *= t″
        end
        translational_average!(G₁G₂,G₁,G₂)

        # J -= 2⋅⟨t′(r+i,τ) t″(i,0)⟩⋅⟨a(r′+r+i,τ) c⁺(r″+i,0)⟩⋅⟨d(i,0) b⁺(r+i,τ)⟩
        @. crntcrnt -= 2*G₁G₂

        # CALCULATE 2⋅δ(τ)⋅δ(a,c)⋅δ(r″,r′+r)⋅⟨t′(r+i,τ) t″(i,0)⟩⋅⟨b(r+i,0) d⁺(i,0)⟩
        if a==c
            # r = r″-r′
            l₁ = mod(r″[1]-r′[1],L₁)
            l₂ = mod(r″[2]-r′[2],L₂)
            l₃ = mod(r″[3]-r′[3],L₃)
            # ⟨t′(r+i,τ) t″(i,0)⟩⋅⟨b(r+i,0) d⁺(i,0)⟩
            M⁻¹R₁ = @view M⁻¹r₁[:,b,:,:,:]
            R₁    = @view    r₁[:,d,:,:,:]
            copyto!(G₁,M⁻¹R₁)
            copyto!(G₂,R₁)
            @views for τ in Lₜ
                @. G₁[τ,:,:,:] *= t′
                @. G₂[τ,:,:,:] *= t″
            end
            circshift!(G₁G₂,G₁,(0,l₁,l₂,l₃))
            @. G₁G₂ *= G₂
            crntcrnt[1,l₁+1,l₂+1,l₃+1] += 2 * sum(G₁G₂) / length(G₁G₂)
        end

        # CALCULATE -2⋅δ(τ)⋅δ(a,d)⋅δ(r′+r)⋅⟨t′(r+i,τ) t″(i,0)⟩⋅⟨b(r+i,0) c⁺(r″+i,0)⟩
        if a==d
            # r = -r′
            l₁ = mod(-r′[1],L₁)
            l₂ = mod(-r′[2],L₂)
            l₃ = mod(-r′[3],L₃)
            # t′(r+i,τ) t″(i,0)⟩⋅⟨b(r+i,0) c⁺(r″+i,0)⟩
            M⁻¹R₁ = @view M⁻¹r₁[:,b,:,:,:]
            R₁    = @view    r₁[:,c,:,:,:]
            copyto!(G₁,M⁻¹R₁)
            circshift!(G₂,R₁,(0,-r″[1],-r″[2],-r″[3]))
            @views for τ in Lₜ
                @. G₁[τ,:,:,:] *= t′
                @. G₂[τ,:,:,:] *= t″
            end
            circshift!(G₁G₂,G₁,(0,l₁,l₂,l₃))
            @. G₁G₂ *= G₂
            crntcrnt[1,l₁+1,l₂+1,l₃+1] -= 2 * sum(G₁G₂) / length(G₁G₂)
        end

        # CALCULATE -2⋅δ(τ)⋅δ(b,c)⋅δ(r-r″)⋅⟨t′(r+i,τ) t″(i,0)⟩⋅⟨a(r′+r+i,0) d⁺(i,0)⟩
        if b==c
            # r = r″
            l₁ = r″[1]
            l₂ = r″[2]
            l₃ = r″[3]
            # ⟨t′(r+i,τ) t″(i,0)⟩⋅⟨a(r′+r+i,0) d⁺(i,0)⟩
            M⁻¹R₁ = @view M⁻¹r₁[:,b,:,:,:]
            R₁    = @view    r₁[:,d,:,:,:]
            circshift!(G₁,M⁻¹R₁,(0,-r′[1],-r′[2],-r′[3]))
            copyto!(G₂,R₁)
            @views for τ in Lₜ
                @. G₁[τ,:,:,:] *= t′
                @. G₂[τ,:,:,:] *= t″
            end
            circshift!(G₁G₂,G₁,(0,l₁,l₂,l₃))
            @. G₁G₂ *= G₂
            crntcrnt[1,l₁+1,l₂+1,l₃+1] -= 2 * sum(G₁G₂) / length(G₁G₂)
        end

        # CALCULATE 2⋅δ(τ)⋅δ(b,d)⋅δ(r)⋅⟨t′(r+i,τ) t″(i,0)⟩⋅⟨a(r′+r+i,0) c⁺(r″+i)⟩
        if b==d
            M⁻¹R₁ = @view M⁻¹r₁[:,a,:,:,:]
            R₁    = @view    r₁[:,c,:,:,:]
            circshift!(G₁,M⁻¹R₁,(0,-r′[1],-r′[2],-r′[3]))
            circshift!(G₂,   R₁,(0,-r″[1],-r″[2],-r″[3]))
            @views for τ in Lₜ
                @. G₁[τ,:,:,:] *= t′
                @. G₂[τ,:,:,:] *= t″
            end
            @. G₁G₂ = G₁ * G₂
            crntcrnt[1,1,1,1] += 2 * sum(G₁G₂) / length(G₁G₂)
        end

        # record measurements
        if L₀==1 # if time independent measurement
            @views @. container[:,:,:,:,p]    += crntcrnt[1,:,:,:]
        else # if time dependent measurement
            @views @. container[1:Lₜ,:,:,:,p] += crntcrnt
            # deal with τ=β time slice
            for l₃ in 0:L₃-1
                for l₂ in 0:L₂-1
                    for l₁ in 0:L₁-1
                        nl₁ = mod(-l₁,L₁)
                        nl₂ = mod(-l₂,L₂)
                        nl₃ = mod(-l₃,L₃)
                        # J[a,b,r′;c,d,r″](β,r) = J[c,d,r″;a,b,r′](0,-r)
                        container[Lₜ+1,l₁+1,l₂+1,l₃+1,p] += crntcrnt[1,nl₁+1,nl₂+1,nl₃+1]
                    end
                end
            end
        end
    end

    return nothing
end

function measure_CurrentCurrent!(container::Array{Complex{T1},5},pairs::Matrix{Int},model::SSHModel{T1,T2,T3},estimator::EstimateGreensFunction{T1}) where {T1,T2,T3}

    # size of lattice
    Lₜ = model.Lτ::Int
    L₁ = model.lattice.L1::Int
    L₂ = model.lattice.L2::Int
    L₃ = model.lattice.L3::Int
    nₒ = model.lattice.unit_cell.norbits::Int
    nᵤ = model.lattice.ncells::Int # number of unit cells in lattice

    @unpack r₁, M⁻¹r₁, r₂, M⁻¹r₂, ab″, ab′, a, b = estimator
    t₀ = model.t′

    r₁    = reshaped(r₁,    (Lₜ,nₒ,L₁,L₂,L₃))
    M⁻¹r₁ = reshaped(M⁻¹r₁, (Lₜ,nₒ,L₁,L₂,L₃))
    r₂    = reshaped(r₂,    (Lₜ,nₒ,L₁,L₂,L₃))
    M⁻¹r₂ = reshaped(M⁻¹r₂, (Lₜ,nₒ,L₁,L₂,L₃))

    # containers for performing calculation
    crntcrnt = reshaped(view(ab″,1:Lₜ*nᵤ), (Lₜ,L₁,L₂,L₃))
    G₁G₂     = reshaped(view(ab′,1:Lₜ*nᵤ), (Lₜ,L₁,L₂,L₃))
    G₁       = reshaped(view(a,  1:Lₜ*nᵤ), (Lₜ,L₁,L₂,L₃))
    G₂       = reshaped(view(b,  1:Lₜ*nᵤ), (Lₜ,L₁,L₂,L₃))
    R₁′      = G₁
    R₁″      = G₁
    M⁻¹R₁′   = G₁
    M⁻¹R₁″   = G₁
    R₂′      = G₂
    R₂″      = G₂
    M⁻¹R₂′   = G₂
    M⁻¹R₂″   = G₂

    # displacement vectors describing each type of bond
    bonds = model.bond_definitions

    # length of axis corresponding to imaginary time axis
    L₀ = size(container,1)

    # number of vectors
    nᵥ = length(bonds)

    # number of pairs
    nₚ = size(pairs,2)

    # hopping ampltidues
    t = reshaped(t₀,(Lₜ,L₁,L₂,L₃,nᵥ))

    # iterate over first bond
    for p in 1:nₚ

        # initialize bond-bond correlation to zero
        fill!(crntcrnt,0.0)

        # get pair of bonds
        n′ = pairs[2,p]
        n″ = pairs[1,p]

        # vector associated with bond going from orbitals b ⟶ a displaced r′ unit cells
        r′ = bonds[n′].v::Vector{Int} # displacement in unit cells
        b  = bonds[n′].o₁::Int # starting orbital
        a  = bonds[n′].o₂::Int # ending   orbital
        t′ = @view t[:,:,:,:,n′] # hopping amplitudes associated with bond

        # vector associated with bond going from orbitals d ⟶ c displaced r″ unit cells
        r″ = bonds[n″].v::Vector{Int} # displacement in unit cells
        d  = bonds[n″].o₁::Int # starting orbital
        c  = bonds[n″].o₂::Int # ending   orbital
        t″ = @view t[:,:,:,:,n″] # hopping amplitudes associated with bond

        # CALCULATE ⟨t′(r+i,τ) t″(i,0)⟩⋅⟨b(r+i,τ) a⁺(r′+r+i,τ)⟩⋅⟨c(r″+i,0) d⁺(i,0)⟩
        M⁻¹R₁ = @view M⁻¹r₁[:,b,:,:,:]
        R₁    = @view    r₁[:,a,:,:,:]
        M⁻¹R₂ = @view M⁻¹r₂[:,c,:,:,:]
        R₂    = @view    r₂[:,d,:,:,:]
        circshift!(R₁′,   R₁   ,(0,-r′[1],-r′[2],-r′[3])) # shift(R₁,r′)
        circshift!(M⁻¹R₂″,M⁻¹R₂,(0,-r″[1],-r″[2],-r″[3])) # shift(M⁻¹R₂,r″)
        @. G₁ = M⁻¹R₁  * R₁′ # G₁ = [M⁻¹R₁ ⋅R₁′]
        @. G₂ = M⁻¹R₂″ * R₂  # G₂ = [M⁻¹R₂″⋅R₂ ]
        @. G₁ *= t′ # G₁ = [t′⋅M⁻¹R₁ ⋅R₁′]
        @. G₂ *= t″ # G₂ = [t″⋅M⁻¹R₂″⋅R₂ ]
        translational_average!(G₁G₂,G₁,G₂) # G₁⋅G₂ = [t′⋅M⁻¹R₁ ⋅R₁′]⋆[t″⋅M⁻¹R₂″⋅R₂ ]

        # J += 4⋅⟨t′(r+i,τ) t″(i,0)⟩⋅⟨b(r+i,τ) a⁺(r′+r+i,τ)⟩⋅⟨c(r″+i,0) d⁺(i,0)⟩
        @. crntcrnt += 4*G₁G₂

        # CALCULATE ⟨t′(r+i,τ) t″(i,0)⟩⋅⟨b(r+i,τ) a⁺(r′+r+i,τ)⟩⋅⟨d(i,0) c⁺(r″+i,0)⟩
        M⁻¹R₁ = @view M⁻¹r₁[:,b,:,:,:]
        R₁    = @view    r₁[:,a,:,:,:]
        M⁻¹R₂ = @view M⁻¹r₂[:,d,:,:,:]
        R₂    = @view    r₂[:,c,:,:,:]
        circshift!(R₁′,R₁,(0,-r′[1],-r′[2],-r′[3])) # shift(R₁,r′)
        circshift!(R₂″,R₂,(0,-r″[1],-r″[2],-r″[3])) # shift(R₂,r″)
        @. G₁ = M⁻¹R₁ * R₁′ # G₁ = [M⁻¹R₁⋅R₁′]
        @. G₂ = M⁻¹R₂ * R₂″ # G₂ = [M⁻¹R₂⋅R₂″]
        @. G₁ *= t′ # G₁ = [t′⋅M⁻¹R₁⋅R₁′]
        @. G₂ *= t″ # G₂ = [t″⋅M⁻¹R₂⋅R₂″]
        translational_average!(G₁G₂,G₁,G₂) # G₁⋅G₂ = [t′⋅M⁻¹R₁⋅R₁′]⋆[t″⋅M⁻¹R₂⋅R₂″]

        # J -= 4⋅⟨t′(r+i,τ) t″(i,0)⟩⋅⟨b(r+i,τ) a⁺(r′+r+i,τ)⟩⋅⟨d(i,0) c⁺(r″+i,0)⟩
        @. crntcrnt -= 4*G₁G₂

        # CALCULATE ⟨t′(r+i,τ) t″(i,0)⟩⋅⟨a(r′+r+i,τ) b⁺(r+i,τ)⟩⋅⟨c(r″+i,0) d⁺(i,0)⟩
        M⁻¹R₁ = @view M⁻¹r₁[:,a,:,:,:]
        R₁    = @view    r₁[:,b,:,:,:]
        M⁻¹R₂ = @view M⁻¹r₂[:,c,:,:,:]
        R₂    = @view    r₂[:,d,:,:,:]
        circshift!(M⁻¹R₁′,M⁻¹R₁,(0,-r′[1],-r′[2],-r′[3])) # shift(M⁻¹R₁,r′)
        circshift!(M⁻¹R₂″,M⁻¹R₂,(0,-r″[1],-r″[2],-r″[3])) # shift(M⁻¹R₂,r″)
        @. G₁ = M⁻¹R₁′ * R₁ # G₁ = [M⁻¹R₁′⋅R₁]
        @. G₂ = M⁻¹R₂″ * R₂ # G₂ = [M⁻¹R₂″⋅R₂]
        @. G₁ *= t′ # G₁ = [t′⋅M⁻¹R₁′⋅R₁]
        @. G₂ *= t″ # G₂ = [t″⋅M⁻¹R₂″⋅R₂]
        translational_average!(G₁G₂,G₁,G₂) # G₁⋅G₂ = [t′⋅M⁻¹R₁′⋅R₁]⋆[t″⋅M⁻¹R₂″⋅R₂]

        # J -= 4⋅⟨t′(r+i,τ) t″(i,0)⟩⋅⟨a(r′+r+i,τ) b⁺(r+i,τ)⟩⋅⟨c(r″+i,0) d⁺(i,0)⟩
        @. crntcrnt -= 4*G₁G₂

        # CALCULATE ⟨t′(r+i,τ) t″(i,0)⟩⋅⟨a(r′+r+i,τ) b⁺(r+i,τ)⟩⋅⟨d(i,0) c⁺(r″+i,0)⟩
        M⁻¹R₁ = @view M⁻¹r₁[:,a,:,:,:]
        R₁    = @view    r₁[:,b,:,:,:]
        M⁻¹R₂ = @view M⁻¹r₂[:,d,:,:,:]
        R₂    = @view    r₂[:,c,:,:,:]
        circshift!(M⁻¹R₁′,M⁻¹R₁,(0,-r′[1],-r′[2],-r′[3])) # shift(M⁻¹R₁,r′)
        circshift!(R₂″,R₂,(0,-r″[1],-r″[2],-r″[3]))       # shift(R₂,r″)
        @. G₁ = M⁻¹R₁′* R₁  # G₁ = [M⁻¹R₁′⋅R₁]
        @. G₂ = M⁻¹R₂ * R₂″ # G₂ = [M⁻¹R₂⋅R₂″]
        @. G₁ *= t′ # G₁ = [t′⋅M⁻¹R₁′⋅R₁]
        @. G₂ *= t″ # G₂ = [t″⋅M⁻¹R₂⋅R₂″]
        translational_average!(G₁G₂,G₁,G₂) # G₁⋅G₂ = [t′⋅M⁻¹R₁′⋅R₁]⋆[t″⋅M⁻¹R₂⋅R₂″]

        # J += 4⋅⟨t′(r+i,τ) t″(i,0)⟩⋅⟨a(r′+r+i,τ) b⁺(r+i,τ)⟩⋅⟨d(i,0) c⁺(r″+i,0)⟩
        @. crntcrnt -= 4*G₁G₂

        # CALCULATE ⟨t′(r+i,τ) t″(i,0)⟩⋅⟨b(r+i,τ) d⁺(i,0)⟩⋅⟨c(r″+i,0) a⁺(r′+r+i,τ)⟩
        M⁻¹R₁ = @view M⁻¹r₁[:,b,:,:,:]
        R₁    = @view    r₁[:,d,:,:,:]
        M⁻¹R₂ = @view M⁻¹r₂[:,c,:,:,:]
        R₂    = @view    r₂[:,a,:,:,:]
        circshift!(M⁻¹R₂″,M⁻¹R₂,(0,-r″[1],-r″[2],-r″[3]))
        circshift!(   R₁′,   R₂,(0,-r′[1],-r′[2],-r′[3]))
        @. G₁ = M⁻¹R₁  * R₁′
        @. G₂ = M⁻¹R₂″ * R₁
        @. G₁ *= t′
        @. G₂ *= t″
        translational_average!(G₁G₂,G₁,G₂)

        # J -= 2⋅⟨t′(r+i,τ) t″(i,0)⟩⋅⟨b(r+i,τ) d⁺(i,0)⟩⋅⟨c(r″+i,0) a⁺(r′+r+i,τ)⟩
        @. crntcrnt -= 2*G₁G₂

        # CALCULATE ⟨t′(r+i,τ) t″(i,0)⟩⋅⟨b(r+i,τ) c⁺(r″+i,0)⟩⋅⟨d(i,0) a⁺(r′+r+i,τ)⟩
        M⁻¹R₁ = @view M⁻¹r₁[:,b,:,:,:]
        R₁    = @view    r₁[:,c,:,:,:]
        M⁻¹R₂ = @view M⁻¹r₂[:,d,:,:,:]
        R₂    = @view    r₂[:,a,:,:,:]
        circshift!(R₁″,R₁,(0,-r″[1],-r″[2],-r″[3]))
        circshift!(R₂′,R₂,(0,-r′[1],-r′[2],-r′[3]))
        @. G₁ = R₁″   * M⁻¹R₂
        @. G₂ = M⁻¹R₁ * R₂′
        @. G₁ *= t″
        @. G₂ *= t′
        translational_average!(G₁G₂,G₁,G₂)

        # J += 2⋅⟨t′(r+i,τ) t″(i,0)⟩⋅⟨b(r+i,τ) c⁺(r″+i,0)⟩⋅⟨d(i,0) a⁺(r′+r+i,τ)⟩
        @. crntcrnt += 2*G₁G₂

        # CALCULATE ⟨t′(r+i,τ) t″(i,0)⟩⋅⟨a(r′+r+i,τ) d⁺(i,0)⟩⋅⟨c(r″+i,0) b⁺(r+i,τ)⟩
        M⁻¹R₁ = @view M⁻¹r₁[:,a,:,:,:]
        R₁    = @view    r₁[:,d,:,:,:]
        M⁻¹R₂ = @view M⁻¹r₂[:,c,:,:,:]
        R₂    = @view    r₂[:,b,:,:,:]
        circshift!(M⁻¹R₁′,M⁻¹R₁,(0,-r′[1],-r′[2],-r′[3]))
        circshift!(M⁻¹R₂″,M⁻¹R₂,(0,-r″[1],-r″[2],-r″[3]))
        @. G₁ = M⁻¹R₁′ * R₂
        @. G₂ = R₁     * M⁻¹R₂″
        @. G₁ *= t′
        @. G₂ *= t″
        translational_average!(G₁G₂,G₁,G₂)

        # J += 2⋅⟨t′(r+i,τ) t″(i,0)⟩⋅⟨a(r′+r+i,τ) d⁺(i,0)⟩⋅⟨c(r″+i,0) b⁺(r+i,τ)⟩
        @. crntcrnt += 2*G₁G₂

        # CALCULATE ⟨t′(r+i,τ) t″(i,0)⟩⋅⟨a(r′+r+i,τ) c⁺(r″+i,0)⟩⋅⟨d(i,0) b⁺(r+i,τ)⟩
        M⁻¹R₁ = @view M⁻¹r₁[:,a,:,:,:]
        R₁    = @view    r₁[:,c,:,:,:]
        M⁻¹R₂ = @view M⁻¹r₂[:,d,:,:,:]
        R₂    = @view    r₂[:,b,:,:,:]
        circshift!(M⁻¹R₁′,M⁻¹R₁,(0,-r′[1],-r′[2],-r′[3]))
        circshift!(R₂″,   R₁,   (0,-r″[1],-r″[2],-r″[3]))
        @. G₁ = M⁻¹R₁′ * R₂
        @. G₂ = R₂″    * M⁻¹R₂
        @. G₁ *= t′
        @. G₂ *= t″
        translational_average!(G₁G₂,G₁,G₂)

        # J -= 2⋅⟨t′(r+i,τ) t″(i,0)⟩⋅⟨a(r′+r+i,τ) c⁺(r″+i,0)⟩⋅⟨d(i,0) b⁺(r+i,τ)⟩
        @. crntcrnt -= 2*G₁G₂

        # CALCULATE 2⋅δ(τ)⋅δ(a,c)⋅δ(r″,r′+r)⋅⟨t′(r+i,τ) t″(i,0)⟩⋅⟨b(r+i,0) d⁺(i,0)⟩
        if a==c
            # r = r″-r′
            l₁ = mod(r″[1]-r′[1],L₁)
            l₂ = mod(r″[2]-r′[2],L₂)
            l₃ = mod(r″[3]-r′[3],L₃)
            # ⟨t′(r+i,τ) t″(i,0)⟩⋅⟨b(r+i,0) d⁺(i,0)⟩
            M⁻¹R₁ = @view M⁻¹r₁[:,b,:,:,:]
            R₁    = @view    r₁[:,d,:,:,:]
            copyto!(G₁,M⁻¹R₁)
            copyto!(G₂,R₁)
            @. G₁ *= t′
            @. G₂ *= t″
            circshift!(G₁G₂,G₁,(0,l₁,l₂,l₃))
            @. G₁G₂ *= G₂
            crntcrnt[1,l₁+1,l₂+1,l₃+1] += 2 * sum(G₁G₂) / length(G₁G₂)
        end

        # CALCULATE -2⋅δ(τ)⋅δ(a,d)⋅δ(r′+r)⋅⟨t′(r+i,τ) t″(i,0)⟩⋅⟨b(r+i,0) c⁺(r″+i,0)⟩
        if a==d
            # r = -r′
            l₁ = mod(-r′[1],L₁)
            l₂ = mod(-r′[2],L₂)
            l₃ = mod(-r′[3],L₃)
            # t′(r+i,τ) t″(i,0)⟩⋅⟨b(r+i,0) c⁺(r″+i,0)⟩
            M⁻¹R₁ = @view M⁻¹r₁[:,b,:,:,:]
            R₁    = @view    r₁[:,c,:,:,:]
            copyto!(G₁,M⁻¹R₁)
            circshift!(G₂,R₁,(0,-r″[1],-r″[2],-r″[3]))
            @. G₁ *= t′
            @. G₂ *= t″
            circshift!(G₁G₂,G₁,(0,l₁,l₂,l₃))
            @. G₁G₂ *= G₂
            crntcrnt[1,l₁+1,l₂+1,l₃+1] -= 2 * sum(G₁G₂) / length(G₁G₂)
        end

        # CALCULATE -2⋅δ(τ)⋅δ(b,c)⋅δ(r-r″)⋅⟨t′(r+i,τ) t″(i,0)⟩⋅⟨a(r′+r+i,0) d⁺(i,0)⟩
        if b==c
            # r = r″
            l₁ = r″[1]
            l₂ = r″[2]
            l₃ = r″[3]
            # ⟨t′(r+i,τ) t″(i,0)⟩⋅⟨a(r′+r+i,0) d⁺(i,0)⟩
            M⁻¹R₁ = @view M⁻¹r₁[:,b,:,:,:]
            R₁    = @view    r₁[:,d,:,:,:]
            circshift!(G₁,M⁻¹R₁,(0,-r′[1],-r′[2],-r′[3]))
            copyto!(G₂,R₁)
            @. G₁ *= t′
            @. G₂ *= t″
            circshift!(G₁G₂,G₁,(0,l₁,l₂,l₃))
            @. G₁G₂ *= G₂
            crntcrnt[1,l₁+1,l₂+1,l₃+1] -= 2 * sum(G₁G₂) / length(G₁G₂)
        end

        # CALCULATE 2⋅δ(τ)⋅δ(b,d)⋅δ(r)⋅⟨t′(r+i,τ) t″(i,0)⟩⋅⟨a(r′+r+i,0) c⁺(r″+i)⟩
        if b==d
            M⁻¹R₁ = @view M⁻¹r₁[:,a,:,:,:]
            R₁    = @view    r₁[:,c,:,:,:]
            circshift!(G₁,M⁻¹R₁,(0,-r′[1],-r′[2],-r′[3]))
            circshift!(G₂,   R₁,(0,-r″[1],-r″[2],-r″[3]))
            @. G₁ *= t′
            @. G₂ *= t″
            @. G₁G₂ = G₁ * G₂
            crntcrnt[1,1,1,1] += 2 * sum(G₁G₂) / length(G₁G₂)
        end

        # record measurements
        if L₀==1 # if time independent measurement
            @views @. container[:,:,:,:,p]    += crntcrnt[1,:,:,:]
        else # if time dependent measurement
            @views @. container[1:Lₜ,:,:,:,p] += crntcrnt
            # deal with τ=β time slice
            for l₃ in 0:L₃-1
                for l₂ in 0:L₂-1
                    for l₁ in 0:L₁-1
                        nl₁ = mod(-l₁,L₁)
                        nl₂ = mod(-l₂,L₂)
                        nl₃ = mod(-l₃,L₃)
                        # J[a,b,r′;c,d,r″](β,r) = J[c,d,r″;a,b,r′](0,-r)
                        container[Lₜ+1,l₁+1,l₂+1,l₃+1,p] += crntcrnt[1,nl₁+1,nl₂+1,nl₃+1]
                    end
                end
            end
        end
    end

    return nothing
end

"""
Measure Bond Pair Green's function.
P[a,b,r′;c,d,r″](τ,r) =⟨Δ[a,b,r′](τ,r)⋅Δ⁺[c,d,r″](0,0)⟩ =⟨[b(↓,τ,r)⋅a(↑,τ,r′+r)]⋅[c⁺(↑,0,r″)⋅d⁺(↓,0,0)]⟩
"""
function measure_BondPairGreens!(container::Array{Complex{T1},5},pairs::Matrix{Int},model::AbstractModel{T1,T2,T3},estimator::EstimateGreensFunction{T1}) where {T1,T2,T3}

    # size of lattice
    Lₜ = model.Lτ::Int
    L₁ = model.lattice.L1::Int
    L₂ = model.lattice.L2::Int
    L₃ = model.lattice.L3::Int
    nₒ = model.lattice.unit_cell.norbits::Int
    nᵤ = model.lattice.ncells::Int

    r₁    = reshaped(estimator.r₁,    (Lₜ,nₒ,L₁,L₂,L₃))
    M⁻¹r₁ = reshaped(estimator.M⁻¹r₁, (Lₜ,nₒ,L₁,L₂,L₃))
    r₂    = reshaped(estimator.r₂,    (Lₜ,nₒ,L₁,L₂,L₃))
    M⁻¹r₂ = reshaped(estimator.M⁻¹r₂, (Lₜ,nₒ,L₁,L₂,L₃))

    # containers for performing calculation
    pairgrns = reshaped(view(estimator.ab″,1:Lₜ*nᵤ), (Lₜ,L₁,L₂,L₃))
    G₂G₁     = reshaped(view(estimator.ab′,1:Lₜ*nᵤ), (Lₜ,L₁,L₂,L₃))
    G₁       = reshaped(view(estimator.a,  1:Lₜ*nᵤ), (Lₜ,L₁,L₂,L₃))
    G₂       = reshaped(view(estimator.b,  1:Lₜ*nᵤ), (Lₜ,L₁,L₂,L₃))

    # displacement vectors describing each type of bond
    bonds = model.bond_definitions

    # length of axis corresponding to imaginary time axis
    L₀ = size(container,1)

    # number of vectors
    nᵥ = length(bonds)

    # number of pairs
    nₚ = size(pairs,2)

    # iterate over first bond
    for p in 1:nₚ

        # initialize pair-greens correlation to zero
        fill!(pairgrns,0.0)

        # get pair of bonds
        n″ = pairs[1,p]
        n′ = pairs[2,p]

        # annihilate pair of electrons on d ⟶ c displaced r″ unit cells apart
        r″ = bonds[n″].v::Vector{Int} # displacement in unit cells
        d  = bonds[n″].o₁::Int        # starting orbital
        c  = bonds[n″].o₂::Int        # ending   orbital

        # annihilate pair of electrons on b ⟶ a displaced r′ unit cells apart
        r′ = bonds[n′].v::Vector{Int} # displacement in unit cells
        b  = bonds[n′].o₁::Int        # starting orbital
        a  = bonds[n′].o₂::Int        # ending   orbital

        # CALCULATE G₂⋅G₁ = ⟨T⋅a(r′+r+i,τ)⋅c⁺(r″+i,0)⟩⋅⟨T⋅b(r+i,τ)⋅d⁺(i,0)⟩
        M⁻¹R₁  = @view M⁻¹r₁[:,a,:,:,:]
        R₁     = @view    r₁[:,c,:,:,:]
        M⁻¹R₂  = @view M⁻¹r₂[:,b,:,:,:]
        R₂     = @view    r₂[:,d,:,:,:]
        M⁻¹R₁′ = G₂
        R₁″    = G₁
        circshift!(M⁻¹R₁′,M⁻¹R₁,(0,-r′[1],-r′[2],-r′[3]))
        circshift!(R₁″,R₁,(0,-r″[1],-r″[2],-r″[3]))
        @. G₂ = M⁻¹R₁′ * M⁻¹R₂
        @. G₁ = R₁″ * R₂
        translational_average!(G₂G₁,G₂,G₁)
        @. pairgrns += G₂G₁

        # record measurements
        if L₀==1 # if time independent measurement
            @views @. container[:,:,:,:,p]    += pairgrns[1,:,:,:]
        else # if time dependent measurement
            @views @. container[1:Lₜ,:,:,:,p] += pairgrns
            # deal with τ=β time slice
            for l₃ in 0:L₃-1
                for l₂ in 0:L₂-1
                    for l₁ in 0:L₁-1
                        δ_a_c     = δ(a,c)
                        δ_r″_r′   = δ(r′[1],r″[1])*δ(r′[2],r″[2])*δ(r′[3],r″[3])
                        δ_b_d     = δ(b,d)
                        δ_r_0     = δ(l₁)*δ(l₂)*δ(l₃)
                        δ_r″_r′pr = δ(r″[1],mod(r′[1]+l₁,L₁)) * δ(r″[2],mod(r′[2]+l₂,L₂)) * δ(r″[3],mod(r′[3]+l₃,L₃))
                        val       = pairgrns[1,l₁+1,l₂+1,l₃+1]
                        val      += δ_a_c * δ_r″_r′ * δ_b_d * δ_r_0
                        val      -= δ_b_d * δ_r_0 * measure_GΔ0( estimator, mod(r′[1]+l₁-r″[1],L₁), mod(r′[2]+l₂-r″[2],L₂), mod(r′[3]+l₃-r″[3],L₃), c, a, 0)
                        val      -= δ_a_c * δ_r″_r′pr * measure_GΔ0( estimator, l₁,l₂,l₃,d,b,0)
                        container[Lₜ+1,l₁+1,l₂+1,l₃+1,p] += val
                    end
                end
            end
        end
    end

    return nothing
end

"""
Measure Phonon Green's function for SSH model.
"""
function measure_PhononGreens!(container::Array{Complex{T1},5},pairs::Matrix{Int},model::SSHModel{T1,T2,T3},Gr::EstimateGreensFunction{T1}) where {T1,T2,T3}

    # size of lattice
    Lₜ = model.Lτ::Int
    L₁ = model.lattice.L1::Int
    L₂ = model.lattice.L2::Int
    L₃ = model.lattice.L3::Int
    nₒ = model.lattice.unit_cell.norbits::Int
    nᵤ = model.lattice.ncells::Int
    nᵥ = model.nph::Int

    # length of axis corresponding to imaginary time axis.
    # L₀ = Lₜ+1 if unequal time measurement
    # L₀ = 1    if   equal time measurement
    L₀ = size(container,1)

    x₀ = model.x
    @unpack a, b, ab′ = Gr

    # phonon fields
    x = reshaped(x₀,(Lₜ,L₁,L₂,L₃,nᵥ))

    # containers
    NL   = Lₜ*L₁*L₂*L₃
    x₁   = reshaped(view(a,  1:NL),(Lₜ,L₁,L₂,L₃))
    x₂   = reshaped(view(b,  1:NL),(Lₜ,L₁,L₂,L₃))
    x₂x₁ = reshaped(view(ab′,1:NL),(Lₜ,L₁,L₂,L₃))

    # number of pairs
    nₚ = size(pairs,2)

    # iterate over pairs
    for p in 1:nₚ
        # get pair
        b₁ = pairs[1,p]
        b₂ = pairs[2,p]
        # associated phonon fields
        @views @. x₂ = x[:,:,:,:,b₂]
        # associated phonon fields
        @views @. x₁ = x[:,:,:,:,b₁]
        # calculate translation average
        translational_average!(x₂x₁,x₂,x₁)
        # save the results
        if L₀==1 # equal time measurment
            @views @. container[1,:,:,:,p] += x₂x₁[1,:,:,:]
        else # unequal time measurement
            @views @. container[1:Lₜ,:,:,:,p] += x₂x₁
            # dealing with τ=β time slice
            @views @. container[Lₜ+1,:,:,:,p] += x₂x₁[1,:,:,:]
        end
    end

    return nothing
end

##################################################
## ADDITIONAL FUNCTIONS FOR MAKING MEASUREMENTS ##
##################################################

"""
Measure generic susceptibility.
"""
function measure_susceptibility!(susc::AbstractArray{Complex{T1},4},corr::AbstractArray{Complex{T1},5},model::AbstractModel{T1,T2,T3}) where {T1,T2,T3}

    Δτ = model.Δτ
    L₁ = size(susc,1)
    L₂ = size(susc,2)
    L₃ = size(susc,3)
    nₚ = size(susc,4)

    # iterate over all possible (displacement vectors/k-points)
    for p in 1:nₚ
        for l₃ in 1:L₃
            for l₂ in 1:L₂
                for l₁ in 1:L₁
                    # numerically integrate from 0 to β
                    vals = @view corr[:,l₁,l₂,l₃,p]
                    susc[l₁,l₂,l₃,p] = simpson(vals,Δτ)
                end
            end
        end
    end

    return nothing
end

end


include(string(PROJECT_HOME,"/simulation_code/updatefuns.jl"))
include(string(PROJECT_HOME,"/simulation_code/create_hydraulics_layered.jl"))

function make_layers(_totaldepth)
	linear_layers = collect(0:0.1:0.8);
	toadd = [0,0,1,2,3,4,5,6,7];
	quad_layers = cumsum(toadd)/sum(toadd);

	if _totaldepth < 0.8
		lower_layer_thick = (_totaldepth-0.1)/Int(floor((_totaldepth-0.1) / 0.1));
		layers = vcat(0, 0.1:lower_layer_thick:_totaldepth);
	end

	if _totaldepth >= 0.8
		layers = linear_layers + quad_layers*(_totaldepth-0.8);
	end
	return convert(Array{FT}, -1*layers)
end

function create_spac(
            sm::AbstractStomatalModel = OSMWang{FT}(),
            vcmax::FT = FT(30),
            kmax::FT = FT(0.3),
		z_soil::FT = FT(1000),
     chl::FT = FT(40),
	 N_slice::Int = 1,
	alpha::FT = FT(1.368),
	n::FT = FT(2.6257)
) where {FT<:AbstractFloat}
(

	#_soil_hs = create_soil_VC(VanGenuchten{FT}(), "Silt Loam");

	_soil_hs = VanGenuchten{FT}(stype = "Ozark",
									α = alpha,
									n = n,
								   Θs = 0.45,
								   Θr = 0.067);

	#_soil_hs = BrooksCorey{FT}(stype= "Ozark", Θs = FT(porosity), Θr = FT(0.05), ϕs = psi_sat, b = b_soil);

	_totaldepth = FT(z_soil/1000);
	_rootdepth = FT(z_soil/1000);
	#_soil_bounds = collect(FT,[0,-0.1,-0.25,-0.45,-0.7]);
	#_soil_bounds = collect(FT,[0,-0.1,-0.2,-0.3,-0.4]);
	#_soil_bounds = collect(FT,[0,-0.1,-0.2,-0.3,-0.4,-0.5,-0.6,-0.7]);

	#_soil_bounds = collect(FT,[0,-0.1,-0.15,-0.2,-0.25,-0.3,-0.35,-0.4]);
	#_soil_bounds[3:end] *= _totaldepth/FT(0.4);

	#_soil_bounds = collect(FT,[0,-0.1,-0.25,-0.5,-0.75,-1.0,-1.5,-2]);
	#_soil_bounds *= _totaldepth/FT(2);

	#_soil_bounds = collect(FT,[0,-0.1,-0.2, -0.3, -0.4, -0.5, -0.6, -0.7]);
	#_soil_bounds *= _totaldepth/FT(0.7);

	_soil_bounds = make_layers(_totaldepth);

	_totaldepth = -1*_soil_bounds[end];
	_rootdepth = -1*_soil_bounds[end];

	_air_bounds = convert(Array{FT},[0,5,9,12,16,18.5,20] );

	_tree_hs = create_tree2(FT(-1*_rootdepth), FT(9), FT(18.5), _soil_bounds,
						   _air_bounds, N_slice);
	for _root in _tree_hs.roots
		_root.sh = deepcopy(_soil_hs);
	end;

	_node = SPACMono{FT}(soil_bounds = _soil_bounds,
						  air_bounds = _air_bounds,
							  z_root = FT(-1*_rootdepth),
							z_canopy = 18.5,
							plant_hs = _tree_hs,
								  ga = 413.223,
								  la = 1735.537,
							latitude = 38.74,
						   longitude = -92.2,
						   elevation = 219.4,
					   stomata_model = sm);
	_node.swc = collect(FT,0.4*ones(length(_soil_bounds)-1));

	n_canopy = length(_node.plant_hs.canopy_index_in_air);

	#=
	incl_grid =  collect(FT,[22.5,45+22.5]);
	azi_grid = collect(FT,[90,270]);
	incl_grid_bnd = [collect(FT,[0,45]) collect(FT,[45,90])];
	=#

	incl_grid =  collect(FT,[45]);
	azi_grid = collect(FT,[180]);
	incl_grid_bnd = [collect(FT,[0]) collect(FT,[90])];

	nleaf = length(incl_grid)*length(azi_grid) + 1;

	_node.plant_ps = [CanopyLayer{FT}(n_leaf=nleaf) for
										  i in 1:n_canopy];

	_node.canopy_rt = Canopy4RT{FT}(nLayer=n_canopy, LAI=_node.la/_node.ga, litab  = incl_grid, litab_bnd = incl_grid_bnd, lazitab = azi_grid);

	#"RT dimensions"
	_node.rt_dim = create_rt_dims(_node.canopy_rt, _node.wl_set);
	#"CanopyRads container"
	_node.can_rad = create_canopy_rads(FT, _node.rt_dim);
	#"CanopyOpticals container"
	_node.can_opt = create_canopy_opticals(FT, _node.rt_dim);
	#"Array of LeafBios container"
	_node.leaves_rt = [create_leaf_bios(FT, _node.rt_dim) for
										 i in 1:n_canopy];

	#"RT container"
	_node.rt_con = create_rt_cache(FT, _node.rt_dim);
	#"Container for sunlit leaf area fraction in each layer"
	_node.f_SL = repeat(_node.canopy_rt.lidf, outer=[ _node.canopy_rt.nAzi ]) /
						_node.canopy_rt.nAzi;

	#=
	for _iPS in _node.plant_ps
		_iPS.g_min   = 0.001;
		_iPS.g_min25 = 0.001;
		_iPS.g_max   = 0.08; #0.50;
		_iPS.g_max25 = 0.08; #0.50;
	end;
	=#

	for _iPS in _node.plant_ps
		_iPS.g_min   = 0.001;
		_iPS.g_min25 = 0.001;
		_iPS.g_max   = 0.12; #0.50;
		_iPS.g_max25 = 0.12; #0.50;
	end;

	_node.canopy_rt.Ω       = 0.69;
	_node.canopy_rt.clump_a = 0.69;
	update_LAI!(_node, FT(4.2));
	update_Weibull!(_node, FT(5.703), FT(0.953));

	#update_Weibull!(_node, FT(4.0), FT(3.0));
	#for _leaf in _node.plant_hs.leaves
        #_leaf.vc.b = 1.0;
        #_leaf.vc.c = 3.0;
    #end;

	#for _leaf in _node.plant_hs.leaves
    #    _leaf.vc.b = 2.0;
        #_leaf.vc.c = c;
    #end;

    # update fitted Vcmax, Kmax, and Chlrophyll content
    update_VJRWW!(_node, vcmax);
    update_Kmax!(_node, kmax);
    update_Cab!(_node, chl);
    initialize_spac_canopy!(_node);

    return _node
)
end