diff --git a/src/OCTREE/OctreeBitPlus.f90 b/src/OCTREE/OctreeBitPlus.f90 index c37a95e3794ad3652f06d3218fde83464d6de3b5..e2a3574358a2dabc9860b5c6987c2b8aa17fbaf1 100644 --- a/src/OCTREE/OctreeBitPlus.f90 +++ b/src/OCTREE/OctreeBitPlus.f90 @@ -442,6 +442,9 @@ integer noctree,octree(noctree) integer loc,ix,iy,iz,nleaves,nleaves0 integer ioctree_number_of_elements +! Added by dwhipp - 05/11 +nleaves0=0 + nleaves=ioctree_number_of_elements (octree,noctree) do while (nleaves.ne.nleaves0) @@ -587,6 +590,9 @@ integer noctree,octree(noctree) integer loc,ix,iy,iz,nleaves,nleaves0 integer ioctree_number_of_elements +! Added by dwhipp - 05/11 +nleaves0=0 + nleaves=ioctree_number_of_elements (octree,noctree) do while (nleaves.ne.nleaves0)