check_determ_flag Function

public function check_determ_flag(ilut, run_) result(core_state)

Arguments

Type IntentOptional Attributes Name
integer(kind=n_int), intent(in) :: ilut(0:NIfTot)
integer, intent(in), optional :: run_

Return Value logical


Contents

Source Code

check_determ_flag

Source Code

    function check_determ_flag(ilut, run_) result(core_state)

        integer(n_int), intent(in) :: ilut(0:NIfTot)
        integer, intent(in), optional :: run_
        logical :: core_state
        integer :: run

        def_default(run, run_, GLOBAL_RUN)
        if (t_global_core_space) run = core_run
        if (tSemiStochastic) then
            if (run == GLOBAL_RUN) then
                core_state = test_flag_multi(ilut, flag_deterministic)
            else
                core_state = test_flag(ilut, flag_deterministic(run))
            end if
        else
            core_state = .false.
        end if

    end function check_determ_flag