fixed issue with stochastic volume calculation for a heterogeneous cell with more than 8 materials

This commit is contained in:
Sam Shaner 2016-09-19 14:42:06 -04:00
parent 205eaf9760
commit 00104b82ee

View file

@ -389,7 +389,7 @@ contains
allocate(temp(size(this % domain_id), k))
temp(:, 1:nm) = hits(:, 1:nm)
call move_alloc(FROM=temp, TO=indices)
call move_alloc(FROM=temp, TO=hits)
end if
! Add an entry to both the indices list and the hits list