From 00104b82ee46705488a0dc4e82fb80b2fb5748ca Mon Sep 17 00:00:00 2001 From: Sam Shaner Date: Mon, 19 Sep 2016 14:42:06 -0400 Subject: [PATCH] fixed issue with stochastic volume calculation for a heterogeneous cell with more than 8 materials --- src/volume_calc.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/volume_calc.F90 b/src/volume_calc.F90 index 22647c4da..dee646860 100644 --- a/src/volume_calc.F90 +++ b/src/volume_calc.F90 @@ -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