PropVec_doubles_PCHB_finalize Subroutine

private subroutine PropVec_doubles_PCHB_finalize(this)

@brief Deallocate the sampler and the mapping ab -> (a,b)

Type Bound

PropVec_PCHB_DoublesSpatOrbFastWeightExcGen_t

Arguments

Type IntentOptional Attributes Name
class(PropVec_PCHB_DoublesSpatOrbFastWeightExcGen_t), intent(inout) :: this

Source Code

    subroutine PropVec_doubles_PCHB_finalize(this)
        class(PropVec_PCHB_DoublesSpatOrbFastWeightExcGen_t), intent(inout) :: this

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