finalize_hist_tau_search Subroutine

public subroutine finalize_hist_tau_search()

Arguments

None

Source Code

    subroutine finalize_hist_tau_search
        character(*), parameter :: this_routine = "finalize_hist_tau_search"

        call LogMemDealloc(this_routine, mem_tag_histograms)
        if (allocated(frequency_bins)) deallocate(frequency_bins)
        if (allocated(frequency_bins_singles)) deallocate(frequency_bins_singles)
        if (allocated(frequency_bins_doubles)) deallocate(frequency_bins_doubles)
        if (allocated(frequency_bins_para)) deallocate(frequency_bins_para)
        if (allocated(frequency_bins_anti)) deallocate(frequency_bins_anti)
        if (allocated(frequency_bins_triples)) deallocate(frequency_bins_triples)

    end subroutine finalize_hist_tau_search