not needed

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"

src/damage_none.f90

@@ -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

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