extract_sign_EN Subroutine

public pure subroutine extract_sign_EN(sign_length, ilut, real_sign)

Arguments

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

Contents

Source Code


Source Code

    pure subroutine extract_sign_EN(sign_length, ilut, real_sign)

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

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

    end subroutine extract_sign_EN