DestroyPropInts Subroutine

public subroutine DestroyPropInts()

Arguments

None

Contents

Source Code

DestroyPropInts

Source Code

    SUBROUTINE DestroyPropInts()
        implicit none
        character(*), parameter :: t_r = 'DestroyPropInts'

        Deallocate(OneEPropInts)
        call LogMemDealloc(t_r, tagOneEPropInts)
        if (associated(OneEPropInts2)) then
            call LogMemDealloc(t_r, tagOneEPropInts2)
            Deallocate(OneEPropInts2)
        end if
        Deallocate(PropCore)

    END SUBROUTINE DestroyPropInts