set_adi_flags Subroutine

public subroutine set_adi_flags(ilut, nI, sgn, ex)

Arguments

Type IntentOptional Attributes Name
integer(kind=n_int), intent(inout) :: ilut(0:NIfTot)
integer, intent(in) :: nI(nel)
real(kind=dp), intent(in) :: sgn(lenof_sign)
integer, intent(in) :: ex

Contents

Source Code


Source Code

    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