diff --git a/src/compute_dhdx_dhdy_dhdz.f90 b/src/compute_dhdx_dhdy_dhdz.f90
index 4e7349d51f19c5cd331a5638a008c2c3d497ae12..72c1bff3dd99194ef9b22a54fa5f44656d4c16c9 100644
--- a/src/compute_dhdx_dhdy_dhdz.f90
+++ b/src/compute_dhdx_dhdy_dhdz.f90
@@ -41,8 +41,7 @@ double precision volume
 double precision,dimension(:),allocatable :: h,dhdr,dhds,dhdt
 double precision jcb(3,3),jcbi(3,3)
 double precision eps
-integer ierr,nproc,iproc
-integer i,j,k,err
+integer k,err
 integer nint
 
 !-------------------------------------------------------------------------------