any_run_is_initiator Function

public pure function any_run_is_initiator(ilut) result(t)

Arguments

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

Return Value logical


Contents

Source Code


Source Code

    pure function any_run_is_initiator(ilut) result(t)
        integer(n_int), intent(in) :: ilut(0:niftot)
        integer :: run
        logical :: t
        t = .false.
        do run = 1, inum_runs
            if (test_flag(ilut, get_initiator_flag_by_run(run))) then
                t = .true.
                return
            end if
        end do
    end function any_run_is_initiator