set_flag_single Subroutine

private subroutine set_flag_single(ilut, flg)

Arguments

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

Source Code

    subroutine set_flag_single(ilut, flg)

        ! Set the specified flag (0 indexed) in the bit representation
        !
        ! In:    flg  - Integer index of flag to set
        ! InOut: ilut - Bit representation of determinant

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

        ! This now assumes that we do not have more flags than bits in an
        ! integer.
        ilut(IlutBits%ind_flag) = ibset(ilut(IlutBits%ind_flag), flg)

    end subroutine set_flag_single