From 462ca1a30b2893fb0897b26eb1eeb5ac95fbf07d Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Fri, 12 Feb 2021 08:10:25 +0100
Subject: [PATCH] not needed

---
 src/commercialFEM_fileList.f90 |  1 -
 src/damage_none.f90            | 34 ----------------------------------
 src/homogenization.f90         |  2 --
 3 files changed, 37 deletions(-)
 delete mode 100644 src/damage_none.f90

diff --git a/src/commercialFEM_fileList.f90 b/src/commercialFEM_fileList.f90
index a191298a3..cf48e19ce 100644
--- a/src/commercialFEM_fileList.f90
+++ b/src/commercialFEM_fileList.f90
@@ -41,7 +41,6 @@
 #include "phase_damage_isoductile.f90"
 #include "phase_damage_anisobrittle.f90"
 #include "phase_damage_anisoductile.f90"
-#include "damage_none.f90"
 #include "damage_nonlocal.f90"
 #include "homogenization.f90"
 #include "homogenization_mechanical.f90"
diff --git a/src/damage_none.f90 b/src/damage_none.f90
deleted file mode 100644
index c4b1c1589..000000000
--- a/src/damage_none.f90
+++ /dev/null
@@ -1,34 +0,0 @@
-!--------------------------------------------------------------------------------------------------
-!> @author Pratheek Shanthraj, Max-Planck-Institut für Eisenforschung GmbH
-!> @brief material subroutine for constant damage field
-!--------------------------------------------------------------------------------------------------
-module damage_none
-  use material
-
-  implicit none
-  public
-
-contains
-
-!--------------------------------------------------------------------------------------------------
-!> @brief allocates all neccessary fields, reads information from material configuration file
-!--------------------------------------------------------------------------------------------------
-subroutine damage_none_init
-
-  integer :: h,Nmaterialpoints
-
-  print'(/,a)', ' <<<+-  damage_none init  -+>>>'; flush(6)
-
-  do h = 1, size(material_name_homogenization)
-    if (damage_type(h) /= DAMAGE_NONE_ID) cycle
-
-    Nmaterialpoints = count(material_homogenizationAt == h)
-    damageState_h(h)%sizeState = 0
-    allocate(damageState_h(h)%state0   (0,Nmaterialpoints))
-    allocate(damageState_h(h)%state    (0,Nmaterialpoints))
-
-  enddo
-
-end subroutine damage_none_init
-
-end module damage_none
diff --git a/src/homogenization.f90 b/src/homogenization.f90
index 14dd26726..87b15c43e 100644
--- a/src/homogenization.f90
+++ b/src/homogenization.f90
@@ -12,7 +12,6 @@ module homogenization
   use material
   use phase
   use discretization
-  use damage_none
   use damage_nonlocal
   use HDF5_utilities
   use results
@@ -220,7 +219,6 @@ subroutine homogenization_init()
   call thermal_init()
   call damage_init()
 
-  if (any(damage_type == DAMAGE_none_ID))      call damage_none_init
   if (any(damage_type == DAMAGE_nonlocal_ID))  call damage_nonlocal_init