encode_stochastic_rdm_x1 Subroutine

public pure subroutine encode_stochastic_rdm_x1(BitIndex, ilut, x1)

Arguments

Type IntentOptional Attributes Name
type(BitRep_t), intent(in) :: BitIndex
integer(kind=n_int), intent(inout) :: ilut(0:BitIndex%len_tot)
real(kind=dp), intent(in) :: x1

Contents

Source Code

encode_stochastic_rdm_x1

Source Code

    pure subroutine encode_stochastic_rdm_x1(BitIndex, ilut, x1)
        type(BitRep_t), intent(in) :: BitIndex
        integer(n_int), intent(inout) :: ilut(0:BitIndex%len_tot)
        real(dp), intent(in) :: x1

        integer(n_int) :: x1_int

        x1_int = transfer(x1, x1_int)

        ilut(BitIndex%ind_rdm_x1) = x1_int

    end subroutine encode_stochastic_rdm_x1