subroutine set_adi_flags(ilut, nI, sgn, ex)
use bit_rep_data, only: flag_adi_checked
! This sets the adi flags (flag_adi_checked and flag_static_init)
! for a given ilut
implicit none
integer(n_int), intent(inout) :: ilut(0:NIfTot)
real(dp), intent(in) :: sgn(lenof_sign)
integer, intent(in) :: nI(nel), ex
integer :: ir
! this part has to be done independently for each run, since the coherence
! criterium depends on the exact population
do ir = 1, inum_runs
call set_adi_flags_run(ilut, nI, sgn, ex, ir)
end do
! Now, the adi criterium was checked
call set_flag(ilut, flag_adi_checked)
end subroutine set_adi_flags