PropVec_doubles_PCHB_spinorb_finalize Subroutine

    subroutine PropVec_doubles_PCHB_spinorb_finalize(this)
        !! deallocates the sampler and mapper
        class(PropVec_PCHB_DoublesSpinOrbFastWeightExcGen_t), intent(inout) :: this

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