Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(BitRep_t), | intent(in) | :: | BitIndex | |||
integer(kind=n_int), | intent(in) | :: | ilut(0:BitIndex%len_tot) |
pure function extract_stochastic_rdm_x0(BitIndex, ilut) result(x0)
type(BitRep_t), intent(in) :: BitIndex
integer(n_int), intent(in) :: ilut(0:BitIndex%len_tot)
real(dp) :: x0
x0 = transfer(ilut(BitIndex%ind_rdm_x0), x0)
end function extract_stochastic_rdm_x0