diff --git a/src/do_leaf_measurements.f90 b/src/do_leaf_measurements.f90
index 41c7432f3127679fd448a4cd55dd25813df59082..a95bd329789c32f3f9f446187e7a54c1bbd83408 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 e6e3e4fabc148426c9eca012da2e628007ae6137..31377703c16b47779d4a238a6c971a5d3f6a86a6 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