From b452cce2f6529f5997e0b95ed96f8af2f2161908 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Tue, 22 Dec 2020 19:13:30 +0100
Subject: [PATCH] only needed for mechanics

---
 src/constitutive.f90      | 18 ------------------
 src/constitutive_mech.f90 |  3 ++-
 2 files changed, 2 insertions(+), 19 deletions(-)

diff --git a/src/constitutive.f90 b/src/constitutive.f90
index e68ade06f..b4a638575 100644
--- a/src/constitutive.f90
+++ b/src/constitutive.f90
@@ -61,7 +61,6 @@ module constitutive
     crystallite_converged                                                                           !< convergence flag
 
 
-
   type :: tTensorContainer
     real(pReal), dimension(:,:,:), allocatable :: data
   end type
@@ -169,23 +168,6 @@ module constitutive
 ! == cleaned:end ===================================================================================
 
 
-module function constitutive_deltaState(S, Fi, ipc, ip, el, phase, of) result(broken)
-
-  integer, intent(in) :: &
-    ipc, &                                                                                          !< component-ID of integration point
-    ip, &                                                                                           !< integration point
-    el, &                                                                                           !< element
-    phase, &
-    of
-  real(pReal),   intent(in), dimension(3,3) :: &
-    S, &                                                                                            !< 2nd Piola Kirchhoff stress
-    Fi                                                                                              !< intermediate deformation gradient
-  logical :: &
-    broken
-
-
-end function constitutive_deltaState
-
 
     module subroutine source_damage_anisoBrittle_dotState(S, ipc, ip, el)
       integer, intent(in) :: &
diff --git a/src/constitutive_mech.f90 b/src/constitutive_mech.f90
index 0cb4d97e6..6da151c9d 100644
--- a/src/constitutive_mech.f90
+++ b/src/constitutive_mech.f90
@@ -604,7 +604,7 @@ end function mech_collectDotState
 !> @brief for constitutive models having an instantaneous change of state
 !> will return false if delta state is not needed/supported by the constitutive model
 !--------------------------------------------------------------------------------------------------
-module function constitutive_deltaState(S, Fi, ipc, ip, el, phase, of) result(broken)
+function constitutive_deltaState(S, Fi, ipc, ip, el, phase, of) result(broken)
 
   integer, intent(in) :: &
     ipc, &                                                                                          !< component-ID of integration point
@@ -1389,6 +1389,7 @@ module subroutine mech_initializeRestorationPoints(ph,me)
     ph, &
     me
 
+
   constitutive_mech_partionedFi0(ph)%data(1:3,1:3,me) = constitutive_mech_Fi0(ph)%data(1:3,1:3,me)
   constitutive_mech_partionedLi0(ph)%data(1:3,1:3,me) = constitutive_mech_Li0(ph)%data(1:3,1:3,me)
   plasticState(ph)%partitionedState0(:,me) = plasticState(ph)%state0(:,me)