DestructExcitVecs Subroutine

public subroutine DestructExcitVecs(session)

Arguments

Type IntentOptional Attributes Name
type(ExcitGenSessionType), intent(inout) :: session

Contents

Source Code

DestructExcitVecs

Source Code

    subroutine DestructExcitVecs(session)
        implicit none
        type(ExcitGenSessionType), intent(inout) :: session
        if (allocated(session%elecIndices)) deallocate(session%elecIndices)
        if (allocated(session%holeIndices)) deallocate(session%holeIndices)
        if (allocated(session%elecSpinOrbs)) deallocate(session%elecSpinOrbs)
        if (allocated(session%holeSpinOrbs)) deallocate(session%holeSpinOrbs)
    end subroutine DestructExcitVecs