encode_bit_rep Subroutine

public pure subroutine encode_bit_rep(ilut, Det, real_sgn, flag)

Arguments

Type IntentOptional Attributes Name
integer(kind=n_int), intent(out) :: ilut(0:nIfTot)
integer(kind=n_int), intent(in) :: Det(0:IlutBits%len_orb)
real(kind=dp), intent(in) :: real_sgn(lenof_sign)
integer, intent(in) :: flag

Contents

Source Code

encode_bit_rep

Source Code

    pure subroutine encode_bit_rep(ilut, Det, real_sgn, flag)
        integer(n_int), intent(out) :: ilut(0:nIfTot)
        real(dp), intent(in) :: real_sgn(lenof_sign)
        integer(n_int), intent(in) :: Det(0:IlutBits%len_orb)
        integer, intent(in) :: flag
        integer(n_int) :: sgn(lenof_sign)

        iLut(0:IlutBits%len_orb) = Det

        sgn = transfer(real_sgn, sgn)
        iLut(IlutBits%ind_pop:IlutBits%ind_pop + IlutBits%len_pop - 1) = sgn

        ilut(IlutBits%ind_flag) = int(flag, n_int)

    end subroutine encode_bit_rep