From 9bd2b9bc28f008142036c9d10a7af9ff78c1a036 Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Wed, 25 May 2011 18:07:37 +0000
Subject: [PATCH] Removed unused declared variables

---
 src/do_leaf_measurements.f90    | 6 ++----
 src/embed_surface_in_octree.f90 | 6 +++---
 2 files changed, 5 insertions(+), 7 deletions(-)

diff --git a/src/do_leaf_measurements.f90 b/src/do_leaf_measurements.f90
index 41c7432f..a95bd329 100644
--- a/src/do_leaf_measurements.f90
+++ b/src/do_leaf_measurements.f90
@@ -60,14 +60,12 @@ integer istep,iter,iter_nl
 
 double precision,dimension(:),allocatable :: x,y,z,vx,vy,vz
 double precision,dimension(:),allocatable :: dhdx,dhdy,dhdz
-double precision :: r,s,t,volume,w
+double precision :: r,s,t,volume
 double precision :: exx,eyy,ezz,exy,eyz,ezx,J2d,J3d
-integer err,ierr,nproc,iproc,k,i,iint,nleaves,mpe
+integer err,ierr,nproc,iproc,k,i,nleaves,mpe
 double precision, dimension(:), allocatable :: e2dtemp,e3dtemp,crittemp,lodetemp
 double precision, dimension(:), allocatable :: qtemp,dilatrtemp
 character*72  :: shift
-logical cutcell
-double precision :: prod
 
 !------------------------------------------------------------------------------|
 !------------------------------------------------------------------------------|
diff --git a/src/embed_surface_in_octree.f90 b/src/embed_surface_in_octree.f90
index e6e3e4fa..31377703 100644
--- a/src/embed_surface_in_octree.f90
+++ b/src/embed_surface_in_octree.f90
@@ -52,9 +52,9 @@ type (thread) threadinfo
 
 integer,dimension(:),allocatable::levs
 type (octreesolve) oint
-integer err,ierr,iproc,nproc
-integer ie,ilsf,k,i
-double precision xxx,yyy,zzz,dist
+integer ierr,iproc,nproc
+integer ie,ilsf,k
+double precision xxx,yyy,zzz
 integer ioctree_number_of_elements
 external ioctree_number_of_elements
 character*72  :: shift
-- 
GitLab