GAS_doubles_PCHB_finalize Subroutine

    subroutine GAS_doubles_PCHB_finalize(this)
        !! Finalize everything
        class(GAS_PCHB_DoublesSpinorbFullyWeightedExcGenerator_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%GAS_spec, this%indexer)
            if (this%create_lookup) nullify(lookup_supergroup_indexer)
        end if

    end subroutine GAS_doubles_PCHB_finalize