encode_flags Subroutine

public subroutine encode_flags(ilut, flag)

Arguments

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

Contents

Source Code

encode_flags

Source Code

    subroutine encode_flags(ilut, flag)

        ! Add new flag information to a packaged walker.

        integer(n_int), intent(inout) :: ilut(0:nIfTot)
        integer, intent(in) :: flag

        iLut(IlutBits%ind_flag) = int(flag, n_int)

    end subroutine encode_flags