set_adi_flags_run Subroutine

    subroutine set_adi_flags_run(ilut, nI, sgn, ex, ir)
        use bit_rep_data, only: flag_static_init
        use adi_data, only: nCoherentDoubles
        ! This sets the adi flags for a given run ir
        implicit none
        integer(n_int), intent(inout) :: ilut(0:NIfTot)
        real(dp), intent(in) :: sgn(lenof_sign)
        integer, intent(in) :: ir, nI(nel), ex
        logical :: staticInit

        ! Check if its a static initiator on run ir
        staticInit = adi_criterium(ilut, nI, sgn, ex, ir)
        if (staticInit) then
            ! if so, set the flag
            call set_flag(ilut, flag_static_init(ir))
            nCoherentDoubles = nCoherentDoubles + 1
        else
            ! else, clear it
            call clr_flag(ilut, flag_static_init(ir))
        end if

    end subroutine set_adi_flags_run