Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | sign_length | |||
integer(kind=n_int), | intent(in) | :: | ilut(0:) | |||
real(kind=dp), | intent(out) | :: | real_sign(sign_length) |
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