Removed unused declared variables

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
 
 !------------------------------------------------------------------------------|
 !------------------------------------------------------------------------------|

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