From 6f1cf25350b4c50463db979c684a514695d37d54 Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Wed, 25 May 2011 16:59:31 +0000
Subject: [PATCH] Removed unused declared variables

---
 src/build_surface_octree.f90 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/build_surface_octree.f90 b/src/build_surface_octree.f90
index 585e1a34..d3b3aaa1 100644
--- a/src/build_surface_octree.f90
+++ b/src/build_surface_octree.f90
@@ -68,14 +68,14 @@ type (thread) threadinfo
 
 integer level,iproc,nproc,ierr,i,j,k,seed
 integer i1,i2,j1,j2,k1,k2,it,kp,ic,icp
-double precision x,y,z,angle,anglemax,dist
+double precision x,y,z,angle,anglemax
+!double precision :: dist
 real cosd
 integer ioctree_number_of_elements
 external ioctree_number_of_elements
 
 double precision, dimension(:), allocatable ::xn,yn,zn
-double precision :: x1,x2,x3,y1,y2,y3,z1,z2,z3,xne,yne,zne,xyzn
-integer i3,ij,err
+integer err
 !------------------------------------------------------------------------------|
 !------------------------------------------------------------------------------|
 
-- 
GitLab