clear_all_flags Subroutine

public subroutine clear_all_flags(ilut)

Arguments

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

Contents

Source Code

clear_all_flags

Source Code

    subroutine clear_all_flags(ilut)

        ! Clear all of the flags

        integer(n_int), intent(inout) :: ilut(0:niftot)

        ilut(IlutBits%ind_flag) = 0_n_int

    end subroutine clear_all_flags