parquet_debug_set_affinity_procs Subroutine

public subroutine parquet_debug_set_affinity_procs(n)

Overrides the processor count parquet_clamp_to_affinity clamps to. Test-only; <= 0 restores the real omp_get_num_procs().

Public only because Fortran has no narrower visibility, and deliberately accepted -- the same trade parquet_debug_set_string_min_bytes makes next door. CLAUDE.md asks for a C++ hook in preference to a Fortran one, and this module is the Arrow-free leaf: it has no bind(C) surface at all, so there is no C++ side to put it on. It is called by no library code, and it is process-global saved state, so a suite that uses it must be excluded from test-drive's per-test parallelism.

Arguments

    subroutine parquet_debug_set_affinity_procs(n)
        integer, intent(in) :: n !! processors to pretend the affinity mask allows; `<= 0` restores.
        dbg_affinity_procs = n
    end subroutine parquet_debug_set_affinity_procs