From d494c2d81e66ceb770d7e902f262ba337c3fd6d9 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Fri, 8 Jan 2021 08:26:17 +0100 Subject: [PATCH] better to read --- src/constitutive.f90 | 3 +-- src/constitutive_thermal.f90 | 2 +- src/thermal_conduction.f90 | 5 +---- 3 files changed, 3 insertions(+), 7 deletions(-) diff --git a/src/constitutive.f90 b/src/constitutive.f90 index 111e68fdf..250f7f99e 100644 --- a/src/constitutive.f90 +++ b/src/constitutive.f90 @@ -305,6 +305,7 @@ module constitutive orientation !< crystal orientation end subroutine plastic_nonlocal_updateCompatibility + module subroutine plastic_isotropic_LiAndItsTangent(Li,dLi_dMi,Mi,instance,of) real(pReal), dimension(3,3), intent(out) :: & Li !< inleastic velocity gradient @@ -466,8 +467,6 @@ end subroutine constitutive_init - - !-------------------------------------------------------------------------------------------------- !> @brief checks if a kinematic mechanism is active or not !-------------------------------------------------------------------------------------------------- diff --git a/src/constitutive_thermal.f90 b/src/constitutive_thermal.f90 index 5017904df..a716a0c55 100644 --- a/src/constitutive_thermal.f90 +++ b/src/constitutive_thermal.f90 @@ -136,7 +136,7 @@ module subroutine constitutive_thermal_getRateAndItsTangents(TDot, dTDot_dT, T, el !< element number real(pReal), intent(in) :: & T !< plastic velocity gradient - real(pReal), intent(inout) :: & + real(pReal), intent(out) :: & TDot, & dTDot_dT diff --git a/src/thermal_conduction.f90 b/src/thermal_conduction.f90 index 0cd1678e0..02649b1ad 100644 --- a/src/thermal_conduction.f90 +++ b/src/thermal_conduction.f90 @@ -103,10 +103,7 @@ subroutine thermal_conduction_getSourceAndItsTangent(Tdot, dTdot_dT, T, ip, el) integer :: & homog - Tdot = 0.0_pReal - dTdot_dT = 0.0_pReal - - homog = material_homogenizationAt(el) + homog = material_homogenizationAt(el) call constitutive_thermal_getRateAndItsTangents(TDot, dTDot_dT, T, ip, el) Tdot = Tdot/real(homogenization_Nconstituents(homog),pReal)