extract_flags Function

public function extract_flags(ilut) result(flags)

Arguments

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

Return Value integer


Contents

Source Code

extract_flags

Source Code

    function extract_flags(iLut) result(flags)
        integer(n_int), intent(in) :: ilut(0:nIfTot)
        integer :: flags

        flags = int(ilut(IlutBits%ind_flag))

    end function extract_flags