better to read

This commit is contained in:
Martin Diehl 2021-01-08 08:26:17 +01:00
parent 6c62e186de
commit d494c2d81e
3 changed files with 3 additions and 7 deletions

View File

@ -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
!--------------------------------------------------------------------------------------------------

View File

@ -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

View File

@ -103,9 +103,6 @@ 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)
call constitutive_thermal_getRateAndItsTangents(TDot, dTDot_dT, T, ip, el)