subroutinecollect_listsprivate

subroutine collect_lists(site)
    type(site_t), intent(inout) :: site     !! the site
    integer :: k, which

    allocate (site%members(NUM_LISTS))
    do which = 1, NUM_LISTS
        allocate (site%members(which)%ids(0))
    end do
    do k = 1, site%p%list%n
        which = list_of(site, k)
        if (which > 0) call push_int(site%members(which)%ids, k)
    end do
    do which = 1, NUM_LISTS
        call sort_ids(site, site%members(which)%ids)
    end do
end subroutine collect_lists