DestroyHamiltonianCalc Subroutine

public subroutine DestroyHamiltonianCalc(this)

Arguments

Type IntentOptional Attributes Name
type(HamiltonianCalcType), intent(inout) :: this

Contents

Source Code

DestroyHamiltonianCalc

Source Code

    subroutine DestroyHamiltonianCalc(this)
        type(HamiltonianCalcType), intent(inout) :: this
        safe_free(this%space_sizes)
        safe_free(this%partial_H_ket)
        safe_free(this%partial_H_ket_disps)
        safe_free(this%basis_vectors)
        safe_free(this%projected_hamil)
        safe_free(this%projected_hamil_work)
        safe_free(this%temp_in)
        safe_free(this%temp_out)
    end subroutine DestroyHamiltonianCalc