encode_stochastic_rdm_info Subroutine

public pure subroutine encode_stochastic_rdm_info(BitIndex, ilut, rdm_ind, x0, x1)

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
real(kind=dp), intent(in) :: x0
real(kind=dp), intent(in) :: x1

Contents


Source Code

    pure subroutine encode_stochastic_rdm_info(BitIndex, ilut, rdm_ind, x0, x1)
        ! make these function general by also providing the
        ! bit-rep index data-structure!
        type(BitRep_t), intent(in) :: BitIndex
        integer(n_int), intent(inout) :: ilut(0:BitIndex%len_tot)
        integer(int_rdm), intent(in) :: rdm_ind
        real(dp), intent(in) :: x0, x1

        ! i need to be sure that int_rdm and n_int are of the same
        ! size otherwise this breaks..
        call encode_stochastic_rdm_ind(BitIndex, ilut, rdm_ind)
        call encode_stochastic_rdm_x0(BitIndex, ilut, x0)
        call encode_stochastic_rdm_x1(BitIndex, ilut, x1)

    end subroutine encode_stochastic_rdm_info