From 6a92023e5ec999a03e88416635da49910a4e6b57 Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Wed, 25 May 2011 19:32:54 +0000
Subject: [PATCH] Added initialization of nleaves0

---
 src/OCTREE/OctreeBitPlus.f90 | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/OCTREE/OctreeBitPlus.f90 b/src/OCTREE/OctreeBitPlus.f90
index c37a95e3..e2a35743 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)
-- 
GitLab