encode_sign Subroutine

public subroutine encode_sign(ilut, real_sgn)

Arguments

Type IntentOptional Attributes Name
integer(kind=n_int), intent(inout) :: ilut(0:nIfTot)
real(kind=dp), intent(in) :: real_sgn(lenof_sign)

Contents

Source Code

encode_sign

Source Code

    subroutine encode_sign(ilut, real_sgn)

        ! Add new sign information to a packaged walker.

        integer(n_int), intent(inout) :: ilut(0:nIfTot)
        real(dp), intent(in) :: real_sgn(lenof_sign)
        integer(n_int) :: sgn(lenof_sign)

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

    end subroutine encode_sign