clr_flag Subroutine

public subroutine clr_flag(ilut, flg)

Arguments

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

Contents

Source Code

clr_flag

Source Code

    subroutine clr_flag(ilut, flg)

        ! Clear the specified flag (0 indexed) in the bit representation
        !
        ! In:    flg  - Integer index of flag to clear
        ! 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) = ibclr(ilut(IlutBits%ind_flag), flg)

    end subroutine clr_flag