From 81602dd0e0806492d6683f3ed7ec876e465386e7 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Tue, 22 Dec 2020 11:13:39 +0100 Subject: [PATCH] for internal use only --- src/constitutive.f90 | 20 -------------------- src/constitutive_mech.f90 | 2 +- 2 files changed, 1 insertion(+), 21 deletions(-) diff --git a/src/constitutive.f90 b/src/constitutive.f90 index 3c4e21989..21e2b82ee 100644 --- a/src/constitutive.f90 +++ b/src/constitutive.f90 @@ -162,22 +162,6 @@ module constitutive ! == cleaned:end =================================================================================== - module function constitutive_collectDotState(FpArray, subdt, 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) :: & - subdt !< timestep - real(pReal), intent(in), dimension(3,3,homogenization_maxNconstituents,discretization_nIPs,discretization_Nelems) :: & - FpArray !< plastic deformation gradient - - logical :: broken -end function constitutive_collectDotState - module function constitutive_deltaState(S, Fi, ipc, ip, el, phase, of) result(broken) @@ -408,10 +392,6 @@ end function constitutive_deltaState constitutive_init, & constitutive_homogenizedC, & constitutive_LiAndItsTangents, & - constitutive_collectDotState, & - constitutive_collectDotState_source, & - constitutive_deltaState, & - constitutive_deltaState_source, & constitutive_damage_getRateAndItsTangents, & constitutive_thermal_getRateAndItsTangents, & constitutive_results, & diff --git a/src/constitutive_mech.f90 b/src/constitutive_mech.f90 index c000e6c43..e18b8401a 100644 --- a/src/constitutive_mech.f90 +++ b/src/constitutive_mech.f90 @@ -546,7 +546,7 @@ end subroutine constitutive_plastic_LpAndItsTangents !-------------------------------------------------------------------------------------------------- !> @brief contains the constitutive equation for calculating the rate of change of microstructure !-------------------------------------------------------------------------------------------------- -module function constitutive_collectDotState(FpArray, subdt, ipc, ip, el,phase,of) result(broken) +function constitutive_collectDotState(FpArray, subdt, ipc, ip, el,phase,of) result(broken) integer, intent(in) :: & ipc, & !< component-ID of integration point