DestroyDavidsonCalc Subroutine

public subroutine DestroyDavidsonCalc(this)

Arguments

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

Contents

Source Code


Source Code

    subroutine DestroyDavidsonCalc(this)
        type(DavidsonCalcType), intent(inout) :: this
        ! deallocate the davidson vector as well
        call FreeDavidsonCalc(this)
        safe_free(this%davidson_eigenvector)
    end subroutine DestroyDavidsonCalc