223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

for internal use only

This commit is contained in:
Martin Diehl 2020-12-22 11:13:39 +01:00
parent 2627ed1a82
commit 81602dd0e0
2 changed files with 1 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/constitutive.f90
View File

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

2
src/constitutive_mech.f90
View File

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