test_flag_multi Function

public pure function test_flag_multi(ilut, flg) result(bSet)

Arguments

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

Return Value logical


Contents

Source Code

test_flag_multi

Source Code

    pure function test_flag_multi(ilut, flg) result(bSet)
        integer(n_int), intent(in) :: ilut(0:nIfTot)
        integer, intent(in) :: flg(:)
        logical :: bSet

        integer :: i

        bSet = .false.
        do i = 1, inum_runs
            bSet = bSet .or. test_flag(ilut, flg(i))
        end do
    end function test_flag_multi