encode_sign_EN Subroutine

public pure subroutine encode_sign_EN(sign_length, ilut, real_sign)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: sign_length
integer(kind=n_int), intent(inout) :: ilut(0:)
real(kind=dp), intent(in) :: real_sign(sign_length)

Source Code

    pure subroutine encode_sign_EN(sign_length, ilut, real_sign)

        integer, intent(in) :: sign_length
        integer(n_int), intent(inout) :: ilut(0:)
        real(dp), intent(in) :: real_sign(sign_length)
        integer(n_int) :: sign(sign_length)

        sign = transfer(real_sign, sign)
        ilut(IlutBits%ind_pop:IlutBits%ind_pop + sign_length - 1) = sign

    end subroutine encode_sign_EN