encode_stochastic_rdm_ind Subroutine

public pure subroutine encode_stochastic_rdm_ind(BitIndex, ilut, rdm_ind)

Arguments

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

Contents

Source Code

encode_stochastic_rdm_ind

Source Code

    pure subroutine encode_stochastic_rdm_ind(BitIndex, ilut, rdm_ind)
        type(BitRep_t), intent(in) :: BitIndex
        integer(n_int), intent(inout) :: ilut(0:BitIndex%len_tot)
        integer(int_rdm), intent(in) :: rdm_ind

        ilut(BitIndex%ind_rdm_ind) = rdm_ind

    end subroutine encode_stochastic_rdm_ind