DestructSession Subroutine

public subroutine DestructSession(session)

Arguments

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

Contents

Source Code

DestructSession

Source Code

    subroutine DestructSession(session)
        implicit none
        type(ExcitGenSessionType), intent(inout) :: session
        if (allocated(session%nI)) deallocate(session%nI)
        if (allocated(session%holes)) deallocate(session%holes)
        call DestructExcitVecs(session)
    end subroutine DestructSession