all_runs_are_initiator Function

public pure function all_runs_are_initiator(ilut) result(t)

Arguments

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

Return Value logical


Contents

Source Code

all_runs_are_initiator

Source Code

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