set_flag_general Subroutine

    subroutine set_flag_general(ilut, flg, state)

        ! Set or clear the specified flag (0 indexed) according to
        ! the value in state.
        !
        ! In:    flg   - Integer index of flag to set
        !        state - Flag will be set if state is true.
        ! InOut: ilut  - Bit representation of determinant

        integer(n_int), intent(inout) :: ilut(0:nIfTot)
        integer, intent(in) :: flg
        logical, intent(in) :: state

        if (state) then
            call set_flag_single(ilut, flg)
        else
            call clr_flag(ilut, flg)
        end if
    end subroutine set_flag_general