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_ind(BitIndex, ilut) result(rdm_ind)
type(BitRep_t), intent(in) :: BitIndex
integer(n_int), intent(in) :: ilut(0:BitIndex%len_tot)
integer(int_rdm) :: rdm_ind
rdm_ind = ilut(BitIndex%ind_rdm_ind)
end function extract_stochastic_rdm_ind