GAS_doubles_PCHB_spinorb_finalize Subroutine

    subroutine GAS_doubles_PCHB_spinorb_finalize(this)
        !! deallocates the sampler and mapper
        class(GAS_PCHB_DoublesSpinOrbFastWeightedExcGenerator_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, this%GAS_spec)
            if (this%create_lookup) nullify(lookup_supergroup_indexer)
        end if
    end subroutine GAS_doubles_PCHB_spinorb_finalize