From d0b267b240cd619db243777682242174fdc57beb Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sun, 20 Dec 2020 18:24:35 +0100 Subject: [PATCH] there are module functions --- src/constitutive_mech.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/constitutive_mech.f90 b/src/constitutive_mech.f90 index cab4a17d8..8f08aa08e 100644 --- a/src/constitutive_mech.f90 +++ b/src/constitutive_mech.f90 @@ -536,7 +536,7 @@ end subroutine constitutive_plastic_LpAndItsTangents !-------------------------------------------------------------------------------------------------- !> @brief contains the constitutive equation for calculating the rate of change of microstructure !-------------------------------------------------------------------------------------------------- -function constitutive_collectDotState(S, FArray, Fi, FpArray, subdt, ipc, ip, el,phase,of) result(broken) +module function constitutive_collectDotState(S, FArray, Fi, FpArray, subdt, ipc, ip, el,phase,of) result(broken) integer, intent(in) :: & ipc, & !< component-ID of integration point @@ -599,7 +599,7 @@ end function constitutive_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 !-------------------------------------------------------------------------------------------------- -function constitutive_deltaState(S, Fi, ipc, ip, el, phase, of) result(broken) +module function constitutive_deltaState(S, Fi, ipc, ip, el, phase, of) result(broken) integer, intent(in) :: & ipc, & !< component-ID of integration point