not needed

2021-05-28 15:03:50 +02:00 · 2021-05-28 15:03:50 +02:00 · 77a0d5999b
parent 4669c289c7
commit 77a0d5999b
2 changed files with 1 additions and 6 deletions
--- 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, &
--- 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