From 330803881b7bf42e0151a25204b6da08c23daf0f Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Tue, 6 Apr 2021 11:41:45 +0200
Subject: [PATCH] variable 'damage' is not occupied anymore

---
 src/phase_damage.f90              | 4 ++--
 src/phase_damage_anisobrittle.f90 | 2 +-
 src/phase_damage_anisoductile.f90 | 2 +-
 src/phase_damage_isobrittle.f90   | 2 +-
 src/phase_damage_isoductile.f90   | 2 +-
 5 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/phase_damage.f90 b/src/phase_damage.f90
index abde56e55..4397d5cad 100644
--- a/src/phase_damage.f90
+++ b/src/phase_damage.f90
@@ -1,7 +1,7 @@
 !----------------------------------------------------------------------------------------------------
 !> @brief internal microstructure state for all damage sources and kinematics constitutive models
 !----------------------------------------------------------------------------------------------------
-submodule(phase) damagee
+submodule(phase) damage
   enum, bind(c); enumerator :: &
     DAMAGE_UNDEFINED_ID, &
     DAMAGE_ISOBRITTLE_ID, &
@@ -520,4 +520,4 @@ module subroutine damage_forward()
 end subroutine damage_forward
 
 
-end submodule damagee
+end submodule damage
diff --git a/src/phase_damage_anisobrittle.f90 b/src/phase_damage_anisobrittle.f90
index 3c573f33a..7e5f79e17 100644
--- a/src/phase_damage_anisobrittle.f90
+++ b/src/phase_damage_anisobrittle.f90
@@ -4,7 +4,7 @@
 !> @brief material subroutine incorporating anisotropic brittle damage source mechanism
 !> @details to be done
 !--------------------------------------------------------------------------------------------------
-submodule (phase:damagee) anisobrittle
+submodule (phase:damage) anisobrittle
 
   type :: tParameters                                                                               !< container type for internal constitutive parameters
     real(pReal) :: &
diff --git a/src/phase_damage_anisoductile.f90 b/src/phase_damage_anisoductile.f90
index bb2f2bcbc..54b63278f 100644
--- a/src/phase_damage_anisoductile.f90
+++ b/src/phase_damage_anisoductile.f90
@@ -4,7 +4,7 @@
 !> @brief material subroutine incorporating anisotropic ductile damage source mechanism
 !> @details to be done
 !--------------------------------------------------------------------------------------------------
-submodule(phase:damagee) anisoductile
+submodule(phase:damage) anisoductile
 
   type :: tParameters                                                                               !< container type for internal constitutive parameters
     real(pReal) :: &
diff --git a/src/phase_damage_isobrittle.f90 b/src/phase_damage_isobrittle.f90
index 25fe1d99a..59cedb554 100644
--- a/src/phase_damage_isobrittle.f90
+++ b/src/phase_damage_isobrittle.f90
@@ -4,7 +4,7 @@
 !> @brief material subroutine incoprorating isotropic brittle damage source mechanism
 !> @details to be done
 !--------------------------------------------------------------------------------------------------
-submodule(phase:damagee) isobrittle
+submodule(phase:damage) isobrittle
 
   type :: tParameters                                                                               !< container type for internal constitutive parameters
     real(pReal) :: &
diff --git a/src/phase_damage_isoductile.f90 b/src/phase_damage_isoductile.f90
index 5a9d521e4..1f1bba847 100644
--- a/src/phase_damage_isoductile.f90
+++ b/src/phase_damage_isoductile.f90
@@ -4,7 +4,7 @@
 !> @brief material subroutine incorporating isotropic ductile damage source mechanism
 !> @details to be done
 !--------------------------------------------------------------------------------------------------
-submodule(phase:damagee) isoductile
+submodule(phase:damage) isoductile
 
   type:: tParameters                                                                                !< container type for internal constitutive parameters
     real(pReal) :: &