diff --git a/src/phase_mechanical.f90 b/src/phase_mechanical.f90
index 88c5d7f0b..57d1098d7 100644
--- a/src/phase_mechanical.f90
+++ b/src/phase_mechanical.f90
@@ -193,13 +193,8 @@ module subroutine mechanical_init(materials,phases)
     phases
 
   integer :: &
-    el, &
-    ip, &
-    co, &
-    ce, &
     ph, &
     en, &
-    stiffDegradationCtr, &
     Nmembers
   class(tNode), pointer :: &
     num_crystallite, &
diff --git a/src/results.f90 b/src/results.f90
index 5ba48e995..3c6175b27 100644
--- a/src/results.f90
+++ b/src/results.f90
@@ -595,7 +595,7 @@ subroutine results_mapping_homogenization(ID,entry,label)
     dt_id
 
   integer(SIZE_T) :: type_size_string, type_size_int
-  integer         :: hdferr, ierr, i, ce
+  integer         :: hdferr, ierr, ce
 
 
   writeSize = 0