extract_stochastic_rdm_x1 Function

public pure function extract_stochastic_rdm_x1(BitIndex, ilut) result(x1)

Arguments

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

Return Value real(kind=dp)


Contents

Source Code

extract_stochastic_rdm_x1

Source Code

    pure function extract_stochastic_rdm_x1(BitIndex, ilut) result(x1)
        type(BitRep_t), intent(in) :: BitIndex
        integer(n_int), intent(in) :: ilut(0:BitIndex%len_tot)
        real(dp) :: x1

        x1 = transfer(ilut(BitIndex%ind_rdm_x1), x1)

    end function extract_stochastic_rdm_x1