PropVec_doubles_PCHB_finalize Subroutine

    subroutine PropVec_doubles_PCHB_finalize(this)
        !! Finalize everything
        class(PropVec_PCHB_DoublesSpinorbFullyWeightExcGen_t), intent(inout) :: this

        if (allocated(this%particle_selector)) then
            ! Yes, we assume, that either all or none are allocated
            call this%A_sampler%finalize()
            call this%B_sampler%finalize()
            call this%particle_selector%finalize()
            deallocate(this%particle_selector, this%indexer)
            if (this%create_lookup) deallocate(lookup_property_indexer)
        end if

    end subroutine PropVec_doubles_PCHB_finalize