extract_sign Subroutine

public pure subroutine extract_sign(ilut, real_sgn)

Arguments

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

Contents

Source Code

extract_sign

Source Code

    pure subroutine extract_sign(ilut, real_sgn)
        integer(n_int), intent(in) :: ilut(0:nIfTot)
        real(dp), intent(out) :: real_sgn(lenof_sign)
        integer(n_int) :: sgn(lenof_sign)

        sgn = iLut(IlutBits%ind_pop:IlutBits%ind_pop + lenof_sign - 1)
        ! transfer operates elementwise
        real_sgn = transfer(sgn, real_sgn)

    end subroutine extract_sign