Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(BitRep_t), | intent(in) | :: | BitIndex | |||
integer(kind=n_int), | intent(in) | :: | ilut(0:BitIndex%len_tot) | |||
integer(kind=int_rdm), | intent(out) | :: | rdm_ind | |||
real(kind=dp), | intent(out) | :: | x0 | |||
real(kind=dp), | intent(out) | :: | x1 |
pure subroutine extract_stochastic_rdm_info(BitIndex, ilut, rdm_ind, x0, x1)
type(BitRep_t), intent(in) :: BitIndex
integer(n_int), intent(in) :: ilut(0:BitIndex%len_tot)
integer(int_rdm), intent(out) :: rdm_ind
real(dp), intent(out) :: x0, x1
rdm_ind = extract_stochastic_rdm_ind(BitIndex, ilut)
x0 = extract_stochastic_rdm_x0(BitIndex, ilut)
x1 = extract_stochastic_rdm_x1(BitIndex, ilut)
end subroutine extract_stochastic_rdm_info