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 =================================================================================== ! == 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) module function constitutive_deltaState(S, Fi, ipc, ip, el, phase, of) result(broken)
@ -408,10 +392,6 @@ end function constitutive_deltaState
constitutive_init, & constitutive_init, &
constitutive_homogenizedC, & constitutive_homogenizedC, &
constitutive_LiAndItsTangents, & constitutive_LiAndItsTangents, &
constitutive_collectDotState, &
constitutive_collectDotState_source, &
constitutive_deltaState, &
constitutive_deltaState_source, &
constitutive_damage_getRateAndItsTangents, & constitutive_damage_getRateAndItsTangents, &
constitutive_thermal_getRateAndItsTangents, & constitutive_thermal_getRateAndItsTangents, &
constitutive_results, & 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 !> @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) :: & integer, intent(in) :: &
ipc, & !< component-ID of integration point ipc, & !< component-ID of integration point