clr_flag_multi Subroutine

public subroutine clr_flag_multi(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_multi

Source Code

    subroutine clr_flag_multi(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(:)

        integer :: i

        do i = 1, size(flg)
            ilut(IlutBits%ind_flag) = ibclr(ilut(IlutBits%ind_flag), flg(i))
        end do

    end subroutine clr_flag_multi